= é es . = Sse - / 34 + = - P < +. - 
: : ; . S=olgao eaay a ; ; 
. - ~— _ : . — 
~ so 7 -— oe ~e - ° - , § . 
o-- “ ies erate = : - - 
poke ves ak ° —so8Es ; - est 3 : : ose : 5: ; : 
stan — as | ee | - - P 5 . . 4 - 
. . is > “ > od - . ' : 
: se ; ° ; i ees . State 9 eegetite : . : : : . S="55 
f= ; : : ‘ - F ateilene a z ‘ 2 : yy : rs 
~. - ai _ z - - ; 
eet ldgeiciy = ; passers é rf = Pr z : - - . - oo er oe - . oe . o2ae ee : - 7+ 
; 2 ra Set: . : oon . . ‘ - - - : 
: Bers - ; : Fee Ts erers : ry ety gets 6 a& => 3 ; at ree ens aS ee Sige pesca pee. <= 35 
se pas : : : : .- . * -- - 4 © . + t - -- - ‘+ - + . . * A . 
: 4 stele peat Sats ose} apibeeessonse 6 erepe pe’ Siehoze sass ; ; * og? - - - ear ee =" : EF = 
: : “ oe x ~ * os - - . . . - 
5 -" z = > ** . . . . ° ° - - - $ 
— = +--+ ° _ ¥ ~~ 
é - aa . 
- - + “v 3 
jcete > : 
st zs : - ; : 
; s7 ie - ; 
rat : 
; : a 
: Ross : 3 
: , gs Peano eee : _. 
as - 
y oo38 see a Te : - - 
~~ pe ~ 
. 
~ - > 
to obtten ; 
% = z 
' _—_/ bd 
: pets ; : 
: a 3s $ : : : 
+ : ; - : : 
- 
: : 
: SS: . - 
; Sateee ; Seer : 
HF : 
: ; : c 
; obs 
3 2-3 3 
Tt * 5 ; 2 
& - 3 : ‘ 
> - *- ld . “ ° - - 
> - i" z ~ ~~ 3° - 
+ . : Z pone e , 
— - . > ; 
' ma > F 3 - - 
? Donne r Tt : i 
: : - : : : 
. *?" z = 
= 50s "aes 7 ; : =. 
Is - - ~« - e-- . - + re . - 
- 7 wey « > é . - : = oa 3: - +° : : : 
> = . _ e * ‘- ‘ ; ¢ 
Soto . - _— - e 
; : 4a $ $ " ‘ Sas : 
== 5 = Srelektestperese see a 3 Susie <3 2 ° ~ : . ” 
= y - . SS : * = ; 3 
- —_ . - . * $ : + : ’ 7 -- . 
Syne ots of Se ors P - - 
- ; é ~ 
-- ojeretet ee ‘ i - = - — - - . oo ee : 7" = -— ? . t = - 
: elon a ses re = 5-225 a ° 
: Sessc0le : : e es Saeets : - : 
s o- = a - - - - . - : - ; - . 
4 - - = ; . - > > 
‘ wis -Seteeee oe Se - ey ° r : : 
=f - - a ‘ . .- + x : ; : 
_< ~% “+ . - . ed z 
: $ 7 3 : - 2.3 ; - . 
: 7 poate 7 - +h o~e re~e . e 
; tassccrtseesess - 
= a ses =: s3 = - 
< ° vO He ona emagenes soy soseterere tego ‘ aS : . 
a _ . .. - . ; ° ot .a 4 * r r? - . > 
fagr ~~ A: ere : ; 3 ote se : : - : 2 - 
i . - o-& = eee - . + - . « 7 ~ 
= > ee ee eet ee ee $23 3-304 - ° 2 —_ 4 é =. -- 
- = oer f . - - - os Se? 
z oe» o.--- + 3 > 
= od - - 
: se snpeeaecets Sis : Box Fonseca vee Sass Es Peecaee pete 
: ; J A$: ; ; : $ — Z mE $ 7 * : 
- « . “-* 4 = » ¥ _ 4 _t t ; : 
. osererny - seeeet 
p Ey ete : $ re ° ; $33 é : 
“ : : Sots steed’ 4 é <3 = - Se eae ee reeesees ; pz ’ . sis 
: ; aeeleie® . . - ones : ertielete oH: : ‘ ? 
“ +‘ - écone es . 5 + * - - +-* ; 4 
4 : _ 4 : 2 - ae ol t.2 wary . y FE 
: . - =< s023 as ; : ots . : tt 4 - t : 
3 = = -« - s: © -_ 
ti 3 z°.5 — 3 : —- a < eid a: roe - 2 -: 
+ ~ - . ~~ bodes se + e ee = = “o.v-* = : Mote Sih: . : ; ° : 
‘ ¥ -o- ] - . « .- : - 7 +4 sf : at + 4 > ; - 
FES : f : ; Fas Pei : ¢ 3 : ‘ a Saree are te = : 
; --- + - : se . ? 
a 3 - po te - ele 7 - : 
* 3 ; °. : j ¢ - - ; ; 
Saget ae fyi es bsz3 Siassepess riek : : 


BLANK 


Byte Book of Pascal 
Blaise W. Liffick, Editor 


ERRATA 
Dear Editor 


The program package “Tiny Pascal in 8080 Assembly Language”, written by 
me and published in The BYTE Book of Pascal, unfortunately contains a few 
minor errors. Although the package will function correctly as published in 
almost all cases, the errors do cause idiosyncratic behaviour in some 
instances. 


There are four mistakes, all in the P-code-to-8080 translator (Listing 3, pages 
241-251). Credit for the discovery of the first two goes to Mr. Jim Scott of 
Richmond, VA. The corrections are: 


Lines 1380 through 1440 following label L1500 on page 245 should be replaced 
by PUSH H/ LX! D,-5 / DAD D / POP H/ JNC L1515 / PUSH H/ LX! D,6 / DAD 
D / POP H/ JNC L1530. 


Lines 2150 through 2200 following label L635 on page 248 should be omitted. 
This section of code contains an error and its function is unnecessary. 


Lines 2330 and 2340 following label L870 on page 243 should be changed to 
ORA A / JNZ L890. 


Line 420 following label L470 on page 247 should be MOV D,A instead of 
MOV D,H. 


These errors are entirely my fault and | apologize to anyone who has run into 
difficulty because of them. While we’re on the subject, however, | think it 
would be helpful to mention the existence of two misprints in the text on page 
92 of the book. First, square brackets have been omitted from the statement 
MEM[0}: = MEM[1] about halfway down the first column. Second, the sample 
sentence near the bottom of the column should read: 


‘This is how it’ ’s done.’ 
with two apostrophes in the word ‘‘it’s”. 


Finally, users should be aware that the stack-handling associated with pro- 
cedure calls differs between the Chung-Yuen programs and my translation. As 
a result, P-code produced by their compiler will not be properly translated or 
interpreted by my translator or interpreter, and vice versa, even though the 
P-code from the assembly-language compiler works fine with the assembly- 
language translator and interpreter. 


B. Gregory Louis, Ph.D. 
OB/GYN Dept. 

St. Michael’s Hospital 

30 Bond Street 

Toronto, Canada M5B 1W8 
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The authors of the programs provided with this book have carefully re- 
viewed them to ensure their performance in accordance with the specifications 
described in the book. Neither the authors nor BYTE Publications Inc, 
however, make any warranties whatever concerning the programs, and assume 
no responsibility or liability of any kind for errors in the programs or for the 
consequences of any such errors. The programs are the sole property of the 
authors and have been registered with the United States Copyright Office. 


Copyright © 1979 BYTE Publications Inc. All Rights Reserved. Portions 
of this book were previously Copyright © 1977, 1978 or 1979 by BYTE Pub- 
lications Inc. BYTE and PAPERBYTE are Trademarks of BYTE Publications 
Inc. No part of this book may be translated or reproduced in any form with- 
out the prior written consent of BYTE Publications Inc. 
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INTRODUCTION 


This book is part of the “Language Series” of BYTE Books. It is a collection of the 
best articles from past issues of BYTE magazine, the leading technical journal in the 
microcomputer field. The language under discussion is a relatively new computer pro- 
gramming language, Pascal. Until recently, Pascal has only enjoyed a large following 
in the academic community, and only more recently has it been practical to use this 
language with microcomputers. But the curious thing about Pascal is its ability to win 
nearly instant converts; so, while Pascal may be one of the newest computer 
languages, especially in the field of microcomputers, it is also one of the fastest grow- 
ing in use and acceptance. 

The purpose of this book is twofold. First, for those uninitiated, the articles contain- 
ed in this book can serve as a general introduction to Pascal, providing the background 
information necessary for a potential user. The Comments section itself is a general 
discussion of the properties, merits, and applicability of Pascal. It includes reprints 
from the ‘Languages Forum” of BYTE magazine, an ongoing dialogue among the 
magazine’s knowledgeable readers. The Forum is intended as an interactive dialogue 
about the design and implementation of languages for personal computing. In addi- 
tion, an editorial by Carl Helmers, one of the industry’s leading proponents of Pascal, 
rounds this section out as a beginning point for those unfamiliar with the language. 

Second, for those requiring a more in depth study of the merits of the language and 
its possible implementation, there are two sections, About the Language and Applica- 
tions. 

About the Language provides insights into the usefulness of Pascal by comparing it 
to BASIC and COBOL. Also, a detailed look at some possible implementations of the 
language helps define the scope of the impact on the industry. This includes listings of 
a Pascal to p-code compiler written in both Pascal and BASIC, and two listings in the 
appendices: one a p-code to 8080 assembly language conversion program in BASIC; 
the second a “‘tiny’’ Pascal compiler and p-code interpreter written in 8080 assembly 
language. 

The final section is Applications and, as the name implies, includes several applica- 
tion and system programs written in Pascal. For general applications there is an 
automatic metric conversion program, nontrivial implementation of a chess program, 
and an implementation of a print utility program. In the area of system software there 
is the choice of two language implementations: one is a minimum implementation of a 
language, written in less than 256 words (it has surprising usefulness); the other is an 
APL interpreter. 

So, this book provides not only a general introduction to the Pascal language, but is 
also a tremendous resource for software: two versions of a Pascal compiler, one writ- 
ten in BASIC and the other in 8080 assembly language; a p-code interpreter written in 
both Pascal and 8080 asembly language; a chess playing program; and an APL inter- 

reter. 

: Finally, a note about how the articles in this book were updated. We have been very 
careful to make corrections to articles where an error has been made in the original ar- 
ticle. However, because many of these articles are reprinted from back issues of BYTE 
magazine, some of the information contained in them is out of date. This information 
is flagged in the form of footnotes within the article, and includes such items as page 
references and the availablity of UCSD Pascal. All footnotes throughout this book can 

be taken as current as of 1 July 1979. 
Blaise W. Liffick 
Editor 
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Notes by C Helmers 


Readers will note a lack of con- 
sistency in the typography of various 
articles on Pascal. 

One area of questionable typo- 
graphy is a bit nebulous and less sub- 
ject to editorial fiat when “camera 
ready” type is received from authors: 
the style of representation of Pascal 
program listings. The ideal style is of 
course that used by Niklaus Wirth in 
his book Algorithms+Data Struc- 
tures=Programs, published by Pren- 
tice-Hall in 1976. This style uses bold 
face type in lowercase for representa- 
tion of the Pascal language keywords. 
It uses italics for the representation of 
specific variable names, procedure 
names and literal values which are 
part of the program. In articles by 
authors Ken Bowles (page 51), Charles 
Forsyth and Randall Howard (page 33), 
and Allan Schwartz (page 41) this nota- 
tion was used. But in two of these 
cases, the authors supplied camera 
ready typeset copy along with the 
articles involved, in order to minimize 
potential errors due to keystroking. 
Since two of these were typeset at 
BYTE, and the other two were typeset 
with different type specifications on 
different machines, there is naturally a 
different aesthetic flavor to the listings 


Consistency — or a Lack Thereof... 


in these articles. A close variant of this 
form is seen in the listings of David 
Mundie’s article (page 7) where bold 
fact type and normal type are mixed in 
the listing. 

There is yet another variation on the 
graphics used to represent Pascal pro- 
grams, provided by the listings accom- 
panying Stephen Alpert’s article (page 
27). Here, the camera ready listing was 
supplied by the author as printed on 
an uppercase line printer, so keywords 
are indistinguishable from program 
details on the basis of typography 
alone. 

What can we conclude about this 
inconsistency? Our goal at BYTE is to 
asymptotically approach the notation 
of Pascal programs in the bold face 
and italic form whenever we do the ac- 
tual typesetting of a listing. The italic 
and the bold face typography pro- 
vides an excellent contrast to normal 
type when elements of a program are 
mentioned within text. But when a 
manuscript comes with a_ usable 
camera ready listing of a Pascal pro- 
gram, such details of aesthetics must 
take second place to the goal of mini- 
mizing errors of transcription: it is far 
better to use a camera ready image 
derived from a machine produced list- 
ing than to key in a program manually 
in order to create a typeset form of the 
listing. ...CH 


Comments 
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Languages Forum 


UCSD PASCAL: 


A (Nearly) Machine Independent 
Software System (for Microcomputers and 


Minicomputers) 


Overview 


This article describes a complete inter- 
active software system which can operate 
virtually without change on many different 
microcomputers and minicomputers. Because 
the semiconductor industry is evolving new 
equipment very fast, it is becoming a practi- 
cal necessity to have machine independent 
software to prevent rapid obsolescence of 
large application programs. The software 
described here has been developed at the 
University of California San Diego (UCSD), 
and is available to anyone for a $200 sub- 
scription fee. This article presents an appeal 
to readers of BYTE for help to bring about a 
true community-wide software system for 
business, educational and other professional 
users of small computer systems. Help is 
needed from the user community, since the 
manufacturers have so far avoided stan- 
dardizing software except as regards some 
aspects of programming languages. For 
single user microcomputers, it appears to 
be far more practical to standardize the 
entire software system than the language 
processor alone! 


The Software System 


UCSD Pascal is a complete interactive 
software system for small computers, yet 
it offers many features normally found only 
on medium and large scale machines. It is 
designed to operate, with minimal adapta- 
tion, On most microcomputers or mini- 
computers based on 8 bit bytes or 16 bit 
words. Supported versions are now available 
for use on machines based on the Digital 
Equipment LSI-11 or other PDP-11 pro- 


Kenneth L Bowles 


cessors, and on the 8080 and Z-80 micro- 
processors. Having first been sent to users 
in August 1977, the system is in use on 
approximately 60 mainframes using these 
processors (as of mid February 1978), and 
the list of both users and processors has 
started to grow rapidly. Versions not yet 
supported by the Project are operating, 
or nearly operating, on four other pro- 
cessors (General Automation 440, Univac 
V75, Nanodata QM-1, National Semicon- 
ductor PACE). The UCSD Pascal Project 
is discussing arrangements with various 
manufacturers whereby supported versions 
can be released for most other popular 
microprocessors, and additional inquiries 
would be welcomed. 

The system is written almost entirely in 
the Pascal programming language, ex- 
tended for system programming and for disk 
based interactive applications. Far more than 
a simple compiler for Pascal, it should be 
viewed aS a complete and fully integrated 
system which is self-maintaining, and gen- 
erally independent of software from any 
other source. The system operates in a small 
pseudomachine (interpreter) which can be 
written in the native machine language of 
conventional processors, or can be micro- 
programmed on machines which provide 
that capability. The object code processed 
by the Pascal pseudomachine is com- 
pressed relative to conventional object code, 
and consumes roughly one third to one half 
as much space as the native object code of 
most present day processors. A feature to be 
implemented soon will allow mixing Pascal 
pseudocode routines, for efficient use of 
memory, with native code routines, for fast 
processing. 


The system is the product of a growing 
project team, and is evolving rapidly in an 
upward compatible way. As of early 1978, 
the system represents the equivalent of about 
15. full-time years of programming and 
design effort. Major components of the 
system currently being distributed include 
the following: 


@ Single user operating system. 

@ Pascal Compiler. Standard Pascal 
plus extensions for strings, disk files, 
graphics, system programming (busi- 
ness oriented extensions are planned). 

@ Fditors. High performance screen 
oriented editor for program develop- 
ment and word processing, line oriented 
editor for hard copy devices. 

@ File Manager. General purpose utility 
for maintaining a library of disk files 
(usually floppy disks). 

@ Debugger. Single statement and break- 
point processing, access to program 
variables. 

© Utilities, Programs for printing, com- 
municating, accessing disks written 
under DEC’s RT11 system, diagnosing 
disk faults, desk calculator, etc... 

@ BASIC language compiler. \mple- 
mented for those who insist on using 
BASIC, but may wish to write power- 
ful subroutines in Pascal. (The com- 
piler works, but subroutine binding is 
not yet ready.) 


Major components now operating, but 
not quite ready for general distribution, 
include the following: 


@ CAI Package. Adaptation of the major 
Computer Assisted Instruction package 
developed at University of California 
Irvine; includes automated materials 
for an introductory Pascal program- 
ming course. 

@ Assemblers. For the PDP-11, 8080 
and Z-80, these are written in Pascal 
for machine independence, but gen- 
erate native code for those processors. 

@ TREEMETA. A metacompiler devel- 
oped at UC Irvine. 


The UCSD Pascal Project 


The Project is one of the principal activi- 
ties of the Institute for Information Systems, 
an embryonic “organized research unit” 
concerned with interdisciplinary studies, and 
with related instructional and public service 
activities. The main objectives of the Project 
include the following: 


@ Machine Independence. To foster the 
widespread use of machine indepen- 


dent software systems, particularly for 
small computers, as a means to avoid 
software obsolescence. A major premise 
of the project is that applications soft- 
ware can best be made-truly portable 
by making the entire operating system 
and support software portable to a 
new processor at the cost of only a 
small effort (eventually: one to three 
programmer months; currently: about 
six months). 

@ Pascal. To promote the widespread 
use of standard Pascal, and stan- 
dardized extensions, as (the basis of) a 
general purpose programming language, 
both for writing system programs such 
as operating systems and compilers, 
and for applications software in educa- 
tion, research and business data pro- 
cessing. 

@ Software Exchange. To foster the 
development of a national or inter- 
national marketplace within which 
authors of computer based course 
materials, and other applications soft- 
ware, may receive reasonable royalties 
to compensate them for their work. As 
an initial step, the Project will operate 
a Software/Courseware Exchange, 
using Tele-Mail techniques, for users 
of the UCSD Pascal Software 
System. 

@ Mass Education. To demonstrate that it 
is practical to improve the quality of 
mass education at the college level 
(and adult training in technical topics), 
while simultaneously reducing costs, 
through the use of microcomputer 
based course materials. 

@ Research and Development. To provide 
facilities, a team working environment 
above critical size, and salary support 
for students and faculty members who 
wish to conduct research or develop- 
ment projects in software engineering 
and many related fields of study. 


Hardware Configuration 


The UCSD Pascal system has been 
designed to run as a single user interactive 
system with superior response characteristics 
when one or more floppy disks are used for 
secondary storage. Wherever possible, single 
character commands are used, and prompting 
messages remind the user of the significance 
of the various commands that are available 
in different contexts. While the system has 
proven that machine independence of a com- 
plex software system is practical, there are 
of course practical limits to the range of 
characteristics that can be accommodated on 
the host machine. The major characteristics 
of a typical system needed to run UCSD 


Pascal include the following: 


@ Main memory. 56K bytes (48K 
will do, but only for compiling small 
programs). 

@ Word Size. 8 bit bytes, 16 bit words 
(hardware or simulated). 

@ Secondary Storage. Standard 8 inch 
floppy disk (the major system program 
files occupy roughly 70 K bytes). 

® Console Display. 9600 bps ASCII 
terminal with x-y cursor addressing 
works best (slower CRTs or hard copy 
terminals can be handled, but less 
effectively). 

@ Keyboard. Uses ASCII! keys for CR, 
ESC, ETX, BS, DEL and four posi- 
tioning arrows (up, down, left, right). 


In addition, the system is being used to drive 
a variety of printers such as the Diablo 
HYTYPE and Printronix 300, and for com- 
municating via standard asynchronous lines. 


Compatibility with Other Software Systems 


In Project discussions with manufacturers 
of computers, on which the UCSD Pascal 
System might potentially be run, the most 
frequently asked question is: ‘‘How much 
effort will it take to adapt Pascal to run 
under my software system?” This question 
is understandable in view of the approach 
generally taken by the computer industry 
when a new language is to be installed on a 
machine produced in quantity. Unfor- 
tunately, this question misses the main point 
the Project is trying to make regarding trans- 
portable software. The effort needed to con- 
vert the Pascal compiler to run under the 
operating system of manufacturer “X”’ will 
generally be far greater than the effort to 
make the entire UCSD Pascal system run 
on that manufacturer’s hardware. In the 
interest of promoting software transportabil- 
ity, the Project will generally not agree to 
adapt just the compiler to run under another 
operating system. 


Pascal Language Extensions 


Like many others who use Pascal as 
the basis for writing large system programs, 
the Project has found it necessary to extend 
the language. The most notable extensions 
have to do with strings of characters, for 
natural reading and writing from and to inter- 
active files, and for tools needed in writing 
the software. A concerted effort has been 
made to implement all of the ‘‘standard”’ 
Pascal language as defined in Pascal 
User Manual and Report, by Kathleen Jensen 
and Niklaus Wirth (Springer Verlag, New 
York and Heidelberg, 1975). (However, 


UCSD Pascal still lacks the ability to 
allow procedure and function names to be 
passed as parameters.) The Project is making 
an effort to serve as coordinator among 
several large industrial firms which are pre- 
paring to use extended versions of Pascal 
for major programming projects. It is hoped 
that a consensus will emerge from this effort 
on extensions to the language for system 
programming. UCSD Pascal implements 
integers in two’s complement form in 16 
bit words, and real numbers in a 32 bit 
field. Since neither form is suitable for 
large integers or for business applications, 
it is planned to add the facility to handle 
fixed decimal numbers whose precision may 
be declared by the programmer. 


Speed of Execution 


Although the system is entirely inter- 
pretive, as currently implemented, execu- 
tion speed is fast enough to permit highly 
interactive programs to be run on micro- 
computers. For example, compilation speed 
ranges from 600 to 700 lines per minute on 
the DEC LSI-11, or on an 8085 with a 3 MHz 
clock. 


Availability 


Copies of the system may be obtained by 
writing to UCSD Pascal Project, Mail- 
drop C-021, La Jolla CA 92093. The system 
is available at a subscription fee of $200, 
made payable to ‘Regents of the University 
of California,’ which pays for materials, 
handling, and a limited amount of direct 
assistance to users. Those who wish to 
order the system should send details de- 
scribing the system on which they wish it to 
run, or should request an order blank from 
the project. The system is copyrighted, but 
rights are granted to educational institutions 
and to bonafide computer clubs to make 
additional copies for their own noncommer- 
cial uses. A copy of the latest package of 
printed user manuals (about 250 pages) is 
available at a charge of $15, again made 
payable to the Regents of the University 
of California. 

Though plans are in motion to convert 
the system to run on many different pro- 
cessors and configurations, the only systems 
currently supported use LSI-11, 8080 or 
Z-80 microprocessors with at least 48K 
bytes of main memory, and IBM 3740 com- 
patible standard floppy disk drive(s). For 
8080 and Z-80 users, the method of adapting 
the system to run on new hardware is similar 
to that used by Digital Research Inc in 
distributing the CP/M operating system; and 
the Project will distribute a conversion 
package similar to theirs. Versions of the sys- 


As of this writing 
(1 July 1979), SofTech 
Microsystems Inc (94 
Black Mountain Rd, 
Building 3, San Diego 
CA 92126) is the sole 
licensee of the UCSD 
Pascal system. Ques- 
tions about prices and 
availability of the sys- 
tem can be directed to 
the above address. 

Also, note that 
UCSD Pascal is a 
trademark of _ the 
Regents of the Uni- 
versity of California. 


tem for other microprocessors are not likely 
to be ready for release until October 1978 at 
the earliest. Release on floppy disks other 
than those compatible with the 3740 format 
will depend upon availability of hardware to 
the Project. 

In addition to the main software system, 
educational materials are available separately 
for an introductory course on problem solv- 
ing and programming using Pascal. A 
textbook (Microcomputer) Problem Solving 
Using Pascal is available from Springer 
Verlag Publishers, 175 Fifth Av, New York 
NY 10010 ($9.80). The Project can supply 
a set of automated quizzes designed for use 
with the textbook in a self-paced course 
of study. 


Help from the User Community 


Readers can help by letting their favorite 
hardware vendors know that they want 
UCSD Pascal to be available in machine 
independent form. The Project has noted 
an increasing number of manufacturers who 
report that customers are requesting 
Pascal, and this has a real influence on 


their business decisions. Readers can also 
help by joining the international Pascal 
Users’ Group (send $4 c/o Andy Mickel, 
227 EX, 208 SE Union St, University of 
Minnesota, Minneapolis MN 55455) and 
pressing PUG to establish a technical board 
to oversee UCSD Pascal as a community 
project.# 


Note on the Pascal User’s Group 


As of July 1, 1979 the Pascal 
User’s Group (PUG) has over 3300 
members in 47 countries. Those in- 
terested in joining can contact Andy 
Mickel at the University of Minnesota 
Computer Center, 227 Ex Engr, Univer- 
sity of Minnesota, Minneapolis MN 
55455, (612) 376-7290. The Pascal 
Newsletter /s published four times a 
year ona fuly to June schedule, with a 
subscription fee of $6 per year. All 
issues for the current year are sent 
with a new subscription, and back 
issues are available. 


Languages Forum 


In Praise of Pascal 


As has been pointed out in these pages 
before, personal computing will never 
achieve its full potential as long as our 
State of the art machines are hobbled down 
with a language as far from state of the art 
as BASIC is. Some have argued for designing 
a special high level language for micro- 
processors, but | personally fail to see why 
we don’t just implement Pascal and be 
done with it. | would like to look briefly 
at the language itself and try to explain why 
it seems the logical choice to me. 

| am an applications programmer with no 
theoretical interest in computing whatso- 
ever. What | like about Pascal is not the 
theory of its design, though that seems 
sound enough, but rather the fact that it 
lets me formulate my problems in my own 
terms. In Pascal more than in any other 
language | know, I can remain on the ab- 
Stract, algorithmic level where, as a human 
being, | function best. Because of this 
pragmatic bias, much of what follows will 
be an informal discussion appealing to the 
reader’s intuitions rather than a technical 
demonstration. | shall use BASIC for com- 
parative purposes, since it is the tyrant in 
the field. 

| find Pascal easy to use because it 
allows me to define new data types which 
express my data meaningfully. It provides 
control structures with which | can express 
what | want done to my data clearly and 
naturally. Pascal allows and encourages 
me to formulate my thinking in a structured 
way. Let us examine these three aspects of 
Pascal in reverse order. 


Program Structure 


Pascal is a_ resolutely structured 
language. A Pascal program is structured 
into blocks. Each block bears a heading 
which gives it a name and specifies its 
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parameters. Roughly speaking, a block 
consists of a definition part, in which 
constants, types, variables, and subroutines 
are defined, and an action part, which con- 
tains the algorithm of the block. This 
rigorous separation of data definition and 
algorithm expression is partly responsible, 
it seems to me, for the greater legibility of 
Pascal compared to ALGOL. 

Subroutines are themselves block struc- 
tured and may thus be nested within one 
another. This allows the declaration of 
“focal” variables and subprograms, meaning 
that storage may be allocated efficiently; 
yet it is easy to guard against unwanted side 
effects. 

What does all this mean for the practicing 
programmer? The answer may perhaps best 
be seen in the light of a claim recently re- 
peated by David Higgins in the October 
1977 BYTE (“Structured Program Design,”’ 
page 146). Higgins presents the now well 
established arguments in favor of structured 
programming, but goes on to contend that 
once a program is designed in a structured 
way, using for example Warnier-Orr dia- 
grams, “it does not matter what program- 
ming language you code it in.” This assertion 
seems pretty improbable on the face of it, 
and if true it would be a powerful argument 
against Pascal. | think that a rapid ex- 
amination of two test cases will show it to 
be quite unjustified. 

Let us take our test cases from the “‘bug”’ 
program which Higgins uses as his own 
example. Higgins would have us break the 
program down into three parts, as expressed 
in the following Warnier-Orr diagram: 


begin program 
bug program games (1,9) 
end program 


Nothing in the BASIC listing which accom- 
panies the article even remotely suggests 


Figure 1: Warnier-Orr diagram for subprogram “‘turn’’ of the bug program. 
This is clear, but note how much bulkier it is than the Pascal program in 


this overall algorithm. Look at what we 
might have in an_ equivalent Pascal 
program: 


program bug; 
begin 
beginprogram; 
games; 
endprogram 
end. 


Need | point out that to all intents and pur- 
poses the Pascal program js the Warnier- 


Orr diagram, with only a few notational 
differences such as the replacement of the 


BEGIN TURN 


HAS BODY 
(0,1) 
HAS HAS BODY 
(0,1) 
HAS NECK 
(0,1) 
HAS HAS NECK 
{0,1) 
HAS HEAD 
(0,1) 
ROLL = "4’ 
(0,1) © 
HAS HEAD 
{0,1) 
HAS BODY 
(0,1) 
ROLL = "5" 
(0,1) ‘C) 
HAS BODY 
(0,1) 
HAS BODY 
(0,1) 
HAS BODY 
(0,1) 


{ rou THE DIE 


PLAYER ALREADY HAS A BODY 
(0,1) SKIP 
PLAYER ALREADY HASA PLAYER ALREADY HAS A BODY 


© 


(0,1) 


HAS NECK 
(0.1) 


© 


HAS NECK 


{ sx 


HAS HEAD 
(0,1) 


© 


HAS HEAD 


{ sx 


2 ANTENNA 
(0,1) 

2 ANTENNA aoa 
(0,1) 


{ sci 


HAS TAIL 
O 1) 
HAS TAIL TAIL 

{ sx 


HAS 6 LEGS 
(0,1 ) 


© 


HAS 6 LEGS 
(0,1) 


{ sci 


{ aive PLAYER A BODY 


{ sxe 


{owe PLAYER A NECK 


GIVE PLAYER A HEAD 


{ skip 
{ 


SKIP 


{ sive PLAYER AN ANTENNA 
{ sx 


GIVE PLAYER A TAIL 


GIVE PLAYER 1 LEG 


{ 
io 
{ 


listing 2. The Warnier-Orr diagram won't even run on a computer. 
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brace by the symbols begin and end? Are we 
really asked to believe that this one to one 
correspondence between the problem and 
the program does nothing to simplify the 
programming task? On the contrary, it 
simplifies matters enormously. 

Considerations of space prevent me from 
giving the rival BASIC and Pascal versions 
in full. Another striking example is pre- 
sented in figure 1 and listings 1 and 2, 
which show the Warnier-Orr diagram for the 
“turn” subprogram, Higgins’ coding of the 
subprogram in BASIC, and the Pascal 
equivalent. Higgins calls his BASIC coding 
“simple and straightforward.” Tastes differ 
but that is a phrase | would have reserved 
for the Pascal version. Higgins has had to 
fake truly structured programming in a 
language which fights his efforts every step 
of the way, and the results are tortured 
and confusing. In contrast, the Pascal 
coding is, once again, a nearly perfect 
reflection of the Warnier-Orr diagram, so 
much so, in fact, that most Pascal users 
will probably feel, as | do, that the diagrams 
are a useless intermediary step, less clear 
and bulkier than the program itself. The 
intent of the Pascal program segment is 
so transparent that in my opinion it could 
almost be understood by a complete pro- 
gramming novice. 

Before leaving the topic of program struc- 
ture, we should perhaps remark that Pascal 
subprograms (procedures and_ functions) 
bear names, not numbers, virtually elimina- 
ting the need for the comments which 
pepper any well documented BASIC listing. 
Furthermore, because Pascal subprograms 
can have parameters, the programmer is 
encouraged to use a single subprogram for 
a single task. Higgins has written separate 
subprograms for each body part, whereas 
for a Pascal user it is virtually impossible 
to resist the temptation of passing the 
arrays body, neck, head, etc, to a single 
procedure “‘give’’ as parameters. 


Algorithm Expression 


Program structure alone does not explain 
the relative clarity of the Pascal listing 
in listing 2. We may also use that listing to 
illustrate the tools which Pascal provides 
for expressing algorithms. 

Logical operators: Pascal provides the 
logical operators (and, or, and not) which 
are so painfully lacking in BASIC and with- 
out which expressing an algorithm is so 
clumsy. The use of the operator and in the 
turn subprogram is a good example; or the 
reader may want to express “if (x=1) or 
((y>2)and(z=3)) then. . .” in BASIC. 

Conditional statements:  Pascal’s if 
structure groups statements with the condi- 


tions for their execution. The if statement is 
of the form: 
if<expression> 

then<statement_1> 

else<statement_2> 
The expression is evaluated as being either 
true or false. If it is true statement_1 is 
performed; otherwise statement_2 is per- 
formed. Suppose the expression is: X=1. 
In English the if statement translates to: 


if X equals 1 then perform state- 
ment_1; else perform statement__2. 


Pascal offers a very flexible case state- 
ment which is remotely related to the com- 
puted GOTO statement to be found in some 
BASICs. It is much more powerful because, 
among other things, selector values need 
not be contiguous, and actions are grouped 
with the conditions for their execution. 
A good example of the case statement’s 
clarity is to be found in the procedure 
“turn,” where the action taken depends 
on the value of roll. 

Repetitive statements: BASIC provides 
only one repetitive control structure: the 
FOR statement. But there are innumerable 
situations where we do not know ahead of 
time how many times a given action Is to 
be repeated. In such cases BASIC users have 
two choices. One is to set up a dummy 
FOR statement with a jump out of it when 
a certain condition is met: whence the 
ubiquitous ‘‘FOR I=1 TO 9999” statements 
in BASIC programming. This is bad because 
it seriously disguises the intention of the 
algorithm. One’s natural expectation is for 
such a loop to be executed 9999 times, but 
that is not the case. The other solution is 
for the programmer to fake an appropriate 
control structure with GOTQOs or condi- 
tional jumps. That is what Higgins has done 
in his program to express the fact that the 
computer and the human take turns until 
the game is over: 

210 REM TURNS (1,T) 


220 LET EGAM = 0 
230 GOSUB 390 


Data Definition 


Now that we have seen how much easier 
it is to express what one wants done to data 
in Pascal than in BASIC, let us turn to 
the wonderful data types which Pascal 
makes available for manipulation. Data types 
are the programmer’s buffer between his 
abstract formulation of an algorithm and the 
messy realm of bit level details where that 
algorithm will eventually be executed. 
Pascal makes defining new types a trivial 
task. Once a new data type is defined, it 
is in effect indistinguishable from a pre- 
defined type and may be used in any way a 
predefined type may be. We leave BASIC 
behind at this point, since that language 
has no facilities for creating new types. 

The bug program was too simple to 
provide examples of data structuring, so 
we shall have to turn elsewhere. Being a 
birdwatcher, | shall replace the traditional 
“Christmas card list’? example by a bird data 
bank. | can do no more than skim the sur- 
face, so | ask the reader’s indulgence if some 
of the listings are not fully explained. | 
am not trying to teach Pascal, but merely 
to spark intuitions. 

Pascal distinguishes 


between simple 


490 REM TURN SUBROUTINE 


500 REM PLAY=1;PLAYERS TURN—PLAY=2;COMPUTERS TURN 


510 REM ROLL DIE 
520 LET ROLL = FIX@(((RND(0))*6.0))+1 
5350 PRINT:"ROLL IS A" ,ROLL 


540 IF ROLL = 1 THEN IF BODY(PLAY)#1 THEN GOSUB 690 ELSE;ELSE; 


550 IF ROLL = 1 THEN 650 


560 IF ROLL = 2 THEN IF BODY(PLAY) = 1 THEN IF NECK(PLAY)#1 THEN GOSUB 760 


570 IF ROLL=2 THEN 650 


580 IF ROLL=3 THEN IF BODY(PLAY)=1 THEN IF NECK(PLAY)=1 


THEN IF HEAD(PLAY)#1 THEN GOSUB 820 
590 IF ROLL=3 THEN 650 


600 IF ROLL = 4 THEN IF HEAD(PLAY)=1 THEN IF ANTE(PLAY) #2 


THEN GOSUB 880 
610 IF ROLL=4 THEN 650 


620 IF ROLL = 5 THEN IF BODY(PLAY)=1 THEN IF TAIL(PLAY)#1 THEN GOSUB 940 


630 IF ROLL=5 THEN 650 


640 IF ROLL = 6 THEN IF BODY(PLAY)=1 THEN IF LEGS(PLAY)#6 THEN GOSUB 1000 


650 LET A=3 
660 RETURN 


Listing 1: BASIC listing for Warnier-Orr diagram in figure 1. This is the best 
one can do in BASIC, but is still a far cry from the clarity of the Pascal 


240 IF EGAM = 0 THEN 230 listing. 

250 REM END GAME 

260 GOSUB 1150 
This is no doubt the best one can do in 

: ; procedure turn; 
BASIC, but just consider how much more begin roll:=trunc(random(1)*6)+1; writeln(‘roll is a’,roll); 
elegant the Pascal version is: case rallot 
1: if(body [player] #1)then give(body); 
repeat turns until endofgame 2: if(body [player] =1)and(neck{player] #1) then give(neck); 
a ; ; 3: if(neck[player] =1)and(head[player] #1) then give(head); 

This is typical of the way in which 4: HMA ela = ena iantelbiever! oo then aie ote) 

’ ig 5: if(body [player] =1)and (tail [player] #1) then give(tail); 
Pascal : control SB USTITES make al 6: if(body [player] =1)and(legs[player] #6) then give (legs) 
gorithm expression a source of joy rather end 
than a contortionist exercise. In addition to end: 


the repeat statement, Pascal offers a 

while statement for the case when an action Listing 2: The Pascal listing equivalent to listing 1. Note the clear affinity 
is to be repeated as long as a condition is between the listing and the Warnier-Orr diagram. Notice that arrays are in- 
true. dexed using square brackets. 
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and structured types. Let us examine each 
in turn. 

Simple types: These are the basic build- 
ing blocks of which any structured type, 
no matter how complex, is ultimately com- 
posed. In addition to integer, real, and 
character types, Pascal offers two addi- 
tional simple types which as far as I’m con- 
cerned come close to exhausting the simple 
types needed in a general purpose language. 
The first is the defined scalar type, and is 
defined by simply listing the values which 
a variable of the new type may take on. 
Suppose | need a data type for the various 
habitats in which a bird may appear. In 
Pascal | write: 


type h = (ocean,rivers,fields,suburbs, forests, 
mountains) 


A variable of type h may take on any of 
the values listed. This means that while 
programming | may continue to think in 
terms of habitats, and am not forced to 
descend from that abstract level and think 
in integers, as | would have to do in BASIC. 
This also makes for virtually self-explanatory 
programs. Compare “IF HABITAT=3 
THEN...” with the much more transparent 
“if habitat=fields then... .” 

The second simple data type is the 
Boolean, and is extremely useful in pro- 
gramming since one is constantly control- 
ling program flow with Boolean expressions. 
Boolean variables take on the values true 
and false. Languages without such variables 
must make do with integers, which muddles 
things since one’s natural expectation is for 
integers to count something. The Pascal 
user may simply write “if good then...”, 
which is the way we think; the BASIC 
programmer must write “IF GOOD = 1 
THEN...’’, which is alien to the way we 
think. 

A large part of Pascal’s elegance comes 
from the fact that in most contexts these 
simple or scalar types may be used indif- 
ferently. Thus for example the type h as 
defined above could be used as the index 
variable in a for statement: 


for habitat := ocean to mountains do 


or in a case statement, or as the index type 
of an array: 


if foundin [fields] then 


Furthermore, functions may return any 
scalar type: we have already seen the func- 
tion “endofgame” which returns a Boolean 
value. 

Structured types: In addition to the 
simple types, Pascal offers five different 
structuring methods: arrays, records, sets, 
files, and pointers. These different methods 
may be combined in virtually limitless 


ways. One may have files of arrays, pointers 
to records, arrays of sets, pointers to files 
of arrays of records, and so on. This extreme 
flexibility of data structuring methods is 
one of Pascal’s most exciting features. 
The type array should be familiar, but let 
us look briefly at the other four structured 
types. 

Sets: Each bird in my hypothetical data 
bank has associated with it a set of habitats 
in which the bird may be found. Having 
defined the type h as above, all | need to do 
to set up a variable habitats which will be a 
set of different habitats is to write: 


var habitats: set of h 


When constructing the entry for the robin, 
| will write: 


habitats := [fields,suburbs] 


thus assigning to the robin the set of habitats 
containing the two elements fields and 
suburbs. When going on a trip to the moun- 
tains, | can test whether mountains are ina 
given bird’s set of habitats by the following 
simple test: 


if mountains in habitats then 


Imagine trying to do this in BASIC. Pascal 
provides a variety of set operators which 
allow set manipulation in all its generality. 

Records: Let us imagine that each entry 
in my data bank will contain the bird’s 
name, its length, and a set of habitats where 
it may be found. The entry cannot be an 
array, since components of arrays must all 
be of the same type. The appropriate data 
type is the record, defined in Pascal as 
follows: 


type bird= record 
name: string; 


length: real; 
habitats: set of h 
end 


This is a simple and logical way of grouping 
data of different types into a meaningful 
whole. Given variables robin and redbreast 
of type bird, a simple assignment statement 
will set one equal to the other: 


robin := redbreast 


To test whether a robin is more than 20 cm 
long, we would have: 


if robin.length>20 then 


and so on. These are simple examples, but 
they suffice to illustrate the flexibility of 
the record type. 

Files: Now let us suppose that | have 
600 entries of type bird in my data bank, 
and want to make a list of all the birds 
whose length is greater than 20cm. It is 
pointless and wasteful to keep all 600 
records in memory for such a task; all | 


name 
length 
habitats 


name 
length 
habitats 


name 
length 


habitats 


name 
length 
habitats 


name 
length 
habitats 


Figure 2: A linked list of records of type 
“bird” with addition of the pointer field 
“next.”’ Deleting the third record is a simple 
matter of changing a pointer field, as shown 
by the dotted line. 


really need is to store them in mass storage 
and read them in one at a time. In Pascal 
what | do is declare a file of records as 
follows: 


var fb: file of bird 


Now, supposing the file to have been written, 
all | need to perform the task is: 


reset(fb) ; 
repeat if fbt length>20 

then writeln(fbt.name) ; get(fb) 
until eof(fb) 


Reset positions the file at its beginning; get 
advances it one record; fot is the buffer 
variable containing the current record; and 
the writeln statement prints the bird’s name. 
The Boolean function eof tests for the end 
of the file. 

Pointers: Finally, let us suppose that | 
wish to update the data bank by deleting a 
bird. It is of course possible to do this by 
storing all the records in an array, but this 
is clumsy and inefficient, since all the 
records following the deleted record would 
have to be shifted one position. List proc- 
essing provides a much better solution. The 
records are linked together into a list by 
inserting a pointer field ‘‘next” into each 
record. Each record will then ‘‘point” to 


the record following it in the list. Deleting 
a record becomes the simple matter of 
changing a single pointer value as illustrated 
in figure 2. Given the pointer ‘current’ 
pointing to the item just before the one to 
be deleted, the following simple statement 
will do the trick: 


currentt next := currentt .nextt.next 


Adding a new record is only slightly more 
complicated. 

Let me repeat that these simple examples 
are not meant to do more than provide a 
brief glimpse of the marvels of Pascal’s 
structured types. For full explanations 
the reader is referred to the texts in the 
references. 


Conclusion 


Rapid though it has been, | hope that this 
survey of Pascal will have brought out 
some of the features which make it vastly 
superior to BASIC. BASIC offers an ab- 
solutely minimal set of features and expects 
you either to devise makeshift solutions or 
to design a new version of the language 
when they are inadequate. No wonder there 
are so many different versions of BASIC. 
Pascal offers a somewhat wider selection 
of features, but avoids the pitfall of trying to 
include every feature known to humanity. 
Pascal is a simple and_ streamlined 
language: the Pascal Report defining 
the language is a mere 32 pages long. Yet 
Pascal’s designers seem to have chosen 
just those features which the user needs to 
expand the language when the need arises, 
so that it is a genuinely general-purpose 
language suited to a wide variety of prob- 
lems. It is this combination of simplicity 
and power which seems to me to make 
Pascal the natural choice for a standard 
microprocessor language.@ 
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Languages Forum 


Comments on Pascal, 
Learning How to Program, 
and Small Systems 


The editorial in the December 1977 
BYTE!’ asked if Pascal is the next BASIC. 
Implicit in this question is the suggestion 
that personal computing needs a widely used 
programming language. Ostensibly, this will 
facilitate exchange of software, and thus 
help eliminate the existing software vacuum 
for personal computer systems. Should 
Pascal be the language used to begin to 
fill this void? To answer this question, we 
should look at the history of Pascal to 
see for what purposes it was developed. 

Wirth states two principal goals for 
Pascal: “to make available a language 
Suitable to teach programming as a systema- 
tic discipline based on certain fundamental 
concepts clearly and naturally reflected by 
the language,” and ‘‘to develop imple- 
mentations of this language which are both 
reliable and efficient on presently available 
computers”’ (emphasis added). 

With regard to the first of these goals, 
Wirth contends that ‘‘the language in which 
the student is taught to express his ideas 
profoundly influences his habits of thought 
and invention.’’ My experience shows that 
this is a remarkably accurate statement. | 
have taught computer science to university 
undergraduates for several years, and recent- 
ly taught several intermediate level courses 
to students with a variety of programming 
backgrounds. The students had all had two 
or three quarters of formal computer science 
courses at the same university during the 
previous year, and all were familiar with the 
same computers. However, some had learned 
to program in BASIC, some in FORTRAN, 
and some in a_ structured variant of 
FORTRAN which included, among other 
features, two varieties of if-then-else, five 
varieties of iterative statements, two varieties 


1. Page 17 of this edition. 
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of multiple branch structures, and a simple 
but powerful procedure facility. The struc- 
tured FORTRAN programmers proved to be 
significantly better performers in the inter- 
mediate level courses in all ways. They were 
much quicker to understand new algorithms, 
new data structures, and new applications. 
They were superior in applying this know- 
ledge to new problems, which can, in part, 
be attributed to the fact that they were not 
thinking in the narrow terms required in 
BASIC and FORTRAN. They wrote better 
programs in assembly language, perhaps 
again because they could think in structured 
programming terms. They also, not unex- 
pectedly, learned Pascal (which was 
taught in conjunction with a data struc- 
tures course) much faster than the other 
students. In fact, some of the BASIC and 
FORTRAN programmers never did make 
the transition to Pascal; they wrote 
Pascal programs that looked like line by 
line translations of BASIC and FORTRAN 
programs. An informal follow-up of some 
of these students in more advanced courses 
showed that the BASIC and FORTRAN 
group continued to lag behind, especially 
in courses in analysis of algorithms and 
design of large systems. 

Of course, this was not a controlled 
experiment, so the conclusions cannot be 
supported scientifically. However, | believe 
it is true that since so much of computer 
science involves abilities to analyze, to or- 
ganize, and to plan, the thinking process 
taught in a first programming course, which 
in turn depends on the language used, has an 
enormous impact on the development of 
computer scientists. 

Thus, Pascal sounds like a good lan- 
guage for beginners (ie: many of today’s 
computer hobbyists). There are other 
reasons for supporting the spread of 
Pascal, including, for example, its out- 
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standing data structuring facilities. Some 
problems are easily stated and solved in 
terms of such structures as sets, lists, 
sequences, trees, or groups of disparate 
items. Pascal allows the programmer 
to define and to deal directly with such 
structures, whereas BASIC and FORTRAN 
force the programmer to disguise these 
structures as arrays. Of course, obscuring 
the original ideas often leads to obscure 
program logic. 

With regard to Wirth’s second goal 
for Pascal, we suddenly have a problem. 
The personal computer systems of today 
are quite different from the “presently 
available computers” Wirth had in mind 
ten years ago. Therefore, some language 
features that are desirable for present 
personal computer systems are absent 
from Pascal. Perhaps the most important 
of these features are in the category of 
access to peripheral devices and processor 
hardware facilities. 

Pascal has only two. primitive IO 
operations: get and put. Each moves a single 
unit of data (character, integer, record, etc) 
from or to a sequential file. Files are not 
necessarily associated with or stored on 
secondary storage devices, although two 
special predefined files (named input and 
output) are available for those files asso- 
ciated with devices that will also be accessed 
by humans. There are in addition two pre- 
defined procedures (named read and write) 
that perform data transmission from or to 
files in particularly useful ways, but it is 
important to emphasize that these are 
procedures (subprograms) and not state- 
ments or operations in the language. 

The peripheral devices of personal com- 
puter systems are extremely varied, and very 
few system configurations are exactly alike. 
Therefore, each user will need somewhat 
different !O capabilities in the language. 
Many users have an on line terminal, access 
to which requires the ability to access 
specific absolute addresses in memory or 
specific port addresses. Users with disks 
will need direct access file capabilities. 
Others may want the ability to process 
interrupts for real time applications. None 
of these capabilities exist in Pascal, and 
none can easily be implemented as a dis- 
guised sequential file. 

The obvious conclusion is that if a push 
for Pascal as the language of personal 
computing is made, there will be a variety 
of nonstandard implementations. This is 
exactly what we have seen with BASIC. 
Implementors will add their own versions 
of their own favorite bells and whistles. 
We may expect numerous methods of 
specifying absolute memory addresses 
(peeks and pokes), direct access disk file 


Statements, and all kinds of facilities to 
handle the exotic peripherals being attached 
to personal systems. In addition, imple- 
mentors will want to add their own favorite 
data type (for example, Pascal does not 
have a built-in string data type), and their 
own favorite operator (for example, 
Pascal does not have an exponentiation 
operator). Next, seeing the size of the 
resulting compiler, implementors will begin 
to delete their least favorite standard fea- 
tures (often meaning the ones they least 
understand), in order to come up with a4 K 
version of “‘eensyweensy Pascal.”’ 

One approach to preventing some of the 
problems just mentioned is to get all of us 
hobbyists together to agree (is this possible?) 
on a standard set of additions and deletions, 
or perhaps a few standard sets in order to 
develop 8 K, 12 K, 16 K, etc, versions. The 
traumatization of the language could be 
minimized by requiring that all the new 
features be implemented as procedures, 
rather than as new statement types, thus 
maintaining the syntactic integrity of the 
language. Of course, this would require a 
capability to link external procedures to 
each Pascal program, and none of these 
procedures could be written in Pascal. 
This means either that all users will need 
to know another programming language, 
or that the implementors of the new 
varieties of Pascal will have to supply 
customized procedures for each customer. 

There is a fundamental flaw in_ this 
approach, however. Pascal was not in- 
tended to be all things to all people. It was 
designed with specific, well thought out, 
predefined goals. All aspects of the language 
were designed to complement each other 
in attaining those goals. Any deletion from 
the language, however minor it seems, will 
upset this balance, and thus damage 
Pascal’s ability to achieve its goals. Dele- 
tions and additions will also change the 
character of the language, and it is this 
overall character of Pascal that has 
brought it so many devotees. 

A better approach, | believe, is for those 
of us in personal computing to get together 
to agree on principles for the next widely 
used language, rather than on the features 
to add to or delete from an existing lan- 
guage. This is not any kind of vote against 
Pascal; to the contrary, | hope Pascal 
will become available to all hobbyists 
with systems that can support standard 
Pascal, and that it be used for all suitable 
applications programming. | have used 
Pascal for at least 95% of my own pro- 
gramming over the last three years, and | 
cannot recommend it too strongly. 

If a new personal computing language 
were developed from guiding principles, 


| would hope that it would have much of the 
flavor of Pascal. | would hope it would be 
syntactically uncluttered like Pascal, 
not only because it makes the language 
easier to use, but also because it allows 
much simpler (smaller) language  trans- 
lators. | would hope it would have con- 
trol structures at least as strong and as 
logical as those of Pascal, and data 
structuring facilities as simple and powerful 
as those of Pascal. It should be designed 
so that we can write almost all of our soft- 
ware in this one language, including both 
systems and applications programs. It should 


not try to provide every feature of every 
existing language, but rather, like Pascal, 
provide a small set of primitive constructs 
from which users can define their own 
powerful features. It should allow us to 
write truly portable programs and to main- 
tain a library of procedures, since a good 
procedure facility, like that of Pascal, 
is perhaps the single most important tool 
for software developers. But whatever we 
choose to put in the language, let us design 
it from principles, and not evolve it from a 
set of independent features, as was the case 
with BASIC and FORTRAN. m 
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Editorial 


Is Pascal the Next BASIC? 


One of the most interesting phenomena 
in the academic world of computer science 
of late is the language Pascal. This lan- 
guage is the subject of much intense activity, 
and is rapidly gaining acceptance as the lang- 
uage of choice for training and illustration 
of computer concepts to new students of 
the field. Characteristic of this phenomenon 
is the existence of on the order of 100 
different implementations of the language 
for various computers and a very active 
“Pascal User’s Group.” 

Pascal began in the late 1960s as a 
tutorial experiment of Professor Niklaus 
Wirth: a method of teaching the concepts 
of programming in a systematic fashion 
using a consistent and highly structured 
program representation. Historically, 
Pascal has antecedents in the ALGOL 
language but with the addition of con- 
cepts such as record and file structures 
which were missing in ALGOL’s definition. 
The following passage by Professor Wirth 
gives the essence of Pascal’s purposes. . . 


The development of the language 
Pascal is based on two principal aims. 
The first is to make available a language 
suitable to teach programming as a system- 
atic discipline based on certain fundamental 
concepts clearly and naturally reflected by 
the language. The second is to develop 
implementations of this language which are 
both reliable and efficient on presently 
available computers. 

The desire for a new language for the 
purpose of teaching programming is due to 
my dissatisfaction with the presently used 
major languages whose features and con- 
structs too often cannot be explained [ogi- 
cally and convincingly and which too often 


Carl Helmers 


defy systematic reasoning. Along with this 
dissatisfaction goes my conviction that the 
language in which the student is taught to 
express his ideas profoundly influences his 
habits of thought and invention, and that 
the disorder governing these languages 
directly imposes itself onto the program- 
ming style of the students. 

There is of course plenty of reason to be 
cautious with the introduction of yet 
another programming language, and the 
objection against teaching programming 
in a language which is not widely used and 
accepted has undoubtedly some justifi- 
cation, at least based on short term com- 
mercial reasoning. However, the choice of a 
language for teaching based on its wide- 
spread acceptance and availability, together 
with the fact that the language most widely 
taught is thereafter going to be the one 
most widely used, forms the safest recipe for 
stagnation in a subject of such profound 
pedagogical influence. | consider it therefore 
well worthwhile to make an effort to break 
this vicious circle. [Quoted from the second 
edition of the Pascal User Manual and 
Report, by Kathleen Jensen and Niklaus 
Wirth, Springer Verlag, New York, 1974, 
page 133.] 


Since the time of Pascal’s creation by 
Professor Wirth, the language has become 
widespread, primarily because his tutorial 
purposes also happen to coincide with what 
one might want in a systems and appli- 
cations programming language used in 
software development. In fact acceptance 
has been sufficiently widespread that there 
now exist implementations for some of the 
more common microprocessors in the 
personal computing field (using the Pascal 
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User’s Group Newsletter as a source for 
this information in a listing of implemen- 
tations in issue #8 recently published). What 
are the ramifications of Pascal as it might 
affect personal computing users? 

At the present time, outside of low level 
assemblers, the personal computing field is 
dominated by one language, BASIC. It is the 
high level language of choice for users of the 
equipment and for manufacturers who sell 
to the users of the equipment. Any at- 
tempted personal computing system design 
these days must come up to the standards 
of a reasonable BASIC (such as the Micro- 
soft BASIC used by MITS, OSI, Commodore 
and others) or it will be at a relative dis- 
advantage in the marketplace. This domi- 
nance of BASIC as a language is a fact of life 
in this field. A decade and a half of language 
design evolution has occurred since BASIC 
first came on the scene, yet it still dominates 
at the user level. Why? 

In a casual enumeration mode, | can list 
several fairly obvious and_ interrelated 
reasons why this has become the case; out 
of these reasons will come a similar scenario 
for development of Pascal as a future 
option for personal computers. 


@ Everybody knows BASIC. 

@ BASIC has a manufacturer indepen- 
dent standard definition. 

@ Lots of implementations of BASIC are 
available. 

@ Much personal use applications soft- 
ware already exists in BASIC. 

@ BASIC is friendly. 


At a superficial level, these reasons are 
part of a self-sustaining loop of circular 
reasoning: Since BASIC is friendly, every- 
body wants to know BASIC; since so many 
people learn BASIC, there tend to be lots 
of implementations. Much software for 
applications has been written in BASIC. 
Since a manufacturer independent standard 
for BASIC exists, conversion of programs 
from one machine to another is simplified, 
thus making widely available software useful 
to people, and so on... ad infinitum. .. 
This is Professor Wirth’s “vicious circle.” 

Like many similar conventions, BASIC 
has been bootstrapped into the public 
awareness over time, and has acquired a 
certain inertia of its own that will keep it 
going for years in the same way that 
FORTRAN seems to live forever. Let’s 
examine the reasons in this list, and in so 
doing compare BASIC to Pascal, a lan- 
guage which is quite possibly in an earlier 
Stage of a similar bootstrap cycle and may 
indeed become a much demanded “language 
of choice” for the user community. Vicious 
circles can have positive aspects: it all 


depends on which circle one has established. 
A contention | make is that the same sort 
of ‘vicious circle’ can be, and indeed is 
being established for the language Pascal. 


Everybody Knows BASIC. 


BASIC historically was introduced at a 
time when “big” computers dominated the 
field, and there was a need to partition the 
activities of such computers into small 
individually oriented packages for purposes 
of making the ‘“‘big’’ computer available 
to many people. This partitioning succeeded 
admirably: when professor X (or Y or Z) 
wanted to make real exercises in program- 
ming available to students, BASIC was 
frequently employed, due to its availability 
and interactive simplicity. Like any tech- 
nology, BASIC did not start out in an 
“everybody knows” state, but it got that 
way through its early availability and no 
small push from pedagogues of computer 
science. 

Today, the teachers of programming are 
tending to push Pascal as the language of 
choice for teaching ‘“‘good’”’ programming 
concepts. The Pascal User’s Group is 
evidence of the number of academic people 
who support the ideas of Professor Wirth to 
the extent of implementing their own local 
Pascal systems for educational purposes. 
(This is typically done using a number of 
techniques of machine independence con- 
ceived by early implementors of Pascal 
for purposes of spreading its implemen- 
tations.) One result of this availability is that 
Pascal is becoming the tool of teaching 
programming concepts which Professor 
Wirth envisioned . .. and the beginnings of 
the “everybody knows” state for Pascal 
are already evident. 


BASIC Has a Manufacturer Independent 
Standard Definition. 


This comment is nominally true of 
BASIC. Work is indeed in progress on an 
ANSI standard for BASIC, and there is 
of course the original Dartmouth College 
definition of BASIC. The fact that people 
are trying to define a standard form of 
BASIC, however, is a result of the fact 
that the implementations of BASIC have 
been somewhat subject to variations. In 
the personal computing world, there are 
numerous differences at a detail level 
between language extensions of various 
BASIC interpreters, some as basic as the 
variations in string and array handling 
in various forms of minicomputer BASIC. 

BASIC language implementors are no 
different from implementors of a number 
of languages, often succumbing to the 
‘“wouldn’t it be neat if” syndrome and 


throwing in features not part of the original 
definitions of the language. The hitch with 
such featurism is that if anyone uses the 
features, the programs written with the 
feature may no longer be portable. 

Of course Pascal would be no more 
immune to featurism on the part of imple- 
mentors; at least that would be an obvious 
contention since there is no fundamental 
difference between people who implement 
BASIC and people who implement Pascal. 
But before making such a statement, an 
examination for the motives of implemen- 
tation featurism should be made. BASIC 
in its original definition is a very limited 
and parochial language, one which represents 
a viewpoint of quick implementation of 
programs with limited IO formatting, 
standard floating point operations, and no 
intent to service large or complicated 
applications. Thus, many of the “feature” 
temptations presented to BASIC imple- 
mentors are a result of attempts to correct 
the deficiencies of BASIC by adding omitted 
items (for example, strings, implemented 
differently in various BASIC interpreters). 

Pascal, on the other hand, by having 
a definition which is more general in scope 
than BASIC (although by no means compli- 
cated to use in simple problems) helps cut 
down these “feature” temptations on the 
part of its implementors. One basic example 
of this slightly more general definition is 
in Pascal’s inclusion of extensible data 
types which can be declared, as well as 
file and record structures missing from 
BASIC. Pascal is a block structured 
language allowing multiple character strings 
for procedure and data names, and is thus 
closer to the natural symbolic thought 
processes of designing a program than is 
BASIC. 

A classical contrast between the two 
languages in this area of features is to pose 
the problem: How would I use the language 
to include complex numbers for use in 
engineering analysis or physics? In BASIC, 
| might not even want to consider the 
possiblity of using the language for complex 
numbers because of the kluge that would 
result. Using Pascal, | would simply use 
the type extensibility of data to declare a 
complex number type and code various 
procedures to implement complex number 
operations. An example of this concept, 
which involves no features not inherent in 
Pascal’s definition, is given on pages 
42ff of the Pascal User Manual and 
Report quoted earlier. Of course, perhaps 
not all possible or desirable features were 
included in Pascal’s definition, so dialects 
may occur there as well as in BASIC. But the 
necessity of dialects generated through 
extensions is probably less in Pascal, 


making the standard created by Professor 
Wirth a closer approximation to what 
actually gets implemented. 


Lots of Implementations of BASIC 
Are Available. 


Here is where BASIC no doubt has a 
considerable lead over Pascal at the 
present time. But Pascal is rapidly gaining 
in a catch up mode. As noted earlier, there 
are presently nearly 100 different implemen- 
tations of Pascal, mostly for minicom- 
puters and larger computers ranging in size 
and scope up to a CRAY-1 implementation 
of Pascal. At the low end, according to 
the Pascal User’s Group Newsletter, 
number 8, page 64, there are presently 
compilers implemented for the Motorola 
6800, Intel 8080 and Zilog Z-80 micro- 
processor architectures (although the listing 
did not mention whether the compilers 
were self-compilers or cross compilers). 
Implementations are coming, part of the 
history of the language and the active 
following it has among computer science 
people. 


Much Personal Use Applications Software 
Already Exists in BASIC. 


No argument here. The number of books 
and periodicals which publish programs 
in BASIC will probably exceed the number 
with Pascal representations of equivalent 
programs for a long time to come. But this 
is equivalent to saying that BASIC has been 
around longer in the public eye, for given 
time much of the same sort of software can 
and will be written in Pascal as more and 
more implementations become available. 


BASIC is Friendly. 


BASIC is fundamentally an interactive 
approach to programming in which pro- 
grams are entered in source form and tested 
within the confines of one session with 
effectively instant change from editing to 
execution. If Pascal is to become an 
equivalent “friendly” language, it must be 
implemented in a way which allows a 
similar instant change from editing the 
design to trying out the design of an appli- 
cation. 

Whether this friendliness requirement 
can be best met by an interpreter or a 
compiler is an open question, but it is 
a definite requirement. In BASIC the 
rule to date has been interpretive, or semi- 
compiled code, where semicompiled means 
that symbols for language tokens are re- 
placed by compact codes. In Pascal 
to date, compilation has been the rule 
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rather than the exception. It is conceivable 
that a compiled Pascal coupled with an 
editing and object code maintenance facility 
oriented to the block level might give 
sufficiently quick response at the terminal 
with much faster execution times associated 
with compiled code. 

Another open question concerning 
Pascal is that of how much memory is 
required for a Pascal self-compiler or 
resident interpreter in a typical personal 
computer’s microprocessor based system. 
| suspect that a compiler or interpreter of 
Pascal can be built which will fit within 
16 K to 32 K bytes of memory, but whether 
this is really possible or not is by no means 
clear to me. 

To sum up the thesis, Pascal is well 
on its way to becoming the kind of widely 
known language which will be taught as 
a matter of course to new students of 
programming. This in turn will tend to boost 
the long term acceptance of Pascal and 
get it established as one of the major lang- 
uages, a process which at an earlier date 
occurred for FORTRAN and BASIC. For 
our own part, we at BYTE are interested in 
giving Pascal a boost. We have a survey 
article about Pascal in preparation at the 
present time. We would also like to talk to 
implementors of the language who would 
be interested in marketing Pascal com- 


pilers or interpreters through software 
book publications which include source code 
and machine readable object code. For those 
who desire more background information 
on Pascal, we recommend the Pascal 
User’s Group, run by Andy Mickel at the 
University of Minnesota Computer Center, 
227 Exp Engr, University of Minnesota, 
Minneapolis MN 55455, (612) 376-7290. 
The Pascal Newsletter is published four 
times per year, and at the time of this 
writing costs $4 per year.™ 


Note on the Pascal User’s Group 


As of July 1, 1979 the Pascal 
User’s Group (PUG) has over 3300 
members in 47 countries. Those in- 
terested in joining can contact Andy 
Mickel at the University of Minnesota 
Computer Center, 227 Ex Engr, Univer- 
sity of Minnesota, Minneapolis MN 
55455, (612) 376-7290. The Pascal 
Newsletter js published four times a 
year ona July to June schedule, with a 
subscription fee of $6 per year. All 
issues for the current year are sent 
with a new subscription, and back 
issues are available. 


Languages Forum 


Concerning Pascal: 


A Homebrew Compiler Project 


Your editorial in December 1977 BYTE! 
was commendable. It served to reinforce 
my conviction that Pascal is the next 
step up from BASIC for personal computing. 
As you and your readers know from the 
biographical sketch that preceded my article 
in November 1977 BYTE2, a Pascal 
compiler is my pet microcomputer project. 
Because that sketch prompted a number 
of inquiries about the status of my work, 
| thought a letter to BYTE would be timely 
following your editorial. 

My approach to the compiler is to start 
with a small subset of Pascal and add 
features as my resources and talents permit. 
I’ve begun by determining the minimum 
subset needed to describe its own compiler. 
Because statements written in the resulting 
language will still be valid Pascal, the 
initial version can be debugged and run as a 
cross compiler on any computer which 
supports the full language. When opera- 
tional, my compiler will convert itself to 
machine code to be loaded on the target 
microcomputer. Further development will 
be done on that machine. Each subsequent 
revision will be written in the Pascal sub- 
set of the previous One. 

At this writing, | have completed the 
parsing procedures and am testing them ona 
DECsystem 10 with the guidance of Dr 
Robert Mathis at Old Dominion University. 


1. Page 17 of this edition. 
2. “Simulation of Motion: An Improved Lunar 
Lander Algorithm.” 


Stephen P Smith 


The production of machine code is still 
some way off, because | feel | need more 
experience with the instruction set of the 
target machine, MOS Technology’s 6502. 
| expected to get this experience with a 
6502 based Challenger I ordered from Ohio 
Scientific in August, but it has yet to be 
delivered. Perhaps this spring | will have an 
operating compiler to report. 

As an alternative to my subset approach, 
there is another way to implement Pascal. 
It reflects upon your editorial discussion of 
the compiler/interpreter alternative. | am 
developing a pure compiler, but the standard 
Pascal implementation is a hybrid. A pro- 
gram is available to convert source programs 
into assembly code for a hypothetical stack 
computer (HSC code). The assembled 
hypothetical stack machine code is then 
interpreted by the target machine. This 
technique has speeded implementation of 
Pascal at several installations, and might 
be useful for personal computing since the 
hypothetical stack machine code is itself 
portable. A club, for example, might main- 
tain the source to hypothetical stack 
machine compiler on one member’s com- 
puter which had the necessary resources. 
Other members need only support the 
hypothetical stack machine assembler and 
interpreter for their machines. Although 
Operationally more cumbersome than direct 
machine language compilation, this approach 
might speed up the availability of Pascal 
and reduce the hardware requirement for 
applications users. # 
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Languages Forum 


A Proposed Pascal Compiler 


A Note About the Tiny Pascal project... 


Kin-Man Chung 
Herbert Yuen 


The three part article “A ‘Tiny’ Pascal Compiler’’ plus the complete 
p-code to 8080 conversion program listing are included in this edition 
beginning on pages 59 and 203 respectively ...BWL 


In the Languages Forum of the April 
1978 BYTE, page 150', we read Stephen 
Smith’s report on his homebrew compiler 
project. Actually, he is developing the Pascal 
subset compiler on a mainframe computer at 
a university and planning to transfer it to a 
microcomputer. He said he had a minor 
problem with code generation (using 6502 
machine code). We think his project might 
progress more smoothly if he uses another 
approach—that of generating assembly code 
for a hypothetical stack machine. This ts 
the same method professionals use for 
implementing portable Pascal compilers on 
big computers. 

Our own homebrew compiler project was 
developed in house on a microcomputer 
that uses an 8080 processor and has a North 
Star disk system. We began in mid December 
of 1977. Our motivation came from the fact 
that the North Star disk BASIC, although 
very good for general programming pur- 
poses, was not fast enough for system soft- 
ware development and some graphic games. 
For instance, our 8080 assembler, written in 
BASIC, takes 1 to 3 seconds to assemble 
one single assembly instruction. Assembling 
a 500 line program takes about one half 
hour. From various sources of information 
we know that Pascal is one of the easiest 
languages to implement. It also has many 
nice features that are desirable in a high level 
language. 

The Pascal subset is small, otherwise it 


1. Page 21 of this edition. 


would be very difficult to develop using a 
BASIC interpreter. All variables in the 
subset are 16 bit integers. Arrays are single 
dimensional. Character strings are declared 
as arrays and each character takes one array 
element; although wasting space, this is easy 
to implement. Procedures and functions may 
be recursive. Variables and_ constants, 
except arrays, can be passed as arguments 
to procedures and functions. Language state- 
ments include declaration, assignment, 
BEGIN-END, IF-THEN-ELSE, WHILE-DO, 
REPEAT-UNTIL, FOR-TO/DOWNTO-DO, 
CASE-OF-ELSE. The subset is big enough 
to provide useful features. The Pascal 
compiler can be written in the subset with- 
out much difficulty. 

The actual coding of the compiler (in 
BASIC) began in January 1978. The com- 
piler generates p-code for a hypothetical 
stack machine, the same one described in 
Wirth’s book, Algorithm + Data Structure = 
Programs. (P-code is the intermediate code 
generated by the Pascal compiler. It is the 
machine language of a hypothetical Pascal 
oriented computer. Use of p-code makes 
the Pascal language portable since only a 
p-code interpreter needs to be written for a 
particular processor. This saves the user 
from writing the entire compiler for each 
individual machine.) Several instructions and 
input/output (IO) capabilities have been 
added. At the same time, an interpreter was 
also written (in BASIC) to execute and 
debug the p-code. It helps to verify the 
correctness of the codes generated by the 
compiler. In late January, after most parts 
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of the two programs had been debugged, 
we began to design a run time support 
package in 8080 assembly language and also 
a translator that translates p-code to 8080 
machine code. With the debug package and 
simulator in the system (see Kin-Man’s 
article ‘‘An 8080 Simulator’”’ in the October 
1977 BYTE, page 70), we did not have 
much trouble debugging the run time 
routines. During March most of our time was 
spent in refining all the routines: revising 
some features and extensions in the com- 
piler, adding local optimization capabilities 
in the translator and improving the effi- 
ciency of the run time routines. The run 
time routines, which perform all 16 bit 
integer arithmetic and logical operations and 
IO conversions, take only 1 K bytes of 
memory. 

The first step in the bootstrapping pro- 
cess was to write the interpreter in Pascal 
since it is the slowest but shortest program. 


It was coded by straightforward translation 
from the BASIC version. Debugging was 
smooth and the entire program was up and 
running within a week. Compared to the 
BASIC version, the Pascal version runs about 
15 times faster; slightly better than we 
expected. Our next step will be writing the 
translator and compiler in the Pascal subset. 
After that, further development can be done 
in Pascal without the BASIC interpreter. 

For three months, each of us have been 
spending about 10 to 15 hours a week on 
this project. The first version (in BASIC) of 
the compiler and supporting software were 
completed with an estimated effort of two 
working months. Considering such a short 
time period and a functioning compiler, 
we believe we are approaching the task 
from the right direction. We hope that our 
project will attract the attention of many 
readers so that we can share our interest 
and experience in Pascal with them.™ 


About The Language 


BLANK 


Pascal 


A Structurally Strong Language 


People should be able to communicate 
their ideas to a computer in a language that 
people understand; not simply in a language 
they know. Additionally, if the computer 
can be made to understand the same language 
easily, all the more reason to consider its 
use. Such a language is Pascal. This lan- 
guage, perhaps more than any other com- 
mon language, is the easiest to understand 
and more importantly, allows a straight- 
forward presentation of most algorithms. 
Although many languages also make this 
claim, few have the overwhelming and 
energetic support from collegiate computer 
science departments. Let’s consider some 
of the language features of Pascal. 

This language is equipped with a precise 
syntactical description that defines both 
how programs may be constructed and 
how Pascal compilers should function. 
There is a required form for programs, 
statements within programs, and data 
operated upon by programs. At first glance, 
a naive user may rebel at this apparent lack 
of freedom (eg: BASIC allows a dimension 
statement virtually anywhere in a program). 
One soon learns that this structure admits 
very general programs and in no way limits 
the programmer in exercising his talents. On 
the contrary, it forces the user to think 
logically and plan out the program. 

A program written in Pascal may utilize 
the free format form of programs that 
is conducive to structured programming. 
Unlike line oriented source languages, 
Pascal allows extra spaces, tabs and car- 
riage controls to be inserted anywhere with- 
out significance except in the middle of 
identifiers or character strings. Comments 
may be inserted wherever spaces may be 
inserted and are delimited by “(* ... *)”. 


Stephen A Alpert 


A program is made up of two parts, a 
heading and a block. The heading contains 
the name of the program and lists its param- 
eters. The parameters are somewhat im- 
plementation dependent but normally 
specify the names of file pointers from 
which the default input is received and to 
which output is sent. A typical heading is 


program parser (input, output) 


A block consists of six separate segments or 
sections of a program. All but the last part 
are optional. These are: 


@ Label declaration section 

Constant declaration section 

Type declaration section 

Variable declaration section 

Procedure and function declaration 
section 

@ Statement section 


Labels in Pascal identify statements 
to which control may be transferred. Labels 
are numeric; more specifically, unsigned 
integers. Not every statement requires a 
label. In fact, most Pascal users consider 
programs better if they have fewer labels. 
At first glance, these declarations might 
seem a nuisance, but they force the user 
to think about the entire program before 
sitting down at a terminal. 

The constant declarations allow a user to 
Create synonyms for constants used in the 
program. Thus 


const pi=3.141592; 
e=2.7182818; 


defines the constants ‘‘pi’’ and ‘‘e” for use 
throughout the program. Clearly, it no 
longer is necessary to type 3.141592 in the 
several places required by a program. Addi- 


PASCAL forces the user 
to think logically and 
plan out the program. 


Most PASCAL users con- 
sider programs better if 
they have fewer labels. 
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Arrays may be multi- 


dimensional and include 


Items of different types 
may be aggregated into a 
single entity that can be 


28 


arrays of arrays. 


stored as one logical 
unit. 


tionally, one may name character strings 
as well 


const title=’matrix inversion program v01’; 


The type declaration section allows creation 
of user defined named data types. This 
will be discussed in some detail later. Pascal 
has four predefined data types: integer, real, 
Boolean, and character. Most versions of 
BASIC support the first three types and 
Strings. Data of type character is very con- 
venient in a microprocessor environment 
since a byte is the basic unit of memory. 

The variable declaration section requires 
the naming of all identifiers that will be used 
as variables within this block. FORTRAN, 
BASIC, APL, and LISP do not adhere to this 
convention. Again Pascal forces the user 
to think about what he wants to say before 
he says it. A sample variable declaration 
section might be 


var x,y : integer; 
cost: real: 
flag:boolean; 


Pascal’s design allows the user to combine 
the utility of type declarations and variable 
declarations into data forms that would 
shame BASIC and FORTRAN. We have 
already seen Pascal’s predefined scalar 
variable types above. These are actually 
known as simple types. 

Another simple type is the subrange type. 
Often a variable in a program may be ex- 
pected to take on values only from a subrange 
of a simple type, say integers. For example 


var asiz:1..100; 


meaning ‘‘asiz’’ will be an integer whose 
values should lie between 1 and 100. Note 
that the compiler might choose to store 
“asiz’’ as a byte rather than a word If it was 
efficient enough to do so. Alternatively, if 
several variables are of the same range, a 
type statement could have been used 


type lsiz=1..100; 
var asiz, bsiz, f1:lsiz; 


Another simple type is the symbolic 
scalar type. This feature permits identifiers 
to be used in place of a sequence of integers, 
greatly enhancing the readability of the 
program. Suppose a program needed to 
represent the months of the year as a vari- 
able associated with some billing informa- 
tion. The approach in BASIC would be to 
use the sequence 1, 2, ... , 12. Pascal 
could use the subrange type 1... 12 or better 

type 
months = (jan, feb, mar, apr, may, jun, 


jul, aug, sep, oct, nov, dec); 
var billmonth,duemonth: months 


In the statement section of a program, 


“billmonth” may be assigned one of the 
symbolic scalars from ‘‘months” or tested to 
see how its value compares with ‘“‘due- 
month.”’ There are several functions avail- 
able that operate on symbolic scalars, for 
example, ord(billmonth) would yield a 
number between O and 11 indicating the 
position of that month in the list “‘months.”’ 

Simple types are part of a more general 
data description called a type. Types include 
pointers which are used when dynamic data 
storage is referenced, file pointers which are 
used to reference secondary data storage, 
and arrays which are used with vector data 
storage. An example of an array declara- 
tion is 


var cost: array[months] of real; 


Notice that this array will be indexed, or 
subscripted, by “months.” In general, 
arrays may be indexed by any simple types, 
may be multidimensional, and may be of 
any type, including arrays of arrays. 

Two additional types set Pascal in a 
class by itself; these notions allow powerful 
algorithm descriptions. The set type allows 
user manipulation of sets. Consider 


var special: set of months; 


The union, intersection, and set difference 
operators as well as relational operators may 
be applied to sets. A variable of scalar 
type may be tested for membership in a set 
of the same scalar type, for example 


if billmonth in special then... 


The last type is the record type. Items of 
different types may be aggregated into a 
single entity that can be stored as one logical 
unit, for example as one element of an 
array. 


type 
customer = record 
name:array[1..20] of char; 
bal,bal30: real; 
datedue: daterec 
end; 
daterec = record 
day: 1..31; 
mo:months; 
year: integer 
end; 
var 
database: array[1..100] of customer; 


To reference fields of a record, the record 
name followed by a period, followed by the 
field name is used. Hence the over 30 day 
balance of customer 12 is “‘database[12]. 
bal30”’ and the day of the due date of the 
current bill of customer 27 is ‘“‘database[27]. 
datedue.day.”’ The full impact of record 
types cannot be explained in this short 
article; they must be used to be appreciated. 
One advantage of records is that items may 


be logically grouped together rather than 
stored in parallel arrays. 

Procedure and function definitions would 
follow next in a program. They may be 
recursive and permit parameter passing in a 
style somewhat similar to ALGOL. Because 
of the position in a program of these declara- 
tions, procedures and functions may 
reference globally any variables or types 
defined in the main program. The body of a 


procedure or function is identical to the 
body of a program; hence, procedures may 
be defined within procedures, and so on. 
Any variables defined within procedures or 
functions are considered local to the pro- 
cedure and are unique to each invocation of 
the procedure. The sample program in 
listing 1 has several examples. 

The statement portion of a program is 
called a “compound.” A compound is a 
sequence of the keyword begin, any num- 
ber of statements separated by semicolons, 
and the keyword end. The program ends 
with a period. Each of the statements with- 
in a compound may be one of a variety of 
different kinds of statements. Assignments, 
like 


database [i+k] .bal:=total 


are the most common statements. Pascal 
supports a large number of control state- 
ments which give the language its structure. 

Pascal has a looping control similar 
to that of standard BASIC but the step or 
increment may be only +1 or —1. The for 
statement causes a single statement, which 
could be quite complex, to be executed 
some number, including zero, times. For 
example 


for ind. =1 to 100 do 
begin 
due:=1.006*database [ind] .bal; 
database[ind] .bal:=0.0; 
sum:=sum+due; 
database [ind] .bal30:= 
1.006* database [ind] .bal30+due 
end 


This segment shifts the balance 30 days, 
adds some interest charge and accumulates 
a sum of the recently aged balances. If in 
a for statement, the increment were to be 
—1, then the keyword downto would re- 
place the keyword to. 

Pascal supports both simple condi- 
tional and _ full conditional statements; 
that is 


if <condition> then <statement> 
and 

if <condition> then <statement> 

else <statement> 


Any dangling else, an else which follows a 
sequence of “if... thenif...then...,” 
is paired with the innermost if. 

When working with records, partial ad- 


Listing 1: The Polish “compiler” listing. Notice that Pascal does not con- 
strict the format of the program line. Indentation allows the program blocks 
to be easily separated from each other and makes the program easier to read. 


PROGRAM PARSECINPUT, OUTPUT). 
©*PROGRAM PARSES SIMPLE ARITHMETIC EXPRESSIONS 
INTO THEIR RESPECTIVE POLISH CODE IT DOES 
THE PROPER TYPE CONVERSIONS NECESSARY FOR 
REAL AND INTEGER EXPRESSIONS ACCORDING TO 
THE FORTRAN CONVENTION 
REAL A-H. O-2 
INTEGER: I-N 
VARIABLES ARE ONE LETTER LONG*) 
LABEL 939; ¢*FOR ERROR RESTART*) 
CONST 
DONTCARE=’?7°; C*MARKERS FOR CODE GENERATOR*) 
MAXPC=#108., C*MAXIMUM CODE SPACE*)> 
TYPE 
CODESPACE=1. . MRXPC; C*ADDRESS SPACE*)> 
ATTR=CNONE, INT, READ; C*#ATTRIBUTES OF OPCODES AND EXPRESSIONS*) 
LEXTY=<CADDOP. MULOP., LPAREN., RPAREN, IDENT. EOL), 
C*THESE LEXEMES FOR INPUT ASSUME A NON-HOSTILE USER*) 
INSTRUCTION#RECORD 
OPC: CHAR; ¢*OPCODE*)> 
ITYPE: ATTR, C*OPCODE TYPE*)> 
ADR: CHAR C*NAME OF IDENT*> 
END; 
VAR 
CODE: ARRAYCCODESPACE) OF INSTRUCTION, C*WHERE CODE GOES*)> 
PC: CODESPACE;: ¢*PC OF CURRENT INSTRUCTION*) 
GATTR: ATTR;s ¢*GLOBAL TYPE OF EXPRESSIONS*) 
CH: CHAR; C*#CURRENT INPUT CHARACTER*) 
CHTYPE: ATTR; ¢C#CURRENT CHARACTER ATTRIBUTE IF IDENT*) 
LEX: LEXTY: C*LEXEME OF CURRENT INPUT*) 
BFR: PACKED ARRAY 1. . 80) OF CHAR. (#INPUT BUFFER*) 
BP: INTEGER: <¢*CHARACTER BUFFER POINTER*) 
PROCEDURE SCAN; ¢*PROCESS NEXT INPUT CHARACTER*) 
BEGIN 
REPEAT 
BP: =BP +1; 
CH: =BFRC BP) 
UNTIL CHE’ 7%; 
C*#WORRY ABOUT END OF LINE*) 
IF ORDC(CH)=8 
THEN LEX: EOL 


ELSE 
IF CH IN €°A’.. °2°] 
THEN 
BEGIN 
LEX: IDENT; 
IF CH IN C°I’.. “N“) 
THEN CHTYPE: =INT 
ELSE CHTYPE: =REA 
END 
ELSE 
CASE CH OF 


“¢°: LEX: L PAREN; 
“>”: LEX: sRPAREN, 
“4°, %’=": LEX: sADDOP; 
7m?, 77°: LEX: sMULOP 
END 
END <#OF SCAN*); 
PROCEDURE ERROR; 
BEGIN 
WRITELNC’ ’: BP+1.°f ERROR’); C*#COMPENSATE FOR USER PROMPT*) 
GOTO 99 
END ¢#OF ERROR*); 


PROCEDURE GENCODECF: CHAR, I-ATTR, A: CHARD; 
BEGIN PC: =PC+1; 
IF PC>MAXPC 
THEN BEGIN WRITELN( “OVERFLOW’ >; ERROR END; 
WITH CODECPC) DO ¢* INDEX INSTRUCTION*> 
BEGIN OPC: =F; ITYPE: =I; ADR: =A END 
END <*CF GENCODE™*); 
PROCEDURE LISTCODE; 
VAR LPC: CODESPACE: 
BEGIN 
FOR LPC: =1 TO PC DO 
WITH CODECLPC) DO BEGIN ¢(*INDEX INSTRUCTION*> 
CASE OPC OF 
“+°:WRITEC’“ADD? >. 
“-’: WRITEC“SUB’ >; 
‘@’: WRITEC’NEG’); 
“mu? WRITEC “MUL” >. 
“7°: WRITEC DIV’); 
“F°: WRITEC “FLOAT” ); 
“P’: WRITEC’PUSH’> END, 
IF OPC#’F’ 
THEN 
BEGIN 
IF ITVYPE=INT THEN WRITEC’°I’> ELSE WRITEC’R’) 
END; 
IF OPC=’P’ THEN WRITELN(CHR(11B). ADR) ELSE WRITELN 
END ¢*OF WITH AND FOR*)> 
END (*OF LISTCODE*); 


Listing 1, continued: 


PROCEDURE FIXUPCAX: CODESPACE; <*PC OF FIX LOCATION OF OPERAND 1*) 


LOP: CHAR; C*CURRENT OPERATOR*) 


LATTR: ATTR)D; C*ATTRIBUTE OF OPERAND 2*> 


VAR TPC: CODESPACE: 
BEGIN 
IF GATTR#LATTR ¢*TYPES DON’T AGREE*> 
THEN 
BEGIN 
IF GATTR#INT C*FLOAT OPERAND 2*)> 


THEN BEGIN GENCODE<’F”’. NONE. DONTCARE >); GATTR: =REA END 
ELSE <*HAVE TO FLOAT OPERAND 1, MOVE CODE UP*)> 


BEGIN 


IF PC=MAXPC THEN BEGIN WRITELN‘< “OVERFLOW’ >. ERROR END; 
FOR TPC =PC DOWNTO AX DO CODEC TPC+1): CODEC TPC). 


PC: =PC+1; <¢*TOOK ANOTHER WORD*)> 
CODECAX). OPC: =“F’ ¢*FLOAT OPERAND 1) 
END 
END; 
GENCODECLOP., GATTR, DONTCRRE>) ¢*GENERATE OPERATION*) 
END ¢#*OF FIXUP*); 
PROCEDURE EXPR; ¢*HERE IS ALL THE WORK*) 
VAR 
LOP: CHAR, C*CURRENT ADDOP*) 
LATTR: ATTR, C*ATTRIBUTE OF OPERAND 2*) 


AXPC: CODESPACE:; (¢*WHERE FLOAT OF OPERAND 1 GOES. IF NEEDED) 


PROCEDURE TERM. 
VAR 
LOP: CHAR; ¢*CURRENT MULOP*) 
LATTR: ATTR; (*#ATTRIBUTE OF OPERAND 2*)> 


AXPC: CODESPACE; (*WHERE FLOAT OF OPERAND 1 GOES. IF NEEDED*) 


PROCEDURE FACTOR; 
BEGIN 
IF LEX*IDENT ‘*#*IDENTIFIER*) 
THEN 
BEGIN 
GATTR: =CHTYPE; 
GENCODE< ’P’. GATTR, CH); 
SCAN 
END 
ELSE 
IF LEX=LPAREN 
THEN 
BEGIN 
SCAN; EXPR:; 
IF LEX=RPAREN THEN SCAN ELSE ERROR 
END 
ELSE ERROR <*JUNK INPUT#*) 
END (*OF FACTOR); 
BEGIN ¢*O0F TERM*) 
FACTOR; 
WHILE LEX=MULOP DO 
BEGIN 
LATTR: =GATTRs LOP: =CH; 
AXPC: =PC+1; <*SAVE ADDR OF NEXT INSTRUCTION#*) 
SCAN; FACTOR; 
FIXUP CAXPC. LOP, LATTR>D 
END 
END <*OF TERM); 
BEGIN ¢*OF EXPR*)> 
IF LEX#*ADDOP <‘*LEADING SIGN*) 
THEN 
BEGIN 
LOP: =CH; SCAN; TERM; 
IF LOP=’-’ THEN GENCODE< ’@’,. GATTR, DONTCARE> 
END 
ELSE TERM: 


WHILE LEX=ADDOP DO 
BEGIN 
LATTR: =GATTR; LOP: =CH; 


AXPC: =PC+1; ¢*SAVE ADDR OF NEXT INSTRUCTION*) 


SCAN; TERM; 
FIXUP CAXPC, LOP, LATTR)> 
END 
END <*#0OF EXPR#*); 
BEGIN ¢#OF MAIN PROGRAM*)> 
WHILE TRUE DO C*INFINITE LOOP) 
BEGIN 
99: REPEAT 
WRITE<C“°S>”%53 ¢C#PROMPT USER*) 
BP: #8; ¢*#GET INPUT LINE*) 
WHILE NOT EOLN DO 
BEGIN 
BP: =BP+1; READCBFRCBPI> 
END; 
RERDLN ¢*RESET EOL INDICATOR) 
UNTIL BP#1; ¢C*GET A NON-EMPTY LINE*) 
BFRC BPI: =CHR(@); ¢* <NULL> FOR EOL*) 
PC: =0; BP: =@; ¢*SCAN FROM THE BEGINNING) 
SCAN; 
EXPRs ¢*DOES ALL THE WORK*) 
IF LEX#EOL THEN LISTCODE ELSE ERROR 
END 
END. 
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dressing can be done by using the ‘“‘with”’ 
statement. This allows the fields of a record 
to be referenced as variables. The previous 
example then becomes 


for ind:=1 to 100 do 
with database[ind] do 

begin 
due:=1.006*bal; 
bal:=0.0; 
sum:=sum+due; 
bal30:=1.006*bal30+due 

end 


Three additional control statements are 
the while, repeat, and case statements. The 
while statement allows a given statement 
to be executed as long as some Boolean 
expression is true (the condition is tested 
first). 


while <condition> do <statement> 


The repeat statement allows one or more 
statements to be executed until a condition 
becomes true (the condition is tested last). 


repeat <statement> { : 
<statement> } until <condition> 


The brackets denote a portion that may 
occur zero or more times; for example 


ind:=0; 
repeat; 
ind:=ind+1 
until (database[ind] .bal>100.0) or 
(ind=100) 


This will find the first customer whose 
balance is greater than $100, if one exists. 

The case statement consists of an ex- 
pression, known as the selector, and a list 
of statements, each labelled by one or more 
constants of the type of the selector. The 
Statements whose constant is equal to the 
current value of the selector is executed. 
Some versions of Pascal admit subranges 
for labels and an else or otherwise clause 
within a case statement. 


case database[ind] .datedue.mo of 
jan,feb,may: <statement 1>; 
mar,jun,jul: <statement 2>; 
oct,dec: <statement 3> 
end 


Statement 1 will be executed if the due 
month is January, February, or May, and so 
on. Notice that no statement is executed 
if the month is April, August, September, 
or November. Of course, the nesting of such 
control statements is permissible and allows 
much more complex control structures to 
be implemented. 

The reset and rewrite statements initialize 
input and output channels, respectively. 
Some versions of Pascal do not require 
these for the default channels input and 
output. The [0 commands are designed at 
two levels. To move primitive data to and 
from IO devices or files use the commands 
put or get respectively. To input or output 


an entire line or set of data we use read, 
readin, write, and writeln which are similar 
to FORTRAN IO commands. Formatting is 
done within the commands themselves. The 
read command will only input the necessary 
information (even if it must read several 
lines) while readin additionally discards 
the remainder of the current input line. The 
output commands, write and writeln, 
operate in an analogous fashion for output. 

A. significant example is now in order. 
Consider the problem of compiling an 
arithmetic expression. To greatly simplify 
the problem, assume all variables are one 
letter in length, no constants will appear, 
and the only operators will be +, —, *, and 
/. To make the problem interesting, assume 
that variables lettered a—h and o—z are 
of type real and the rest are of type integer. 
This is the same as the implicit types for 
FORTRAN. The program will produce 
code for a ‘stack machine.” That is, the 
Operators are applied only to operands 
already on the stack and the result will 
replace the operands on the stack. One task 
is the recognition of correct expressions. 
This may be done by several methods in- 
cluding precedence tables, LALR(1) parsers, 
and recursive descent. The latter will be used 
since it is the technique employed within 
most Pascal compilers. Recursive descent 
compilation utilizes a set of recursive proce- 
dures to recognize its input, with no back- 
tracking. To understand the algorithm, 
consider the series of ‘syntax diagrams’’ 
in figure 1. 

To generate a valid expression, for ex- 
ample, one enters the diagram from the left, 
selects an arbitrary path through the dia- 
gram, and exits to the right. Any box en- 
countered is to be treated like a subroutine 
Or procedure call. A circle or box with 
rounded edges is to be the current input 
item. An expression is thus an optional 
sign, a term, followed by any number (in- 
cluding zero) of addition or subtraction 
Operators and terms. Similarly, one can 
define a term. These definitions build in 
the normal precedence of operators and 
correctly handle a unary minus. Notice that 
<expr> will call <term>, <term> will 
call <factor> and maybe <factor> will 
call <expr> again. This would occur when- 
ever parentheses were encountered. 

A second task to accomplish is to proper- 
ly handle the necessary type conversion of 
intermediate results. Many textbooks refer 
to this problem when discussing syntax 
directed translation but few _ illustrate 
“real” solutions. As an example (using the 
above assumptions) consider 


J+K*X 


It is not known that this expression must 


TERM 


FACTOR 


FACTOR 


VARIABLE 


FACTOR i 


Figure 1: Syntax diagrams for generation of valid expressions. The diagram 
“expr’’ is entered from the left and calls term. Term calls “‘factor’’ which may 
call expr, etc. This model assumes that the only operations are addition, 


subtraction, multiplication and division. 


have a real value until the X is seen. The 
recursive descent phase, independent of 
type conversion might translate this to 


PUSH J 
PUSH K 
PUSH X 
MUL 
ADD 


for its equivalent Polish Notation: J K X * +. 
However, what is really required ts 


PUSHI J 

FLOAT (convert the top of the stack) 
PUSHI K 

FLOAT 

PUSHR X 

MULR 

ADDR 


a ied 


where the operators have either “R”’ or 
suffixed to indicate a real or integer opera- 
tor, respectively. The suffix for the PUSH 
instruction is known as soon as the variable 
name is seen. The types for the arithmetic 
Operators and the insertion of the FLOAT 
instructions must be added somewhat after 
both operands have been seen; in other 
words, a fixup must be done. As one alter- 
native, this may be accomplished by gener- 
ating code in memory and keeping track of 


An expression is an op- 
tional sign, a term, fol- 
lowed by any number of 
addition or subtraction 
operators and terms. 
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>>A+B 
PUSHR AR 
PUSHR B 
ADDR 
>oAZI 
PUSHR R 
PUSHI I 
FLOAT 
DIVR 
>>I I 
PUSHI 
PUSHI 
OIVI 
>>I +K*X 
PUSHI J 
FLOAT 
PUSHTI K 
FLOAT 
PUSHR Pas 
MULR 
ADDR 
>>¢CI¥J=CX*M) >A CP4N) 
PUSHI I 
PUSHI J 
MULTI 
FLOAT 
PUSHR x 
PUSHI M 
FLOAT 
ADDR 
SUBR 
PUSHR P 
PUSHI N 
FLOAT 
ADDR 
DIVR 
>>R+B* 

t ERROR 
>>A*CB+I 

tT ERROR 


GH 


tT ERROR 


Listing 2: Sample program execution. After outputting a prompt the pro- 
gram waits for an expression to be input. It then lists all of the instructions 
that would be generated for a compiler code. 
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the type attribute of each operand and the 
addresses of where the last instruction for 
that operand was stored. If a type conver- 
sion is required on the first operand (of a 
binary operator), all code beyond the saved 
address is simply moved up one location and 
a FLOAT instruction is inserted. If a type 
conversion is required for the second 
operand, a FLOAT instruction is added as 
the last instruction in the evaluation of the 
second operand. //n this paragraph and re- 
maining text of the article, words in upper 
case refer to listing 1... RGAC/ 

The program in listing 1 is a solution to 
the expression evaluation problem. It is a 
direct implementation of the methods 
suggested. The main portion of the program 
is trivial; it asks for a line of input, calls 
procedure EXPR to parse the line, lists the 
output if there is no error, and repeats the 
process. 

The type statements are important and 
quite varied. See that the constant MAXPC 
defines the maximum address space and is 
used in the declaration of the subrange 
type CODESPACE. The variables ATTR 
and LEXTY are symbolic scalar types and 


INSTRUCTION is a record type. 

The variable CODE is an array of instruc- 
tions. This is where the ‘‘compiled” code 
will reside. The type attribute of the second 
operand of an operation is stored in GATTR 
which is global to all the program’s 
procedures. 

The procedure SCAN picks up the 
next character(s), ignoring spaces and 
determines the correct token and type if 
it is a variable. Note the use of the case 
Statement and the sequential nested 
conditionals. 

The procedure ERROR outputs a line 
with an upward pointing arrow to indicate 
where the error occurred. 

The procedures GENCODE and LIST- 
CODE are responsible for encoding the 
instructions into the code array and decod- 
ing the code array for output respectively. 
The with statements simplify both the 
Pascal and compiled codes. 

Any discrepancy in types of operands 
is resolved by FIXUP which inserts the code 
for the operator itself. In a full compiler, 
FIXUP would also worry about strings and 
other data types and issue the appropriate 
error messages when needed. 

EXPR does most of the work, together 
with the procedures TERM and FACTOR. 
They function exactly as described above. 
They are quite simple in appearance but 
function correctly as the sample runs illus- 
trate. The symbolic scalars ADDOP and 
MULOP are quite useful in this design. 

When properly segmented, any program 
should be similarly constructed and as easy 
to read or modify. A lot may be gained from 
using a top down design. Given the time, 
anyone could stretch this program into a 
full compiler whose output was a similar 
Polish code, and alternatively encode this 
program into their favorite assembly lan- 
guage. All the hard work has really been 
done in expressing the algorithm to solve 
the problem. 

| heartily recommend that anyone 
seriously interested in Pascal in_ partic- 
ular and good programming style in general 
obtain the two books listed in the 
references. & 
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Compilation and Pascal 


on the New Microprocessors 


We are concerned with the use of high 
level languages, and in particular Pascal, on 
microcomputer systems. We are most 
interested in the use of such languages for 
what is termed, on larger computer systems, 
systems programming. This includes writing 
code to drive floppy disks, interpreters for 
APL or BASIC, or all those bits of code that 
people have until now written in assembler, 
and which in some way make their micro- 
computer systems friendly. 

Microcomputer users show a generally 
high level of sophistication, so it might be 
surprising at first that so much of their code 
is still written in assembler. The advantages 
of writing in a high level language have been 
often described in computing literature: 
programs can be made more portable; they 
exhibit better structure; and they are easier 
to write and debug. In addition, it is much 
easier to let a compiler worry about the 
efficiency of the object code; and deficien- 
cies of the object machine are hidden. With 
the 8 bit microcomputers like the Intel 8080 
and Motorola 6800, we feel that there Is 
little choice but to write in assembler (or 
interpreter), since the facilities provided by 
their order codes are simply insufficient to 
support most high level languages. 

Compilation may be inappropriate for 
8 bit microcomputers, but it is the mast 
attractive alternative for the hybrid 8 and 
16 bit microcomputers (such as the Motorola 
6809), especially with respect to eliminating 
most assembly code on these machines. We 
also feel that Pascal has facilities that enable 
a compiler to generate better code for such 
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machines than might be expected from 
compilers for other languages. 

Jensen and Wirth provide the definition 
of and tutorial introduction to Pascal in the 
Pascal User Manual and Report. Aho and 
Ullman’s book, Principles of Compiler 
Construction, provides an excellent descrip- 
tion of the elements of a compiler. 


Options 


Tiny BASIC, Tiny C, APL, and FOCAL 
are implemented on microcomputers with 
interpretive code. Interpretation has a num- 
ber of advantages. Since the interpretive 
language is highly specialized, it can be made 
compact. New macro operations can be 
added easily as time and experience dictate. 
Array and structure addressing and the block 
copying associated with array and structure 
assignment may be made particularly cheap. 
When interpreting array indexing, run time 
checks of the index values against the array 
bounds are possible (although often left out) 
at little extra cost. This is true of other kinds 
of debugging facilities as well, such as value 
traces or stack tracebacks. Both compiler 
and interpreter are easy to write, especially 
if the interpreted code implements a stack 
machine. Interpretation’s main disadvantage 
is that it is slow. 

An_ alternative to interpretation that 
alleviates this latter problem of speed some- 
what is threaded code, which has been 
described as “interpretive code which needs 
no interpreter’ (see references 2 and 3). 
Rather than having a sequence of codes and 
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type 


var 


begin 


end 


index = 0..10; ie Pa gins i 
twicelndex = 0..20; : 


unsigned = 0..32767; 
short = —128..127; 


shortUnsigned = 0..255; 
thing = record 


arrangement with Walter 
Banks of the University of 
Waterloo. 


field!: 0..7; 
field2: 0..31 
end; 
packedThing = packed record 
field!: 0..7; 
field2: 0..31; 
end; 


a, b: array [index] of integer; 
i, j: index; 
k: twiceIndex; 


s: set of (READY, BLOCKED, RUNNING, SWAPIN, SWAPOUT); 


afi] := bfjj; {the dreaded array-indexing example} 

k := it); {subranges are useful} 

s:= [READY, BLOCKED, RUNNING]; |set operations} 
s:= 5 — [READY, RUNNING]; 

s:= 5 + [SWAPIN]; 

s:=s5* [SWAPIN, BLOCKED]; 


Listing 1: Pascal program fragment for array indexing. 


tsx /Enable indexing off sp 

Ida A, KX) /Fetch address of j relative.. 
Ida B, j+1(X) /to sp into (A,B) register pair 
asl B /Shift (AB) pair left by 1.. 
rol A /yielding integer offset 

add B, 6+1(X) /Add in 16-bit array 

adc A, 6{(X) /pointer i to (A,B) pair 

sta A, temp /Transfer (A,B) pair to X reg.. 
sta B, temp+1 /..not re-entrant 

Idx temp 

Ida A, X) /Finally, fetch b{j] into.. 

Ida B, 1(X) /(A,B) pair.. 

psh A /and push onto stack 

psh B 

tsx /Following code is repeat of.. 
Ida A, i(X) /above for getting address of.. 
Ida B, i+/(X) /array element a{i] 

asl B 

rol A 

add B, a+1(X) 

adc A, a(X) 

sta A, temp 

sta B, temp+! 

Idx temp /X now points at a{i] 

pul B /Pop b{j) from stack.. 

pul A /into (A,B) pair.. 

sta A, X) /and store in a[i] 

sta B, 1(X) 


Total code: 52 bytes 


Listing 2: Motorola 6800 assembly code for the first 
line of the Pascal fragment shown in listing 1. 


an interpreter which reads them, calling out 
to the routines implementing each operation, 
threaded code simply contains the sequence 
of machine addresses of the routines to proc- 
ess each operation. These routines, much 
like the code segments called by the inter- 
preter to implement the pseudo-machine, 
provide the run time support for the threaded 
code. Rather than return to an interpreter 
after it has done its work, though, a routine 
simply jumps (indirectly) to the next such 
routine in the code flow. Arguments are 
passed to these routines in various ways — 
for example, by placing values or addresses 
between the code pointers. 

The third approach to language imple- 
mentation is that traditionally adopted on 
larger machines: real code generation. This 
approach provides the fastest program 
execution at the possible expense of space 
used by the object code. On almost any 
machine, the high level constructs of flow of 
control and logical expressions as well as 
calls to the intrinsic built-in functions can be 
directly implemented as branch or jump 
instructions with relatively little expenditure 
of speed or time. However, for many of the 
existing microcomputers, code generation 
for even the simplest of the fundamental 
high level language constructs proves effec- 
tively impossible. Such constructs include 
most common arithmetic operations, array 
and structure accessing, and automatic 
storage manipulation. Particularly difficult 
on some machines are multiply, divide, 
modulus and string operations. Therefore it 
is important to determine what properties of 
a particular machine make it suitable for real 
code generation. 


8 Bit Microcomputers 


A detailed study of the common 8 bit 
computers available today (eg: Motorola 
6800, Intel 8080) quickly reveals that such 
machines are not conducive to real code 
generation by compilers for high level 
languages such as Pascal. 

On such machines, compilations of even 
the simplest arithmetic or pointer expressions 
lead to a very high object to source code 
ratio, if such constructs can be compiled at 
all. Listing 2 gives an example of code which 
might be compiled for a Motorola 6800 to 
implement the Pascal assignment statement: 
a[i]:=b[j]; in listing 1. The assumption here 
is that automatic arrays are implemented as 
pointers on the stack to areas of storage 
residing elsewhere. In addition, we have 
assumed that the compiler keeps track of the 
stack offsets for its automatic variables 
relative to the moving stack pointer; we are 
using the notation / to represent the stack 
offset of variable j. In addition to this code 


segment, the procedure preamble must set 
up the pointers to the arrays a and b (stored 
at offsets a and 6 respectively), to point at 
the integer before the beginning of the array. 
Thus, for example, a/7/ will then be identi- 
fied with the beginning of the storage 
associated with the array a. 

Beyond the actual code shown here, 
however, the most important insight to be 
gained from all of this is the sheer bulk of 
code that such a simple construct would 
generate (and it is not even reentrant at that). 
Imagine how large the object code size 
would be for even a reasonably short Pascal 
program. 

Implementing threaded code is somewhat 
difficult on these machines because they 
require 16 bit memory pointers, an efficient 
mechanism for indirect addressing, and some 
method of incrementing such a pointer to 
the next 16 bit pointer. At least one of the 
above criteria is so troublesome on both the 
Motorola 6800 and the Intel 8080 that the 
threaded code becomes unwieldy. Thus, for 
these machines one has little choice but to 
interpret or write in assembler. This suggests 
that the interpreters themselves must be 
implemented in assembly language. 

The above discussion is an attempt to 
analyze the reasons why programs written 
for 8 bit microcomputers have traditionally 
been interpreted or written in assembly or 
machine code, rather than being compiled 
into ‘‘true’’ code from a high level language. 


16 Bit Microcomputers 


Previously, the only alternative to the 
8 bit architecture was that of the 16 bit 
microcomputer. Examples of such machines 
include the TI-990/4 and the DEC LSI-11. 
While the considerable costs of these proc- 
essors tend to make them impractical for 
many computer experimenters, and for 
those applications in which many processors 
are required, it is instructive to consider 
what properties set these machines apart 
from their 8 bit counterparts with respect to 
code generation. In fact, it can be shown 
that, given a machine of sufficient sophisti- 
cation, it should be possible for a compiler 
to do as good a job as an assembler program- 
mer vis-a-vis machine resource utilization. 

There are two main virtues of these 16 bit 
machines. In the first place, these machines 
have complete 16 bit instruction repertoires 
including hardware multiplication, division, 
and long shifts. As well, the 16 bit processors 
tend to have a good complement of addres- 
sing modes such as indexing, stack opera- 
tions, automatic increment and decrement 
of pointers, and so on. (Here, as elsewhere in 
this article, the descriptive terms may seem 
fuzzy. Good complement does not admit of 


Let 
r:= {X,Y,S,U} 
a:={A,B,D} 
x := memory reference 
c := constant value 
x long relative, short relative, direct 
“x long & short relative indirect 
$x immediate byte 
*$x extended 


**$x extended indirect 

c(r) +4, +7, £15 bit indexing 

*¢(r) +7 and £15 bit indirect indexing 
(r)+ Auto Increment by 1 or 2 

-(r) Auto Decrement by | or 2 

*(r)+ Indirect Auto Increment by 2 
*-(r) Indirect Auto Decrement by 2 
a(r) Accumulator Indexing 

*a(r) Indirect Accumulator Indexing 


Table 1: A summary of the Motorola 
MC6809 addressing modes. 


a precise meaning. With real machines, one 
usually loses clever addressing modes, for 
plenty of general purpose registers, and one 
must balance the benefits somehow. The 
final judgment will usually be that of the 
person writing the compiler.) With these 
attributes, it is a fairly straightforward task 
to construct a compiler for a high level 
language such as Pascal. 


8 and 16 Bit Hybrids 


The current trend in 8 bit microprocessor 
technology is towards a hybrid combination 
8 and 16 bit machine. Essentially, these 
processors are capable of 16 bit operations 
while retaining 8 bit data paths throughout 
the processor architecture. A prime example 
of such a hybrid is the Motorola 6809, 
which is due for formal product release later 
this year. Table 1 gives a summary of the 
basic addressing capabilities of the Motorola 
6809, expressed in a hypothetical assembler 
syntax which removes from the user the 
burden of understanding all of the details of 
the actual hardware addressing modes. 

What advantages do these machines have 
over their pure 8 bit predecessors? In partic- 
ular, these machines now have at least one 
accumulator for performing addition, sub- 
traction, shifting and comparison operations 
on 16 bit data. A second feature of these 
machines is the 16 bit memory pointer, 
which, combined with the ability to auto- 
matically increment and decrement such 
pointers, provides a very general memory 
accessing capability. In addition, common 
high level language features such as stack 
frames and display pointers become quite 
easy with the general index and_ stack 
registers of the M6809. It is apparent that 
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the Motorola 6809 is particularly well- 
endowed with addressing modes which 
tend to facilitate code generation for high 
level languages. 

Consider again the array assignment 
which the 6800 handled so dismally. The 
Motorola 6809 code for the same construct 
is given in listing 3. (Note that the syntax of 
our assembler code Is intended to be more or 
less consistent amongst the examples, and 
not necessarily that of the manufacturer’s 
assembler. It is in fact the syntax used by 
our UNIX assemblers for these machines.) 
Code for the PDP-11/45, considered to bea 
good instruction set given in listing 4, is 
included for comparison. 

It is rather precipitous to deduce much 
from this one example, although array 
indexing does exercise many of the addressing 
modes of a machine, and such assignment 
Statements can provide a check on the 
register usage of a compiler. How a partic- 
ular architecture fares with more general 
arithmetic expressions and function and 
procedure call, save, and return sequences 
would provide further basis of comparison. 
Indeed, other examples that we have tried 
suggest that the results of this comparison 
are typical. 


/ ‘X°* points to top of stack (display) 


Ida D, i(X) /i 

asl B 

rol A ’ ee 

add D, $a-2 / +offset of ‘a’ 
lea Y, D(X) / +stack top 
Ida DX) 

asl B 

rol A f72 

add D, $5-2 / +offset of ‘b’ 
Ida D, D(X) / +stack top 
sta D, (Y) / afi) := bj] 


Total code: 20 bytes 


Listing 3: Motorola MC6809 assembly code for array indexing 
program fragment. 


/ 5 points to the “top” of the 


/ stack frame 


mov J(r5),r0 
asl r0 

add r5,r0 
mov i(r5),r1 
asl rl 

add r5,rl 
mov 


b-2(r0),a-2(r1) 


/ 

[ *2 

/+ display pointer 

/i 

[ *2 

/+ display pointer 

/ afi) := bj); 


Total code: 22 bytes 


Lisitng 4: DEC PDP-11 assembly code for array indexing example. 
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Special Advantages of Pascal 


We feel that the use of Pascal and a 
competent compiler can lead to better 
code in many cases on hybrid 8 and 16 bit 
machines than can be achieved with many 
other languages. Obviously, the best results 
will require that Pascal be properly used — 
that subranges be used where possible, for 
example — and that these be declared to be 
as small as possible. A Pascal program can 
contain a great deal of information that 
allows even a straightforward compiler to 
generate code which makes good use of the 
available registers. The Pascal declarations of 
listing 1 provide illustration for the following 
discussion, and the code given is for the 
Motorola 6809. Remember that the intent is 
not to describe an implementation of Pascal. 

The declaration of scalar and subrange 
types essentially allows the declaration of 
small integers and makes known the detailed 
Characteristics of variables of such types to 
the compiler. Variables may thus be com- 
pletely bounded, and the compiler can 
compute upper and lower bounds on the 
value of an expression. 

In our example, variables of type short 
or shortUnsigned may be loaded into the 
8 bit accumulators of the 6809, and both 
registers may be used simultaneously. A 
variable may be recognized as unsigned if 
there are no negative values in the subrange 
to which it belongs. In the assignment state- 
ment & := /+/; the variables /, and/, are both 
in the range O thru 10. The result is thus in 
the range 0 thru 20, and an 8 bit accumulator 
may again be used to compute this result. 
(All of this is particularly useful if array 
indexing is also involved.) 

The Pascal set type may be regarded as 
providing a readable way to do “bit twid- 
dling.”’ A set is typically implemented as a 
sequence of bits, one for each element of the 
base type of the set. The variable s might 
then be a byte in which the low order bit 
corresponds to the element READY, the 
next to BLOCKED, and so on. The sequence 
of assignments might then be compiled as in 
listing 5. 

Pascal, of course, provides pointers, 
record structures and arrays. 

The use of pointers Is strictly controlled: 
arbitrary arithmetic operations on pointers 
are not allowed. About the only things that 
may be done with a pointer variable are: 
indirect addressing, assigning another pointer 
to it, or passing it to a procedure or function. 
This structured use of pointers and indexing 
results in a very stylized use of pointers in 
the compiler’s internal representation. This 
in turn allows the compiler to detect the 
places where double indexing may be used 
to advantage rather easily, on machines like 


the 6809 which have this feature. 

Indexing of an array of records does 
require multiplication of the index by the 
width, in bytes, of the record. Often, this 
may be accomplished by a shift. Of course, 
this cannot always be done, since records 
need not be a power of 2 in length, though 
a compiler could arrange to round the size 
of a record up to an appropriate boundary if 
the difference were small. In any event, 
provided the size of the record is no more 
than eight bits (as an unsigned quantity), the 
code for the multiplication could reasonably 
be included in line. 

We wondered how often division or multi- 
plication is used in the UNIX system (an 
operating system developed at Bell Labs), 
and wrote a simple command file which 
would compile each of the source programs 
of the system and scan the resulting assem- 
bler for mul and div instructions. The 
number of multiplications was of interest in 
light of the above discussion; the number of 
divisions was collected as well, since these 
would have to be interpreted by subroutine 
on the 6809, and we wanted to know how 
many occurred in critical code. The results 
are shown in table 2. 

Only one of the divide instructions occurs 
in a routine that might be regarded as signi- 
ficant, with respect to increasing system 
overhead, were a subroutine called to do the 
divide piecemeal; and that division was 
performed at a low priority level. 31 of the 
divide instructions in the device driver rou- 
tines were in disk drivers, which had to 
compute track and cylinder offsets. The 
multiplications in all cases were of small 
amounts; it seems that (most. likely by 
accident) record structures used in the 
kernel happened to be a power of 2 in length. 
It would have been more instructive, perhaps, 
to examine user programs, but in that case it 
would have been more difficult to separate 
multiplications written explicitly from those 
created implicitly by array indexing. 

A Pascal programmer may declare partic- 
ular record or array types as packed, which 
is a hint to the compiler that the program- 
mer would prefer elements of the given type 
to occupy as little space as possible even if 
there is a cost in increased code to access 
them. This leaves the unit of packing to the 
compiler. For example, the types thing and 
packedThing (see listing 1) describe packed 
and unpacked records with similar fields (to 
Pascal, these record types are not compatible 
in any way). In a thing, both field7 and 
field2 will likely be bytes, but if a compiler 
implements the notion packed completely, 
then in a packedThing, field? will likely 
occupy three bits, and fie/d2 five bits, ie: 
they would share the same byte of storage. 
Packing of records on microcomputers is 


/ X is display pointer 

/ equates are in octal 

READY = 01 

BLOCKED = 02 

RUNNING = 04 

SWAPIN = 010 

SWAPOUT = 020 

Ida A, SREADY+BLOCKED+RUNNING / immediate load 


sta A, s(X) 

/ 

Ida A, 5(X) 

anda A, $![{READY+RUNNING] / complement 
sta A, s(X) 

/ 

Ida A, s(X) 

ora A, SSWAPIN 

sta A, s(X) 

/ 

Ida A, s(X) 

anda A, $[SWAPIN+BLOCKED] 
sta A, s{X) 


Listing 5: Set assignment code for the Motorola MC6809 processor. 


often much easier than on the larger proc- 
essors, because microprocessors do not have 
the alignment problems that plague compiler 
writers on those machines. 

Finally, as in many other languages, the 
order of evaluation of expressions is left to 
the implementor, but since side effects are 
not allowed, no legal Pascal program can 
possibly be harmed by this. This has two 
related effects: in arithmetic expressions, 
the compiler may evaluate the operands in 
the order that leads to the least amount of 
code, and in Boolean expréssions the left- 
hand side of the logical operators and and or 
need not be evaluated if the expressions on 
the right determines the truth value of the 
entire expression. Faster or smaller code will 
usually result if a compiler takes advantage 
of these properties. 


Pascal: Problems? 


We feel that there are a number of areas 
where Pascal is likely to require expensive 
mechanisms, and which would be inappro- 
priate for a systems programming environ- 
ment. One solution might be to implement 
a subset of the language, leaving these hard 


Lines Number of Number of 
of C Code Multiplications Divisions 
UNIX Kernel 6,013 4 
Device Drivers 8,640 62 


Table 2: A search through a particular operating system to determine the 
number of multiplications and divisions used. This was done to determine 
how important the speed of a multiplication and division routine would be to 
a typical program. 
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features aside, but in most cases, since the 
expensive mechanisms are only invoked if 
the programmer asks for them, it should 
be sufficient to have the compiler avoid 
including the associated run time procedures 
when they are not requested. (This is worth 
mentioning, if only because this rule is often 
not followed.) We shall first mention those 
constructs which are expensive, but which 
appear only by programmer request. 

The semantics of Pascal’s fi/e variables, 
and the input/output (lO) system in general 
tend to reflect characteristics of a batch 
environment, with a restricted character set. 
The basic 1O procedures are badly designed 
for an interactive terminal. The read and 
write procedures are fairly expensive to 
implement, since they are extremely general 
and all encompassing. 

On machines like the 6809 which lack a 
divide instruction of any sort (let alone a 
16 bit one), division will be done by calling a 
run time support routine. Only if the pro- 
grammer explicitly writes either a divide, or 
modulus operation, will the call be gener- 
ated. Floating point numbers will be inter- 
preted, as usual. 

Pascal allows procedures and functions to 
be defined inside other procedures and func- 
tions. This requires either a display, which 
must be copied, or a system of pointers by 
which a routine may access the variables 
owned by routines in an outer scope. (The 
latter is the most likely choice.) 

Strings, arrays, records and large sets (if 
implemented) may all be assigned or passed 
as parameters .to routines. These operations 
require block copies, but only if the opera- 
tions appear in the source program. Copying 
of actual parameters may be avoided, of 
course, by declaring the matching formal 
parameters as var parameters. 

The remaining points concern some philo- 
sophical concerns about Pascal and _ its 
implementation. (Input and output might 
also be considered in this class.) 


Philosophy 


It has been observed that much of the 
checking done at run time in other languages 
may be done at compile time in Pascal. This 
is not always so, and run time checks are 
required on assignments of a variable from a 
larger subrange to a variable in a smaller 
subrange of a given type, or on similar use 
in array indexing, and pointers must always 
be checked to ensure that they are not ni/. 
It might be argued that run time checks 
might not be done at all. It is better to 
arrange for them to be turned on and off, as 
required, in different sections of code. 

The Pascal Report (see references) does 
not put boundaries on the number of ele- 


ments in the base type of a set type, but it 
does say that an implementor will likely 
choose the word length of a given computer 
as that limit. Otherwise, routines are required 
to perform various Boolean operations on 
large bit strings. Unfortunately, a great many 
Pascal programs in existence, most notably 
those for the CDC 6600, assume that it Is 
possible to delcare or use a set of char, as In: 


if c in [‘@’. .‘z’] then 
{ cis a letter } 

where c is declared as a char. The CDC 
Pascal compiler restricts the number of 
elements in the base type of a set to about 
the number of bits in a word (58), but the 
CDC character set is small enough that it 
(nearly) fits within a set. On a microcom- 
puter with the ASCII character set even 16 
bits is clearly insufficient, and larger sets 
may need to be implemented. 

There is no method provided to initialize 
variables in their declaration. This is of 
consequence when one wishes to create a 
table with values that remain constant 
throughout the life of the program (eg: a 
translation table). The only way to do this in 
standard Pascal is to write a sequence of 
assignment statements. This will typically 
result in several bytes of code for each 
assignment, as well as forcing two copies of 
each data value in the table. On a large 
machine like the CDC 6600, this may be of 
little consequence, but on a microcomputer 
with little core, this isa distinct disadvantage. 
Of course, various implementations of Pascal 
have provided a means to do this sort of 
thing efficiently, but this results in a porta- 
bility problem because each implementor 
tends to have slightly different rules about 
where and how these initializations may be 
accomplished. 


Conclusions 


For languages like Pascal, compilation is 
the preferred method of implementation on 
hybrid 8 and 16 bit microprocessors. The 
object code size on these machines for 
common constructs in these languages seems 
to compare quite favorably with that for 
larger processors like the PDP-11 or the 
Honeywell 66/60. We illustrated this with a 
very simple array operation; the reader can 
try other operations. 

When choosing a programming language, 
One typically considers not only the ease or 
difficulty of implementation and the effi- 
ciency of the compiled code, but stylistic 
qualities as well. For example, we have 
found the C language a pleasant and effective 
language for developing programs, but it 
does not, of course, follow that everyone 
else would. The same holds true for Pascal. 


We merely note that the Pascal is interesting, 
in that Pascal programs may be so written as 
to allow a compiler to compile code which 
makes efficient use of 8 bit accumulators on 
machines that have them, and that amongst 
the other major high level languages this is 
an unusual property (PL/I is a likely excep- 
tion). Whatever the language used, we hope 
to see the day when on microcomputer 
systems, as on UNIX, the use of assembly 
language for a program of any size is greeted 
with surprise, shock, despair, dismay, and 
outright hostility.# 
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BLANK 


Pascal versus BASIC: 


Introduction 


Pascal is one of the newest high level 
languages on the personal computing scene. 
Pascal has been accepted at many universi- 
ties for several years. It is being used more 
and more in industry outside of education, 
and has just recently been introduced in 
microcomputers. Why is there so much 
enthusiasm about Pascal? 

Pascal is a general purpose language, the 
product of the long evolution of computer 
languages. It has a simple but elegant syntax 
and has been implemented in both large 
systems (CDC 6000, IBM 360 and 370, 
Burroughs 6700, etc) and microcomputers 
(LSI-11, 8080, 8085 and Z-80). 


Historical Background 


Just as computer hardware has been 
continuously evolving during the past 25 
years, so too have computer software 
requirements. Originally, computers were 
employed to work on mathematical tasks 
such as solving ballistics problems, or gen- 
erating tables of logarithms. Later it became 
economically feasible to use computers for 
data processing or working with voluminous 
amounts of data such as census data or bank 
Statements. Recently we have seen com- 
puters participate in various customized, 
dedicated applications like the control of 
traffic lights, microwave ovens and auto- 
mobile ignitions. 

We have seen a variety of applications 
and language requirements lead to an evolu- 
tion of computer languages. “‘Programming”’ 
originally entailed the translation of simple 
algorithms into machine code and bit by bit 
loading of the computer’s memory via the 
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front panel. Later, assembly languages were 
used, followed by equation or formula trans- 
lators such as FORTRAN. When it was dis- 
covered that computing involved mostly 
computing decisions and repetition, the lan- 
guage ALGOL (ALGOrithmic Language) was 
designed to express algorithms more clearly 
and conveniently. The need for a language to 
structure and represent all of the data and 
files in business data processing applications 
was filled by COBOL. Today we have 
Pascal, which has flexible data representa- 
tions, sufficient flow of control statements 
to represent algorithms, and a clear, simple 
syntax making it a favorite for a variety 
of applications. Pascal is the result of several 
evolutionary steps in the history of com- 
puter languages. 

Why is Pascal so appealing? First, it is an 
expressive language. It has several control 
structures that make the coding of algo- 
rithms very natural. Second, Pascal has 
flexible data representation. 


Expression of Algorithms in Pascal 


Figure 1 presents an algorithm to com- 
pute the greatest common divisor (GCD) 
of X and Y. The greatest common divisor 
of the integers X and Y is the largest integer 
that will divide evenly into both X and Y. 
Note that three assertions are stated in the 
flowchart. The first, a necessary pre- 
condition, states that X and Y must be 
positive integers. The second is a loop 
invariant such that, when control passes 
through that path in the flowchart, the 
GCD(X, Y) is equal to the GCD(A, B). The 
third, a post condition, states that A is equal 
to B, which is equal to the result, the 
GCD(X, Y). 
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Figure 1: An algorithm to 
calculate the — greatest 
common divisor (GCD) of 
two integers. (The greatest 
common divisor of two in- 
tegers is the largest integer 
that will divide evenly into 
the two integers.) 
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— eee ee ee oe oe on 


- 
——- GCD(x,y)=GCD(a,b) ! 
a se es ee J 


TRUE 


FALSE 


If we can prove these three points are 
true, then the algorithm is correct — that is, 
it will compute the greatest common divisor 
of X and Y. The loop invariance is easily 
proved, because if B is greater than A, the 
GCD(A,B) equals GCD(A, B—A) (a more 
rigorous proof is posed as an exercise in 
Wirth’s book [see references] ). The post 
condition is also easy to prove, because the 
path to this exit is taken only when A 
equals B, and then the GCD(A, A) certainly 
equals A. 

We are now reassured that if the precon- 
dition is true, the algorithm will compute 
the desired result. Now, how do we code 
this algorithm into our favorite programming 
language? Before we answer that question, 
let’s look at the elements of the flowchart. 
The flowchart in figure 1, and indeed any 
computable algorithm, is made up of three 
elements: sequence, selection and repetition. 
Sequences are represented in the flowchart 
by rectangular boxes such as: 


Aw  X 
B@w— Y 


Note that this flowchart element has one 
entry (the arrow going in) and one exit. [/n 


BYTE’s use of flowcharts, a top to bottom 
flow of control is assumed with arrows used 
for exceptions; in this article we make a 
stylistic exception, using extra arrows to 
emphasize flow. . .CH| 

The second flowchart element is selec- 
tion. Selection is represented by: 


(ANY FLOWCHART 


(ANY FLOWCHART 
ELEMENT) 


ELEMENT) 


A selection flowchart element requires at 
least two or three boxes; however, it always 
has one entry and one exit. 

The third flowchart element is repetition. 
It is represented by: 


(ANY FLOWCHART 
ELEMENT) 


This form of repetition is called a ‘while 
loop,’’ because while the decision is true, 
the element is repeated. Again, this element 
has one entry and one exit. 

These flowchart elements have been 
translated directly into Pascal statements 
(see listing 1). Note that the sequence 
element 


AwxX 
8@Y 


is translated into the two Pascal assignments: 


G:=x; b :=y 


Now some of the syntax details of Pascal 
become evident. The assignment operator 
is -=, which is different from the FOR- 


TRAN or BASIC ‘=” in that the := oper- 
ator in Pascal is used for assignment only, 
while the = in BASIC and FORTRAN is 
used as both the assignment operator and 
the equals sign. Statements are separated 
by semicolons, and any number of state- 
ments may be typed on one line. If the 
above sequence were a subelement of a 
selection element, it would be bracketed 
by begin and end keywords. For example: 


if (x>O) and (y>0) then 
begin ag :=x; 6b :=y 
end 


Any number of elements combined into one 
sequence element by begin and end brackets 
forms a compound statement. 

The selection flowchart element is trans- 
lated into the Pascal if statement: 


ifa>b theng :=a—b 
else b :=b—a 


And the repetition flowchart element is 
translated into the Pascal while statement: 


while ag <> 6b do <statement> 


The expression <statement> is called a 
metavariable. For an explanation, see the 
accompanying text box. Notice, though, 
that the metavariable < statement > in the 
greatest common divisor while clause is an if 
statement. 


The real power in Pascal’s algorithm descrip- 
tive capability lies in this sort of nesting. 
For example, any element can occur as a 
subelement of the while or if statement. 
These are called structured statements, 
and they can be nested to any depth. 

Look again at the greatest common 
divisor (GCD) function in listing 1. Note 
that the routine consists of a heading and 
a variable declaration statement followed 
by one compound statement, bracketed 
by begin and end. Functions and proce- 
dures in Pascal can be thought of as named 


statements with local variables. They always 
have one entry and one exit, and therefore, 
a call is flowcharted as a sequence element 
such as: 


CALL 
Z<-GCD (X,Y) OR INITIALIZE 


ROUTINE 


Metavariables 


Bracketed symbols such as ("“< statement >") all call metalin- 
guistic variables (or metavariables) or syntactic units. They represent a 
class of possible language elements. They are nonterminal symbols; that 
is, the symbol “< statement >" itself will not appear in a Pascal pro- 


gram, It represents a set of legal symbols that can appear in its place 
in the program. Nonterminal symbols are bracketed by ‘““<.""and “>” 
and are printed in italics to distinguish them from terminal symbols 
such as for := if do, Terminal symbols are usually printed in heavy 
type if the symbol is a language key word, and appear exactly as they 
would in the Pascal program, 


Figure 2: Flowchart for a portion of the dice game ‘‘craps.”’ The five IF tests 
can be implemented in Pascal with one case statement. 
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Pascal has a second selection statement 
called the case statement. This statement 
is a concise representation of the special 
case of nested if statements. An example 
of this is the “craps first roll” algorithm 
used to implement the dice game called 
craps. A pair of dice can obviously have 
only one summed value from 2 to 12 on any 
given throw, making this an ideal use for the 
case statement (see figure 2). The five nested 
decisions can be represented with the follow- 
ing Pascal case statement: 


s:=die 1+ die 2; 
case s of 
a ee Pa 
craps; 
4,10: 
begin point : =s; odds : = 2/1 
end; 
5,9: 
begin point : =s; odds : = 3/2 
end; 
6, 8: 
begin point : =s; odds : = 6/5 
end; 
7, 11: win 
end { of case statement} 


Of course, this could be represented using if 
Statements; however, the case statement is 
much more concise and clear. When the 
decisions in a group of nested if statements 
are mutually exclusive, that is, if any one 
being true implies that the rest are false, 
then a case statement is probably the ap- 
propriate representation. 

Pascal allows two other forms of repeti- 
tion: the repeat statement and the for 
statement. The repeat statement: 


repeat 
<any statement> 
until <condition> 


is represented by: 


(ANY FLOWCHART 
ELEMENT) 


(CONDI- 
TIONAL) 
? 


Repetitions can always be expressed as 
either repeat statements or while statements. 


However, one form usually sounds better. 
For example: 


repeat shoot craps 
until broke or out of time 


is equivalent to 
shoot craps; 
while not broke 
and not out of time 
do shoot craps 


The for statement 


for <var>:= 
<init val> to <final val> 
<any statement> 


is represented by: 


(VAR)@ (INIT VAL) 


(ANY FLOWCHART 
ELEMENT) 


INCREMENT (VAR) 


Notice that again there is one entry and one 
exit for this flowchart element. 

Another element we might see in a flow- 
chart ts an arrow coming out of a subele- 
ment, perhaps to a different page of the 
flowchart. This exit from the normal flow 
of execution is the only use of the Pascal 
goto statement. Indeed, very few Pascal 
procedures need goto statements to ex- 
press the algorithm. Goto statements can 
fog the otherwise clear logic of a routine. 

A final element that might be found in 
flowcharts is an assertion and commentary 
such as: 


The Pascal greatest common divisor (GCD) 
function has all of these elements in an 
appropriate place in the source code. Pascal 
allows comments, delimited with braces, 

and , to be freely inserted any- 
where a blank can be inserted. 

We can conclude that for each Pascal 
language statement there is a corresponding 
flowchart element, and vice versa. Therefore, 
one could easily flowchart any algorithm 
just from its Pascal listing. Compare the 
Pascal program in listing 1 to the FORTRAN 
and BASIC programs in listings 2 and 3. 
They are fundamentally identical, but all 
of the statement numbers and GOTOs in 
the FORTRAN and BASIC versions obscure 
the logic. You might maintain that, for so 
simple an example, there is no advantage for 
Pascal. One could flowchart the greatest 
common divisor (GCD) algorithm just from 
the BASIC listing. Of course you could, but 
how about flowcharting that 1200 line 
FORTRAN headache you wrote a year ago 
that has returned to haunt you? 


Data Representation in Pascal 


Pascal has several flexible forms of data 
representation. A variable can be defined as 
a scalar (single value) or a structured type. 
The different scalar types are: real, integer, 
character, Boolean, and user defined or 
enumerated. The structured types include 
arrays, records, sets and files. 

Users can define their own scalar types by 
enumeration. For example, in a_ traffic 
control program, there might be a variable 
called signalcofor which has a value of 
yellow, green or red. Or, in a microwave 
oven program, there might be a variable 
called temp which represents the cooking 
level specified. These concepts are repre- 
sented by the following Pascal declarations: 


type color = (red, yellow,green); 
cooking level = (warm,defrost,simmer, 
roast, reheat, 
maxpower); 
var signalcolor: color; 
temp: cookinglevel; 


In this example the type declaration describes 
the user defined types and the var declara- 
tion specifies variable names and _ their 
associated type. 

Another innovation in Pascal is the ability 
to specify a subrange of a scalar type. For 
example, if the variable count is to be an 
integer between 1 and 10, the declaration 
would be: 


var count: 1. .10; 


To further demonstrate these features, a 


BASIC program that would benefit from 
Pascal data representation is next explored. 


Mastermind Codebreaker Example 


The Mastermind codebreaker algorithm | 
have chosen for this exercise was presented 
by WL Milligan in the October 1977 BYTE, 
pages 168 thru 171. His BASIC version is 
reproduced in listing 4. A Pascal translation 
is presented here in listing 5. Let us compare 
the two. 

The first 15 lines of the Pascal version 
correspond to lines 10 to 45 in the BASIC 
version. These are the type declarations and 
the global variable declarations. These global 
variables can be referenced from within any 


function gcd(x,y: integer); integer; 
var a,b: integer; }x.v >0 t 


begin 
a:=x; b:=y; 


Y, 
while a <> b do GCD(X,Y) = 


if a>b thena :=a—b 
else b:= foc 


gcd :=a 
end 


Listing 1: Pascal function to calculate the greatest common divisor of 


two integers. 


100 LET A=xX 
110 LET B=Y 
120 IF A=B THEN 190 


Gcp(a,B)} 


GCD(X,Y) =A = Bt 


130 REM... GCD(X,Y) = GCD(A,B) 


140 IF A>B THEN 170 


150 LET B=B—A 
160 GO TO 180 
170 LET A=A—B 
180 GOTO 120 


190 REM...GCD(X,Y)=A=B 


200 RETURN 


Listing 2: BASIC subroutine to compute the greatest common divisor 


of two integers. 


INTEGER FUNCTION GCD(X,Y) 


INTEGER A,B,X,Y 
A=X 
B=Y 


IF (A.EQ.B) GOTO 190 
... GCD(X,Y) = GCD(A,B) 
IF (A.GT.B) GOTO 170 


B=B—A 
GO TO 180 
A=A-—B 
CONTINUE 
GO TO 120 


... GCD(X,Y) =A=B 


190 RETURN 
END 


Listing 3: FORTRAN function to compute the greatest common di- 


visor of two integers. 
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REM MASTER MIND 
REM CODED IN RT-11 BASIC 
RANDOMIZE 


*CODEBREAKER® 


DIM RS(993)9S(991) 
DIM A$(6)»BS(3) 2C8(3) » D835) 
REM INITIALIZATION 


FOR J=0 TO 6 


READ A$(J) 
NEXT J 
DATA 
LET LO=0 

LET L1=0 

LET L2=0 

LET L3=0 

PRINT °MASTER MIND CODEBREAKER® 
PRINT “PLEASE BE PATIENT. 
PRINT °WHICH VERSION (1 OR 2) °3 
INPUT V 

LET V=V+45 

REM ASSIGN COLORS AT RANDOM FOR 
FOR J=0 TO 3 

LET R8COsJ=ASCINTCVURRND( J) ) 
NEXT J 


REM START MAIN PLAY OF GAME HERE 


REM I IS THE ROW COUNTER 
FOR I=0 TO 9 
PRINT 


PRINT “MY MOVE FOR ROW*I+1° IS° 


procedure. The type declarations define new 
variable types such as: 


(colorless, red, blue, 
brown, green, yellow, 
orange, space); 


type colors = 


row = array [1]. .4/ of colors; 
eval = record 
black, white: 0. .4 
end; 


This means that a variable of type co/ors has 
a value equal to one of these enumerated 
items. A variable of type row is an array of 
four co/ors. The type eva/ represents a code- 
maker’s response to a guessed row. What 
does this represent in the game? This re- 
sponse is the number of exact color and 
position matches (black key pegs) and the 
number of out of position color matches 
(white key pegs). The codemaker responds 
with between 0 and 4 black and white key 
pegs. The type eva/ in the Pascal version 
accurately models this: a record consisting 
of two components, black and white, each 
an integer between 0 and 4. 


*RED®s °BLUE®» °GREEN®»s °YELLOW®» °BLACK® » "WHITE® » °SPACE® 


SOMETIMES I TAKE A FEW MINUTES ON MY MOVE® 


ROW 1 


PRINT R$(1I20) RSC I 91) eRSCI 92) o RSC I 93) 


PRINT *HOW MANY BLACK PEGS ‘3 
INPUT S(T20) 

IF S(I20)<>4 THEN 320 

PRINT *THANKS FOR THE GAME® 
PRINT 

GO TO 870 

IF S¢(Is0)<>3 THEN 360 


LET SCI»1)=O\REM IF 3 BLACKS THEN O WHITES 


GO TO 380 

PRINT *HOW MANY WHITE PEGS °% 
INPUT S(TI»1) 
REM GENERATE 
FOR I0=LO TO 
FOR Ti=L1 TO 
FOR I2=L2 TO V-1 
FOR I3=L3 TO V-1 
LET D$(0)=A$(T0) 
LET D$(1)=AS(I1) 
LET D$(2)=AS(T2) 
LET D$(3)=AS(13) 
REM 
FOR 
FOR 


HYPOTHESIS 
V-1 
V-1 


R=0 TO I 

J=0 TO 3 

LET C$(JO=RSC(Re Jd) 
LET BS(J)=n$(J) 
NEXT J 


REM USE ROW EVALUATION SUBROUTINE TO CHECK CONSTSTENCY OF 


KEM HYFOTHESIS AGAINST EACH ROW 
LET N=O\LET M=0 
GOSUB 9710 


CHECK ALL ROWS FROM FIRST TO CURRENT FOR CONSISTENCY 


The variable version represents the ver- 
sion number, either 1 or 2. The 10 possible 
rows of code pegs in the game are recorded 
in the Pascal structure declared as: 


var rows: array [7..170/ of row; 


Note that the careful selection of data 
representation makes the program much 
more clear and concise. The ability to deal 
with structures as a whole instead of just 
their elements tends to tighten up the logic 
of the program. For example, the BASIC 


lines: 


820 REM ASSIGN NEXT ROW 
830 FOR J=0 TO 3 

840 LET R$(I+1,J)=D$(J) 

845 NEXT J 


are functionally equivalent to the Pascal 
assignment: 


rows[it1] := hyp assign next row} 


Also, the BASIC lines: 


620 
630 
640 
650 
660 
670 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
B20 
830 
840 
845 
850 
840 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1070 
1080 
1090 
1100 
1110 
2000 


LET Z=0 

FOR J=0 TO 3 
IF R$(COrsJ)22N$( I) THEN 6450 
LET Z=Z+t 

NEXT J 

IF Z=4 THEN 700 

GO TO 820 

NEXT I3 

NEXT I2 

NEXT I1 

NEXT T0 

FRINT °T HAVE REACHED 
FRINT *COULT! 
GO TO 870 
LET to=I10 
LET t.i1=11 
LET L2=I2 
LET L3=I3+1 
KEM [TO NOT RECHECK ELIMINATED 
REM ASSIGN NEXT ROW 
FOR J=0 TO 3 

LET R$CIt1,J)=08() 
NEXT J 

NEXT I 

PRINT “I AM STUMFER 


AN IMFASSE IN MY THINKING® 
YOU HAVE MADE AN ERROR? * 


FOSSIBILITIES 


-- YOU WIN® 


PRINT “ANOTHER GAME ‘3 

INFUT R$ 

IF R$="Y° THEN 150 

STOF 

REM SUBROUTINE TO EVALUATE RESPONSE 


KEM COUNT BLACKS FIRST 
FOR J1=0 TO 3 
IF C$(J1)<>8$C51) THEN 960 


LET N=N+1 
NEXT J1 
REM NOW COUNT WHITES 
FOR J1=0 TO 3 
FOR J2=0 TO 3 

IF J12J2 THEN 1080 

IF C$(J1)=B$(J1) THEN 1080 
IF C$(J2)=8$(J2) THEN 1080 
TF C$(J1)<>8$(J2) THEN 1080 
LET M=M+1 

LET BS(J2)="X*\REM DUMMY WRONG VALUE 
GO TO 1090 

NEXT J2 

NEXT J1 

RETURN 

STOF 

END 


Listing 4: Codebreaker portion of W Lloyd Milli- 
gan’s Mastermind game written in BASIC. The 


program appeared originally in the October 1977 


REM CHECK FOR AGREEMENT OF BLACK & WHITE COUNT 


IF N<>S(R:0) THEN 700 
IF M<>S(Rel) THEN 700 
NEXT KR 


REM MAKE SURE THAT HYPOTHESIS ROW DOESNT DUPLICATE ROW 1 


BYTE, pages 169 and 170 (see page 49 of this 
edition for a description of Mastermind). Com- 
pare this with the Pascal version in listing 5. 


610 REM MAKE SURE THAT 
HYPOTHESIS ROW DOESN’T 
DUPLICATE ROW 1 

620 LET Z=0 

630 FOR J=0 TO 3 

640 IF R$(0,J)<>D$(J) THEN 660 

650 LET Z=Z+1 

660 NEXT J 

670 IF Z=4 THEN 700 

690 GO TO 820 


are functionally equivalent to the Pascal 
statement: 


if hyp <> rows[7] then goto 820 


Mr Milligan’s BASIC version is well 
written and well structured. It contains three 
key routines: initialization (lines 50 to 210); 
generate hypothesis (lines 380 to 845); and 
evaluate response (lines 910 to 1100). How- 
ever, due to the inexpressiveness of BASIC, 
it takes careful study, even of this well- 
written BASIC program, to recognize its 
structure. On the other hand, looking at the 
Pascal version of the same algorithm, the 
expressiveness of the language shows the 
structure at a glance. Similarly, the use of 
meaningful variable names and Pascal record 
structures makes the data representation 
readable. Table 1 describes which variables 
in the Pascal version are used in the same 
context as variables in the BASIC version. 

As careful as you are when coding BASIC, 
bugs are bound to creep in. For example, in 
the BASIC version (listing 4), lines 610 
thru 690 are unnecessary. Additionally, 
there is no path through lines 770 to 810. 
Coding errors rarely creep into Pascal 
programs because the compiler enforces 
variable declarations and type agreement. 
For example, eva/uations[5] :=rows[5] is 
illegal because they are not type-compatible. 
Also c := brown-red is illegal because arith- 
metic is undefined for our user defined 
colors type. And, version :=3 is_ illegal 
because the value 3 is outside the legal range 
for version. 


Other Pascal Attributes 


We have looked at some of the note- 
worthy features in Pascal. There are also the 
powerful features of block structured scope 
of names, recursion and dynamic allocation 
of storage. Pascal is known as a very ‘“‘safe’’ 
language because it optionally has extensive 
compile and run time type checking including 
type compatability, subrange bounds and 
array index bounds. Pascal has many other 
data representations not illustrated here, 
such as sequential files, arrays, pointers and 
sets. | can’t begin to explain all of these 
features here, but you don’t have to under- 


Listing 5: Pascal version of the Mastermind BASIC program in listing 4. 


program mm2(input,out put); 


label = 870; 
type colors = (colorless, red, blue, brown, green, yellow, orange, space); 
row = array [/..4] of colors; 
eral = record 
black, white: 0..4 
end; 
var evaluations: array (1..10] of eral; 
rows: array [/..10] of row: 
name: array [colors] of packed array [/..6] of char 
color: array [0..7) of colors; 


redrow: row: First hypothesis checked } 
last: rou: Last hypothesis formed } 
version: 1.22: marcolor: orange. .space; 
“et..9: gs 1.4: ch: char; 


procedure initialization; 
vare: colors; i: 1.4; 
begin namedgreen] := ‘GREEN  ': 


name red] = ‘RED ’s namefyellow) := YELLOW’: 
namelblue] == (BLUE °: nameforange) := ‘ORANGE’: 
namebrown) — := ‘BROWN °': name{space] := ‘SPACE  ’: 


for ¢ := colorless to space do 
color{ord(c)] := ¢; 
for} := 1 to 4 do 
redrouti] := red; 
last := redrou; 
writeln(’ MASTERMIND CODEBREAKER)’): 
writeln(’ PLEASE BE PATIENT, SOMETIMES I TAKE A FEW’); 
writeln(’ MINUTES ON MY MOVE. WHICH VERSION (1 or 2)?’); 
read (version); 
mascolor := color{versiont5]}; 
{ Assign colors at random for row 1 } 


for i := 1 to 4 do 
rows{ 1,1) := color{ trune((versiont5)*random(0.0)+1.0) | 
end { Of Initialization Routine 


procedure checkconsistancy (hypothesis, previousrow: rou; 
var e: eral); 
label 1090; 
var J1,J2: 1..4; 


begin 
{ Count blacks first } 
e.black := 0; 


for j)/ := 1 to 4 do 
if hypothesis[j1} = previousroutj1) then 
e.black := e.black + 1; 
{ Now count whites } 
e.white := 0; 
for)! := 1to4do 
begin 
for )2 := 1 to 4 do 
if (17 32) and 
(hypothesis{j1] # preriousrou{y1)) and 
(hypothesis[j2] # preriousrou{j2) and 
(hypothesis{j1} = previousrou{j2])) then 
begin 
e.white := e.white + 1; 
{ Dummy wrong value 
premousrou{j2) := colorless; 
goto 1090 = { Exit J2 loop } 
end; 
1090: 
end 
end { Of Check Consistancy Procedure } 
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Listing 5, continued 
function formhypothesis: Boolean; 
label #20; 
var /1,12,1.3,14: colors; 
roO.9 
hyp: row; 
erall: eval; 
viable: Boolean; 


begin { forming Hypothesis } 
viable 3= true; 
for i! := last{1] to maxrcolor do 
for 2 last{2] to marcolor do 
for i3 last{.3) to marcolor do 
for (4 := last[4] to masrcolor do 


begin 
last := redrow; 
hyp t) = 1; hypie) = 62: hypls) = 03; hypl4] = 14: 
{ Check all rows so far for consistancy } 
riz 
repeat 
ris rt]; 
checkconsistancy(hyp,rows| recall); 
until (erall # evaluations{r) or (r = i): 
if ecall = eraluations{r] then 
Make sure that hypothesis doesn’t duplicate row 1; 
if it hasn’t then we have a viable hypothesis 
if hyp # rows[1] then goto &20; 
{ Otherwise, keep searching....NEXT i4.i3,i2,i1 } 
end; 
viable = false: { No viable hypothesis left } 
420: if viable then 
begin Do not recheck eliminated possibilities } 
last := hyp: 
rows| i+?) := hyp { Assign next row } 
end 
else begin 
writeln (TI HAVE REACHED AN IMPASSE. '); 
writeln(’ COULD YOU HAVE MADE AN ERROR?) 
end; 
formhypothesis := viable { Return with function value } 
end  { Of Form Hypothesis Procedure 


begin { Mastermind Codebreaker } 


repeat 
initialize: 
Start main play of game here } 
for i := 1 to 9 do 
begin 
writeln; write (MY MOVE FOR ROW’, i: 2,’ is’): 
for) := 1 to 4 do 
write (ramefrows{ ijl): 8); writeln; 
writeln ((HOW MANY BLACK PEGS?’): 
read (eraluations{i].black); 
if eraluations{i).black = 4 then 
begin 
writeln ("THANKS FOR THE GAME’); goto 470 
end; 
if eraluations{i).black = 3 then 
evaluations{i).uhite := 0 
else begin 
writeln (‘ HOW MANY WHITE PEGS’7’): 
read (evaluations{i).white) 
end; 
if not formhypothesis then goto 470 
end; 
writeln (1 AM STUMPED —— YOU WIN!"’): 
870: repeat 
writeln (" ANOTHER GAME?’); read (ch) 
until (ch = ‘Y’) or (ch ='N’) 
until ch = 'N’ 
end { Of Main Program } 


48 


stand all of them before you write your first 
Pascal program. 

The main selling feature of Pascal is that 
properly developed programs are extremely 
easy to debug. Once you get a clean compile, 
the program usually runs! Why? Because the 
algorithms are expressed c/early and natural- 
ly. The range of all control variables are well 
specified and can be enforced at run time. 
The data types all agree and are appropriate 
to the problem. The program is readable — 
data types mean what they say — and it is 
therefore maintainable. Pascal encourages 
the methodical and systematic development 
of algorithms, an important structured 
programming method. 

| hope this survey of Pascal has whet your 
appetite for the language. If so, read more 
about Pascal in this issue, then pick up any 
of the books in the references and dive in! 

Pascal is a rich and fertile language that 
emphasizes the expression of algorithms and 
data representation naturally and clearly. 
When will your microcomputer speak 
Pascal ?m™ 
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Lines 220 to 270 
and 850 to 900 program mm2 


| i1..9; 7: 1..4 

DIM RS$(9,3) rows: array [7.. 10] of row 

R$ ch: char 

DIM S(9,1) evaluations: array [1.. 10] of eval 


Lines 50 to 210 procedure initialization 


J i: 1..4; ec: colors 

DIM A$(6) name: array [colors] of string 
color: array [0.. 7] of colors 

V version: 1..2 


Lines 380 to 845 procedure formhypothesis 


10,11,12,13 11,12,13,14: colors 
LO,L1,L2,L3 redrow, last: row 

V maxcolor: orange. . space 
DIM A$(6) 

DIM D$(3) hyp: row 

R 6 :.0%49 

J 

NM eval?: eval 


Lines 910 to 1100 procedure Checkconsistency 
J1,J2 j1j2: 1..4 
DIM C$(3) hypothesis: row 


DIM BS(3) previousrow: row 
N,M e: eval 


Table 1: A comparison of the variables used in the two versions of the Master- 


mind game (see listings 4 und 5). 


What Is Mastermind? 


One of the most interesting con- 
ventional (ie: noncomputer) games on 
the market is ‘‘Mastermind,’’ distri- 
buted by Invicta Plastics, Suite 940, 
200 5th Av, New York NY 10010, and 
available in many local stores. Master- 
mind involves deductive logic, hypo- 
thesis testing and probabilistic infer- 
ence. In Mastermind, the players take 
turns as ‘“‘codemaker’’ and “‘code- 
breaker.’’ The codemaker sets up a 
concealed row of four colored pegs 
from a set of Red, BLue, BRown, 
Green, Yellow and Orange pegs. It is 
acceptable to use the same color or 
colors more than once. In version 2, a 
more advanced game, empty Spaces 
are also permitted. 

To challenge the computer program 
you are the codemaker. Write down a 
code. A row of four colors invokes the 
codebreaker computer program. It will 
take up to ten tries (rows) to discover 


the secret arrangement of colors in the 
concealed row. After printing each 
guess, the program will prompt you 
for the number of black and white key 
pegs. 

The number of black pegs corres- 
ponds to the number of correct colors 
in correct positions. An important rule 
is that no position in the try Is 
counted more than once. 

When evaluating the program’s try 
it is necessary to count black and 
white pegs carefully. If you make a 
mistake counting the number of exact 
Or inexact correspondences, the pro- 
gram may exhaust all possible arrange- 
ments without finding a possible valid 
try. In this event the message: 


I HAVE REACHED AN IMPASSE. 
COULD YOU HAVE MADE AN ERROR? 


is printed. 


(Adapted from W Lloyd Mulligan’s article, “‘Mastermind,’’ October 1977 BYTE, page 168.) 
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Pascal versus BASIC: Round 2 Includes FORTRAN 


The article ‘‘Pascal versus BASIC: An 
Exercise,” by Allan M Schwartz (page 41) 
is a typical example of a language chau- 
vinist using a language ineptly and then 
pointing to the faults in the code he has 
written as inherent properties of the lan- 
guage. 

The function GCD (page 45) that he 
has written (leaving aside the BASIC version) 
has several faults, to wit: 


1) X and Y are not declared in the Pascal 
version. 

2) The FORTRAN version will develop 
an infinite loop if X or Y equals zero 
(no comment there excludes X, Y 
greater than zero). 

3) The FORTRAN version never defines 
the functional value of GCD and so 
will not even compile in a good 
compiler. 


4) There sure are a lot of GOTOs and- 


statement numbers in his program; 
in particular, statement 180 is 
totally useless. GOTO 180 should be 
GOTO 120. 

5) There is no reason to have any GOTOs. 
It could be written as in listing 1. 

6) If you don’t mind downward branching 
GOTOs (generally considered to be 
harmless) function GCD can _ be 
written as shown in listing 2. 


As in Pascal the flow is clear and flow- 
charting is simple (Warnier-Orr diagrams are 
still better). | don’t run down Pascal but | 
fail to see why Schwartz runs down 
FORTRAN just because he writes a pidgin 
dialect inexpertly. In FORTRAN, as in 
Pascal, ‘Go to statements can fog the other- 
wise clear logic of a routine,” as Schwartz 
States in his article. FORTRAN 77 with 
IF... THEN... ELSE statements, and zero 
trip counts on DO loops, removes most of 


Lawrence C Andrews 
2634 Wycliffe Rd 
Baltimore MD 21234 


Schwartz’s FORTRAN objection. Anyone 
can write a bad program in any language. 
Pascal is no exception to that statement.™ 


INTEGER FUNCTION GCD (X,Y) 
INTEGER X,Y, A,B, LIM 
C... X,Y .GT.0 

A=X 

B=Y 

LIM = MAX0O (A,P) 

DO 1000 1=1, LIM 

IF (A .GT.B) A=A-B 

IF (B.GT.A)B=B-A 

GCD=A 

IF (A. EQ. B) RETURN 


1000 CONTINUE 
END 


Listing 1: The GCD func- 
tion written in FORTRAN 
with no GOTO statements. 


DO 1000 1 = 1, LIM 

IF (A .GT.B) A=A-B 

IF (B.GT.A) B=B-A 

IF (A. EQ. B) GO TO 2000 


1000 CONTINUE 


2000 GCD=A 
RETURN 
END 


Listing 2: A much shorter 
version of the GCD func- 
tion using one downward 
branching GOTO. state- 
ment. 


Originally appeared in April 1979 BYTE 
magazine. 


Pascal versus COBOL : 


Where Pascal Gets Down to Business 


With a few important extensions, Pascal 
can be an extremely powerful tool for writ- 
ing interactive business application programs 
on microcomputers and minicomputers. 
Pascal provides data structuring facilities 
generally superior to those of COBOL, and 
its control constructs allow a systematic 
and modular approach to program design 
that reduces development effort and im- 
proves reliability compared with BASIC or 
FORTRAN. The extensions needed make 
it easy to write interactive programs, use 
random access (floppy) disk files, handle 
business arithmetic, and recover from error 
situations. 


A Case Study 


In this article we will illustrate the use of 
Pascal for a program application one might 
find, with variations, in many small busi- 
nesses. More general descriptions of the 
language are contained elsewhere in BYTE 
and in many published introductory text- 
books. 

The business we have in mind keeps 
records of information about transactions 
with its customers, and also records con- 
taining descriptive information about the 
people with whom it deals. The descriptive 
records might apply to clients of a law firm, 
patients of a medical or dental clinic, sup- 
pliers of a hardware store with a large and 
diverse stock, houses currently listed by a 
real estate firm, users of hardware and soft- 
ware products handled by a computer store, 
and so on. The transaction records would 
describe orders for goods to be sold, de- 
liveries, invoices sent, payments, requests 
for information, promotional literature sent, 
customer property sent out for repairs, 
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medical tests ordered, etc. Typically each 
record in the file of descriptive records 
would correspond to many transaction 
records. Depending upon circumstances, 
the transaction records might be stored in- 
termingled with the descriptive records (just 
as in the shoe boxes that some small busi- 
nesses now use) or in a separate disk file. 
They might be stored on the same floppy 
disk if the files are small, or they might be 
stored on different disks. In any event, we 
assume that the number of items in the de- 
scriptive file is so large that manual proc- 
essing of the transactions information repre- 
sents a significant cost to the business for 
record keeping. We also assume that the 
business is small enough that it cannot 
afford to have its own full time data proc- 
essing department. 

We now consider how Pascal programs 
written for a small computer might help in 
the operations of a hypothetical small busi- 
ness, the Zyx Gizmo Store. With many com- 
peting manufacturers producing gizmos, it 
is necessary for Zyx to keep track of many 
different sizes, shapes, qualities and special- 
ized forms of gizmos. Moreover, the buyer 
can start with a basic model, later adding 
modules to obtain a larger and more sophis- 
ticated gizmo. Gizmos require periodic 
maintenance and corrective repairs. Zyx 
stocks some replacement parts which are 
installed in customers’ gizmos by the Zyx 
repair department or sold to users who do 
their own repair work. Some replacement 
parts are too expensive to stock locally, and 
Zyx must order them from regional distribu- 
tors when needed. Gizmos are complicated 
enough to use that many users require text- 
books or short training courses to under- 
stand how to use them. Zyx sells the text- 
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books and runs periodic training seminars 
for which users pay a small fee. Both the 
training and repair problems are made com- 
plex by the rate at which the technology of 
manufacturing gizmos is advancing, as new 
models are introduced by the manufacturers 
each year. While the similarity of the gizmo 
to the microcomputer is easily recognized 
by many readers, the gizmo model could 
apply equally well to technology based de- 
vices being sold in many fields today. 

We can assume that Zyx is large enough 
to employ several salespeople, repair people, 
and at least one full time administrative 
assistant in addition to the owner of the 
company. In general, when a situation arises 
requiring communication with a customer, 
any one of these people may have occasion 
to refer to the filed records on previous 
transactions involving that customer. If the 
customer telephones to request advice about 
an apparently malfunctioning gizmo, the 
responding Zyx employee usually needs 
information about the make, model, size 
and other details describing the customer’s 
gizmo. If a customer asks Zyx to order an 
additional module from a national distribu- 
tor, he or she may call Zyx to inquire about 
the fate of the order before delivery is ac- 
tually completed. If a manufacturer of 
modules for gizmos introduces a new line 
of devices, Zyx may wish to save on promo- 
tion costs by contacting only customers 
known to be using gizmos compatible with 
that manufacturer’s devices. For these and 
many other reasons, designated employees 
of Zyx should have ready access to records 
on the customer’s dealings with the firm. 
These records make it possible for Zyx to 
render a personalized service that probably 
is the main reason why customers come 
to the Zyx store for their gizmos rather 
than to a national or regional distribution 
company. 

Of course now that low cost microcom- 
puters have become moderately powerful, 
it is possible, in principle, for Zyx to main- 
tain its descriptive and transaction records 
on customers in a floppy disk or small hard 
disk system. Ideally, the cost of adding a 
microcomputer to a small business operation 


‘is only a fraction of the value received, both 


in labor costs and in improved customer 
relations. Moreover, the company could 
use the microcomputer for maintaining its 
accounting records, sending bills, keeping 
track of inventory and so on. We say /deally 
because the effort to write a suite of pro- 
grams to access and maintain the necessary 
files can be quite substantial if the program- 
ming is done in BASIC or FORTRAN (or 
assembly language). Using Pascal the effort 
should be very much less than the equivalent 
effort using BASIC or FORTRAN. 


Since COBOL is becoming available 
On microcomputers, some comments on 
COBOL versus Pascal are appropriate. Here 
the principal issue has ‘more to do with the 
operating system, within which business pro- 
grams written in the language will run, than 
with the language comparison. Given reason- 
able operating system support of the lan- 
guage, no one versed in Pascal would con- 
sider backing up to COBOL. COBOL’s 
principal attraction in the business comput- 
ing community has been that it is the most 
standardized of all the widely used lfan- 
guages. COBOL provides facilities for storing 
dissimilar types of information mingled to- 
gether in transaction records intended to be 
stored in off line media like disks and 
magnetic tape. Pascal too has very powerful 
facilities for storing complex data records, 
and its facilities for building complex pro- 
grams are far superior to those of COBOL. 

Regarding the operating system support, 
we'll assume in the rest of this article that 
the user’s Pascal program is developed under, 
and runs within, the UCSD (University of 
California at San Diego) Pascal Software 
System (see “‘UCSD Pascal: A Machine Inde- 
pendent System,” page 3). This system 
provides what amount to language exten- 
sions to Pascal which facilitate the use of 
Pascal in writing interactive business pro- 
grams. Some of these extensions will be 
mentioned at points in the discussion 
where they are used in our example. The 
accepted informal standard for the Pascal 
language, as described by Niklaus Wirth in 
his revised report on Pascal (Pascal User 
Manual and Report, K Jensen and N Wirth, 
Springer Verlag, New York/Heidelberg, 
1975), lacks definition of several facilities 
that are really essential if the language is to 
be convenient for writing business programs. 
On the other hand, Pascal provides an ex- 
tremely high level from which these facilities 
can be added. 


Transaction Records 


In Pascal, the programmer is required to 
declare what type of information will be 
stored under the identifier of each variable. 
Readers of BYTE should be familiar with 
the concept of type as it refers to an integer 
(whole number), real (floating point num- 
ber), or string (of characters) item stored in 
the program’s memory. Readers may also be 
familiar with the concept of an array con- 
taining a collection of items all of the same 
type. In effect, an array is a composite type 
associating one identifier with a collection 
of many similar data items, ie: all integers 
or all reals, etc. Pascal allows one to declare 
one’s own composite type containing a 
collection of items of dissimilar types. List- 


ing 1 gives a concrete example that might 
apply to the records of the Zyx company. 

In Pascal, any type declarations one 
wishes to make must appear in the main 
program or in a block (subroutine) before 
any variable identifiers are declared follow- 
ing the reserved word var. In the example 
above, representing part of a block, the var- 
iable identifier jnrec is to be used for tempo- 
rary working storage of a customer record 
read in from an external device such as disk. 
outrec is to be used to collect several data 
items together before writing out to the ex- 
ternal device. Both variables are declared to 
be laid out in memory according to the type 
declaration for customer. In other words, 
the declaration of customer describes the 
various fields of information that will be 
found in any record of that type, whether 
currently stored in main memory or on an 
external medium. 

The first field within a record of type 
customer is a name consisting of up to 30 
characters. The name is of type, string, 
which is a UCSD extension of the standard 
Pascal concept of a packed array of charac- 
ters. The type string is really just a prede- 
clared record type within standard Pascal. In 
addition to the packed array of characters, 
the record also contains a single byte field 
representing the number of characters cur- 
rently containing useful string information. 
In UCSD Pascal, a variable of type string 
with no reference to the maximum length 
(like the /30/] in the name field) will be 
given a default maximum length of 80 char- 
acters. Characters are ASCII and are synony- 
mous with the concept of 8 bit bytes. 

The identifier chargesunpaid is an ex- 
tended precision integer represented inter- 
nally as a 32 bit binary number and limited 
to storing numbers with up to eight decimal 
digits of precision. Associated with charges- 
unpaid is a scale factor of two decimal digits, 
designed to represent dollars and cents. Both 
the extended precision concept and the deci- 
mal scaling factor are UCSD extensions to 
standard Pascal intended particularly for 
business use. Where no precision or scaling 
factor is mentioned in the type portion of 
an integer declaration (as with the fields 
areacode, prefix and extension), the system 
assumes that the programmer wants the 
Standard integer precision on the machine 
being used. On most microcomputers this 
will be 16 bits, equivalent to about 4.5 
decimal digits. 

telephone is the identifier of a field 
within the customer record layout, where 
telephone is itself a record containing three 
fields, each of which is an integer. Depend- 
ing upon the purpose one might have in 
mind for the data on telephone numbers, it 
might be better to represent the telephone 


type customer = 
record 
name: string[30] ; 
chargesunpaid: integer[8:2] ; 
telephone: 
record 
areacode: integer; 
prefix: integer; 
extension: integer 
end; 
address: 
record 
street: string[40] ; 
citystate: string [40]; 
zip: integer[5] 
end 
end {customer}; 


var 
x,y: real; 
i: integer; 
inrec, outrec: customer, 


Listing 1: User declared composite type 
declaration in Pascal. In Pascal, the program- 
mer is required to declare what type of 
information will be stored under the identi- 
fier of each variable. Examples of standard 
predeclared types include integer and real. 
Pascal allows one to declare one’s own com- 
posite type containing a collection of items 
of dissimilar types. In this example, the type 
“customer”’ has been created, consisting of a 
record of the variable’s name, chargesunpaid, 
telephone and address. String is a prede- 
clared composite type provided by UCSD's 
Pascal system. 


number field as a string of ten characters. 
We have used this representation mostly as 
an illustration of the language facilities. 

address is also the identifier of a field 
which is itself a record containing three 
fields. Both te/ephone and address are said 
to be “nested’”’ inside the record of type 
customer. Pascal would allow us to nest 
record type fields within either te/ephone 
or address if we wished to do so, and those 
record fields could in turn contain other 
records. In this respect Pascal and COBOL 
are similar, though the Pascal facilities for 
record declarations are generally more flexi- 
ble. As in COBOL, one can declare that a 
particular transaction record may be used 
with several distinct field layouts, allowing 
a file to contain records with several differ- 
ent formats. 

In Pascal, one refers to a complete record 
by its identifier alone. We could transfer the 
entire content of jnrec to outrec using the 
statement: 


outrec := inrec 


No concept similar to COBOL’s MOVE 
CORRESPONDING statement is available to 
allow the transfer of similarly named fields 
between records declared to be laid out 
differently. 


If we wish to refer to a single field of a 
Pascal record, it is necessary to name both 
the record identifier and the field identifier. 
Thus we might assign a value to the name 
field of outrec as follows: 


outrec.name := ‘John Q. Public’ 


In the situation of complex record types 
with many nested records, one can often 
simplify the extra writing needed to refer 
to all the nested record identifiers by using 
the Pascal with statement. 


Interactive Input and Output 


Input and output (IO) is the area of 
greatest importance in business applications 
where the standard Pascal definition lacks a 
few essential features. Standard Pascal input 
and output do provide an orientation simi- 
lar to some implementations of COBOL in 
that a file (an IO device) has an associated 
buffer variable of the same type as that of 
the file itself. In the next section we'll 
consider files associated with record types. 

Published discussions of input and output 
in Standard Pascal are generally limited to 
handling files of type char, meaning that 
input and output are assumed to consist of 
a stream of characters. The standard identi- 
fier text is a convenient way to declare a 
file identifier as in: 


fid: text; 
which is equivalent to: 


fid: file of char; 


The standard Pascal read and write state- 
ments provide automatic formatting of 
external character strings representing inte- 
ger or floating point numbers into and from 
their corresponding internal integer and real 
representations. 

While the concept of type text is useful 
when working with magnetic tape devices or 
with card input and line printer output, it 
has proven difficult to use with interactive 
devices. The UCSD Pascal system is ex- 
tended for this purpose. The principal prob- 
lem with type text for interactive files is the 
Standard Pascal definition of the read state- 
ment. read(fid,x) is equivalent to: 


x : fid t; 
get (fid) 


in which the content of the buffer variable 
is first assigned to the variable x, following 
which a new character is loaded into the 
file’s buffer variable from the external de- 
vice. This is inconvenient when one would 
like to place a prompting message on a video 
display screen, using a simple write state- 
ment, following which the program should 


wait for input demanded by a read state- 
ment. The standard mechanism implies that 
the system looks ahead for a character to be 
loaded into the buffer variable. This is a 
great idea for tape files, but not at all con- 
venient for interactive devices. UCSD Pascal 
extends this concept by associating type 
interactive with intéractive devices. Type 
interactive is the same as type text except 
that the buffer variable is loaded from the 
external device before the value in the buffer 
variable is moved to the program variable. 
In more explicit terms: 


var fid: interactive; 


get(fid); 
x: =fidt 


where the last two lines represent read(fid, x). 

UCSD Pascal extends the idea of types 
text and interactive by allowing a string 
to be handled with minimum fuss. On 
read(fid,strg) (or just read(strg), when re- 
ferring to the standard system file input), 
one types characters at a video display key- 
board with each character appearing im- 
mediately on the screen. If a character is 
mistyped it can be erased from the screen 
and the input buffer by pressing the back- 
space key. If one wants to erase the entire 
input buffer for a clean start (with all typed 
characters wiped off the screen), one presses 
the delete or rubout key. The read operation 
is terminated when return is pressed, where- 
upon one can determine the number of 
characters actually input into the variable 
strg by using the built-in string function 
length(strg). On output, the write statement 
determines how many characters to send 
from a string variable using the length field 
associated with that variable. For example, 


write(‘Hello There’); 
and 


strg := ‘Hello There’; 


write(strg); 


would both produce the same 2 word mes- 
sage on the output device. As in Standard 
Pascal, the width of the field of characters 
sent from the write statement can be con- 
trolled as follows: 


write(strg: width) 
Disk Input and Output 


One of the main reasons for using a disk 
file is to allow rapid random access to any 


selected record in the file. Access to a floppy 
disk record takes roughly 0.25 seconds, 
whereas access to arecord on a tape cassette 
or cartridge can take many seconds or more 
than a minute. Interactive business process- 
ing usually requires files to be maintained 
on an external medium like disk or tape be- 
cause the main memory of a microcomputer 
or minicomputer is usually not large enough 
to contain a complete file at one time. Ran- 
dom access is almost mandatory in most 
cases to avoid long waiting times for the 
people using the computer. 

For example, the Zyx company might 
have a database of customer records in a file 
fcust declared as follows: 


fcust: file of customer; 


within the variable declarations of a Pascal 
program. When a customer arrives to ask for 
information, a Zyx staff member wants im- 
mediate access to the record associated with 
that customer in the disk file. Standard 
Pascal provides no way to reach the cus- 
tomer’s record without sequentially reading 
many other records: usually starting at the 
beginning of the file. UCSD Pascal allows 
one to position the record number pointer 
of the file using the built-in seek statement, 
for example: 


seek(fcust, recnumber) 


Following execution of this statement, the 
standard procedure call get(fcust) would load 
the selected record numbered recnumber 
into the buffer variable of the fcust file. 
Contents of the buffer could then be altered 
directly or moved to other variables in the 
program. get causes the record number 
pointer associated with the file to be ad- 
vanced to the next record in sequence. If 
you want to change the contents of the 
buffer variable and then return the changed 
contents to the disk record numbered 
recnumber using put(fcust), you would first 
have to call seek again. The get and put pro- 
cedures of Standard Pascal are designed with 
sequential tape files in mind, and they can 
also be used for sequential reading of disk 
files. Use of the seek procedure as described 
allows random access to disk files with mini- 
mum alteration of the standard language. 
Several aspects of disk file handling are 
very important for simplifying the task of 
the business application programmer, though 
not specified as part of the Pascal language. 
For example, standard floppy disk media are 
usually partitioned into sectors of 128 bytes 
each. In some operating systems, such as the 
Digital Equipment RT11 operating system, 
a file is made to appear as partitioned into 
physical records of 512 bytes called blocks 
(UCSD Pascal system uses this convention). 
Typically, the record layout a programmer 


wants to use (such as customer in our ex- 
ample) does not result in a neat fit with the 
sector or block size demanded by the oper- 
ating system. This means that a logical rec- 
ord associated with a record type declaration 
in Pascal may occasionally be split between 
two physical records on the disk. The oper- 
ating system should allow the Pascal pro- 
grammer to get a record from the disk or 
put a record to the disk without concern for 
this complication. The system should main- 
tain a directory of disk files so that the pro- 
grammer need not be concerned with the 
actual location of a file on the disk, but only 
with the number of a logical record counting 
from the beginning of the file. 

The programmer of a business applica- 
tions program package needs to have a 
simple way to cause a program to call for 
changes in the library of disk files main- 
tained by the program. For example, an 
obsolete copy of a master file might be re- 
moved from the directory, or its directory 
name changed. The UCSD Pascal system pro- 
vides these and other facilities to make disk 
file handling as painless as possible on a 
small machine. 


Keeping Track of Categories of Data 


One of the common problems in business 
programming is identifying people or things 
with certain groupings or categories in order 
to simplify the handling of data on those 
people or things. For example, the Zyx com- 
pany might want to characterize some cus- 


type 
manuf = (able, baker, charlie, davis, edwards, jones, smith, none); 
customer = 
record 
name: string[30]; 
chargesunpaid: integer[8:2] ; 
equipment: set of manuf; 
telephone: 
record 
areacode: integer; 
prefix: integer; 
extension: integer 
end; 
address: 
record 
street: string[40]; 
citystate: string[40] ; 
zip: integer[5] 
end 
end {customer }; 


var 
x,y: real; 
i: integer; 
supplier: manuf; 
inrec, outrec: customer; 


Listing 2: An expansion of the Pascal code in listing 1 illustrating the use of 
sets. The type manuf has been added, which can be associated with a variable 
allowed to assume only the values enumerated in the declaration. For ex- 
ample, the new variable supplier, of type manuf, may take on the value of 
any of the items in the manuf list such as able or davis, but no others outside 
the type. 
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tomers as primarily oriented to gizmos made 
by certain manufacturers, such as the Able, 
Baker, Charlie, Davis, Edwards, Jones and 
Smith companies. Within the product lines 
of these companies, Zyx might also want to 
have ready access to arecord showing which 
selection of all the possible gizmo modules 
a customer might have. Thus, when a cus- 
tomer makes an inquiry or a manufacturer 
brings out a new type of module, Zyx staff 
members could reduce the effort in knowing 
how to deal with the customer. For ex- 
ample, a printed promotional brochure 
might be sent only to the customers asso- 
ciated with an appropriate combination of 
categories. 

In virtually any programming language, 
this problem can generally be solved by stor- 
ing descriptive strings as additional fields of 
the customer record. However, the strings 
can take up far more space than one would 
like (particularly on a minifloppy disk!), and 
they are awkward to use when you are sim- 
ply searching through a file for records cor- 
responding to a particular combination of 
categories. For example, we might want to 
search the file to identify all customers who 
own gizmos made by the Able, Jones and 
Smith companies who also have a particular 
type of add-on module. (If you are having 
trouble relating to gizmos, how about S-100 
bus microcomputers with a minimum of 
16 K bytes of memory?) 

To solve the space problems in storing 
categories information, a standard technique 
in traditional programming languages _in- 
volves deciding on a set of codes to represent 
the various categories. In our simple exam- 
ple enumerating the gizmo manufacturers, 
we might store a single letter representing 
each manufacturer, such as A for Able, B for 
Baker, and so on. But how do we store the 
information that a particular customer is 
associated with two or more of these codes? 
Without a complex indexing mechanism, a 
random access disk file virtually requires 
that all logical records be of the same size. 
Do we provide an array for storing these 
codes? How long does the array need to be 
to account for all possible combinations of 
codes for our customers? Are we willing to 
put up with inaccurate data on a few cus- 
tomers in order to save large amounts of file 
space for the great majority of customers? 
How do we write a search program to go 
through the file quickly to find all the cus- 
tomers associated with a specific combina- 
tion of categories? The reader might well 
pause at this point to consider how to ac- 
complish these tasks with his or her favorite 
programming language. 

The Pascal facilities for handling sets are 
designed to make program solutions for 
problems like these as painless as possible. 


For example, we might expand the declara- 
tions given earlier as shown in listing 2. 

We have added the declaration of a new 
type manuf which can be associated with a 
variable allowed to assume only the values 
enumerated in the declaration. For example, 
the new variable supplier is allowed to be 
assigned the value ab/e, or jones, from the 
list of enumerated identifiers. 

Also declared as a new field of the 
customer record type is equipment, a set of 
members selected from the type manuf. 
If a customer of Zyx owned gizmos made 
by Baker, Edwards and Smith companies, 
the following assignment statement might 
appear in a simple program: 


outrec.equip := [baker, edwards, smith] 


where the quantity in brackets on the right 
side is a set constant stating that items are 
present from the three manufacturers noted. 
For an interactive business file maintenance 
program, the record of a new customer 
showing no association with a manufacturer 
would most likely be initialized using an 
empty set constant: 


outrec.equip :=[ ] 


Then, when the customer acquired his or her 
first gizmo, we might find a statement such 
as: 


outrec.equip := outrec.equip + [edwards] 


which would form the union of the old value 
of the equip set with a new set constant 
value. In other words, equip would now 
have a notation indicating the presence of 
edwards in addition to what was previously 
noted in eguip. We could continue adding 
notations of other gizmo acquisitions when 
appropriate. In fact this process is likely to 
assign a value to a simple variable of the set 
type associated with manuf; then that vari- 
able would be used elsewhere in the program 
to augment the noted membership of equip. 

Pascal’s facilities for handling sets are 
advantageous in many ways. A set is gener- 
ally stored in memory as an array of binary 
bits which are made accessible in a special 
way. In UCSD Pascal, a set is stored as a 
string of bytes, each byte containing up to 
8 bits to indicate whether a corresponding 
value is present in the set. Only the number 
of bytes needed to hold the declared number 
of set members need be stored. If, as is 
usual, one needs several dozen members in 
a set for a business application, the space 
occupied is very little more than the mini- 
mum needed. UCSD Pascal allows a set to 
have as many as 4080 members. 

Once the value of a set field of a record 
has been assigned, it is readily possible to 
test whether a customer record is associated 
with a desired combination of members. For 


example, to determine whether a customer 
is noted as owning gizmos made by Baker, 
Edwards or Jones companies, we could use 
an /f statement such as: 


if (outrec.equip * [baker,edwards,jones]) <> [ ] 


then 
begin... end; 


Here the expression within parentheses 
(on the left of ‘“<>”) isolates the members 
of equip falling in the group Baker, Edwards 
and Jones. The parenthesized expression is 
said to be the intersection of the value in the 
equip field in outrec and the set constant 
within square brackets. The comparison indi- 
cated by <> then asks whether the result of 
the intersection operation has left any mem- 
bers by asking whether the result is an emp- 
ty set. If not, then at least one of the three 
members must be present, and the com- 
pound statement (begin ... end) following 
then is executed. 

The alternative to this test for set mem- 
bership would usually be a complex se- 
quence of IF tests in the traditional lan- 
guages. The set combining and _ testing 
operations can be implemented efficiently 
by the Pascal system. Thus they allow a 
program to be written more simply and 
occupy less space. They also make the oper- 
ations undertaken by the program more 
obvious to anyone versed in Pascal, thus 
making a complex program more easily 
maintainable and bug free. 


There’s a Lot More 


It is not possible to present a comprehen- 
sive view of how one uses a language for 
complex business programming within a 
short article. For example, we have not de- 
scribed the use of Pascal swbrange variables, 
which allow a programmer to state that a 
variable is permitted to contain only certain 
declared values. If an attempt is made to 
assign to the variable a value outside the de- 
clared range, the program either terminates 
abnormally or (if Pascal is extended in a 
simple way) the programmer may provide a 
recovery block in which corrective measures 
may be taken. Data validation is one of the 
most common problems in business data 
processing. At UCSD, we feel that the addi- 
tion of a simple recovery block mechanism 
is essential to allow reduction in program 
complexity for handling the many excep- 
tional circumstances that show up in busi- 
ness data, without unnecessary interruption 
of processing. 


A Note on Pascal Extensions 


Though Pascal does seem to require a few 
extensions to make business application pro- 


gramming truly practical, the language pro- 
vides an extremely powerful base from 
which to work. One of the strengths of 
Pascal, according to the intentions of its 
designer, is that it offers all this power ina 
remarkably simple and self-consistent form. 
The necessary extensions can be made in 
ways that generally retain this consistency 
so as to be relatively obvious to the program- 
mer. We feel that Pascal is by far the best 
language available for adaptation to inter- 
active business processing on small machines. 
We would be happy to send further informa- 
tion about how we use the language for 
business or real time applications to anyone 
who writes to us. 

The questions of whether standard 
Pascal should be extended, and how, are 
currently being debated intensely in the 
international Pascal Users Group. Each 
special interest community of Pascal users 
has its own list of extensions considered 
essential to make the language a practical 
tool for developing software products in that 
community. Even the question of what 
extensions are essential is being debated, 
since it is possible to use the facilities of the 
Standard Pascal language to create a library 
of routines to handle the user’s special 
problems in most cases. In general, an imple- 
mentor should consider extending the 
language only in cases where the result will 
be simpler and more reliable or efficient 
programs. 

This article discusses extensions that the 
author feels are essential for business appli- 
cations. Other communities with very strong 
interests in Pascal work with real time appli- 
Cations, development of system software 
such as operating systems and compilers, 
interactive systems such as computer assisted 
instruction, scientific computations, and so 
on. Of course these communities do overlap 
substantially. If the essential extensions 
needed by all these communities were added 
to the standard Pascal language, the simpli- 
city and self-consistency that make the 
language so important would probably be 
destroyed. Therefore, it is very unlikely that 
an eventual formal standard for the Pascal 
language will include any but the most 
widely needed extensions currently under 
discussion. 

This situation leaves many Pascal advo- 
cates very much worried that there will be 
no effective standards for the extended 
language features needed by the special 
interest communities. There has been 
discussion within the Pascal Users Group 
about the possibility of encouraging develop- 
ment of common interest supersets of the 
language for specialized uses. Ideally, lan- 
guage standardization is a process which 
should proceed slowly giving attention to 
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the ideas of all experts who wish to be 
heard. In practice, the use of Pascal is 
growing so fast throughout the computer 
industry that close coordination of the 
extensions made by many implementors 
has become virtually impossible. We at 
UCSD have set ourselves the limited goal 
of seeking coordination and cooperation 
on Pascal extensions for system program- 
ming (including those for business and real 
time applications) among a number of 
industrial firms that seem most active in use 
of the language, particularly as regards small 


computers. For reasons associated with their 
own proprietary interests, these firms will 
generally be able to cooperate on only some 
of the most widely used language extensions 
within their special interest communities. A 
Pascal language extensions workshop was 
held at UCSD in July of this year primarily 
to help bring about this coordination. We 
intend to continue working as closely as 
possible with the international Pascal Users 
Group, and to take guidance from the PUG 
leadership on extension issues whenever 
practical.@ 


A “Tiny” Pascal Compiler 
Part 1: The P-Code Interpreter 


Roughly speaking, a compiler is a pro- 
gram that translates the statements of a high 
level language (such as Pascal or FORTRAN) 
into a semantically equivalent program in 
some machine recognizable form (such as 
machine or assembly code). The former is 
usually referred to as the source program 
while the latter is called the object pro- 
gram. An interpreter, on the other hand, 
reads in the source program and _ starts 
execution directly, without producing an ob- 
ject program. 

There is little doubt that compilers and 
interpreters are a necessary part of any 
computer system. The reason most per- 
sonal computer systems do not have high 
level language compilers is not that there is 
no need for them. Compilers, being inherently 
more complex than interpreters, require 
more effort to write and more computer 
memory to run. The main advantage of a 
compiler over an interpreter is the relative 
speed. A compiled program typically runs 
an order of magnitude faster than an equival- 
ent program executed interpretively. In fair- 
ness, it must be also pointed out that inter- 
preters are usually easier to use, and more 
suitable for an interactive environment. 

This series of articles is an attempt to 
describe how a compiler for a subset of 
Pascal was implemented on an 8080 com- 
puter system. It is not our intention to go 
into details for the reasons for the choice 
of the language. Pascal is widely recognized 
as superior to many other languages. For 
an overview of the language, readers are 
referred to August 1978 BYTE.’ The publi- 
cation, Pascal: User Manual and Report, by 
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Kathleen Jensen and Niklaus Wirth 
(Springer-Verlag, 1974) should also be 
consulted as the authoritative source book 
on the language in its original form. 

This is not, of course, the first Pascal 
compiler ever written for microcomputers. 
However, instead of waiting for a Pascal 
compiler to be written for our particular 
processor, we decided to undertake the 
project ourselves. In this way, we can add or 
subtract features from the original Pascal to 
suit our needs and system capabilities, so 
that it can be easily integrated with other 
system software developed so far. 


2 Stage Compiler 


The compiler is divided into two stages: 
a p-compiler and a translator. Instead of 
having the compiler generate machine code 
directly, it generates code for a hypothetical 
machine, called the p-machine. These codes, 
called p-codes, are then converted into the 
target machine codes by the translator. 
Dividing the task of a compiler into two 
Stages offers several advantages. The com- 
piler can be written abstractly, without com- 
mitting oneself to a particular machine and 
worrying about details of code generation 
and optimization. Such a compiler is said to 
be portable, meaning that it can be used on 
other computer systems with minimal start 
up effort. It is only at the last stage of code 
translation from the p-codes to actual ma- 
chine codes that we have to commit our- 
selves to a particular machine. 

Another advantage this method offers is 
greater flexibility when writing the com- 
piler. The compiler and the translator can be 
coded and debugged separately. The flexi- 
bility of such a compiler was apparent to us 
as we Started to introduce more and more 
Pascal features into our original minimal 
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Figure 1: Memory overlay structure of the modules of the compiler. The 
North Star DOS and BASIC start at hexadecimal 2000 and take up approxi- 
mately 14 K bytes of memory. The p-compiler is the largest BASIC program 
of the system; in its compressed form (void of all comments and blanks) it 
occupies 14 K bytes. It reads Pascal source programs created by the editor 
from disk files, and generates relocatable p-codes directly in memory. We use 
hexadecimal 0000 to 19FF for p-codes and find it adequate for Pascal source 
programs under about 300 lines in length. The smaller translator (9 K bytes) 
produces 8080 codes directly filled into memory. The origin of the codes 
can be specified. The run time routines (which total 1 K bytes of memory) 
are needed only when the translated 8080 codes are being executed. The 
interpreter is written in Pascal, compiled and translated. The BASIC inter- 
preter is no longer needed when it or any other Pascal program is being run. 


subset. Seldom was it necessary for us to 
introduce new p-codes other than those 
originally specified. 

There is also one more reason for breaking 
the compiler into two stages: most small 
computers do not have enough memory 
Space to store the complete compiler. After 
the p-codes are generated, the p-compiler is 
no longer needed, and can be overlaid with 
the translator. Therefore the compiler and 
the translator can share the same memory 
locations. 

Actually we also use two other utility 
programs: a text editor and a p-code inter- 
preter. The editor is used to prepare the 
Pascal source programs. The interpreter is 
used to interpret the p-codes produced by 
the p-compiler. This provides another 
alternative for running the Pascal programs. 
Because it is equipped with various de- 
bugging aids, such as setting up breakpoints 
in p-codes and outputting values for vari- 
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ables, debugging can be easily done. Only 
after a program is verified to be correct is 
the translator loaded, and 8080 code pro- 
duced. This allows easy development of 
the Pascal programs without sacrificing 
efficiency at run time. Figure 1 shows 
the overlay structure for the various mod- 
ules of the compiler. Figure 2 shows the 
logical flow during a program development. 

In this part of the series on our project, 
we will describe the general plan. The 
Pascal subset is defined using syntax dia- 
grams. A description of the p-machine and 
its codes are also given. We will discuss the 
p-compiler, translator and run time routines 
in the following parts. 


Bootstrap Compiler 


How does one introduce a new language 
into a computer system with limited com- 
puter resources? By computer resources we 
mean not only the computer hardware like 
memory and peripherals, but also software 
tools. We have learned from experience not 
to attempt programs with the complexity 
of a compiler in machine or assembly lan- 
guage. This left us with BASIC. Although 
it is not the most desirable language to 
write a compiler with, it turned out to be 
adequate. Some careful thought is needed, 
of course, to handle recursive subroutine 
calls from BASIC, a feature central to our 
compiler writing. 

The alternative to BASIC is to go toa 
commercial computer and write the whole 
or part of the compiler in an appropriate 


language. The finished product (or part of 
it) can then be transferred to the smaller 
computer. This is, however, a luxury most 
of us cannot afford. 

Of course, the compiler written in BASIC 
would be very inefficient and slow. But this 
actually would not matter, since it would 
only be used as a bootstrap compiler. The 
concept of bootstrapping should be familiar 
to most personal computer owners. We 
usually use it when initially starting up 
our computers. After turning on the power, 
a bootstrap loader is first loaded into the 
computer (either manually or through the 
use of read only memory). This bootstrap 
loader is then used to load the loader, which 
in turn loads the monitor into memory. The 
bootstrap loader is a smaller version of the 
loader; it is just big enough to load the main 
loader and not adequate to be a general 
purpose loader. 

The same idea can be applied to com- 
piler writing. A compiler for a small subset 
of a language is first written. This subset 
should be big enough so that a compiler for 
a bigger subset of the same language can be 
written in it. The larger compiler is then 
written and compiled, using the first com- 
piler. Next, a compiler for a still bigger sub- 
set of the same language can then be written 
and compiled, using the second compiler, 
and so on until a compiler for the complete 
language is produced. In actual practice, no 
more than three stages are used. It does not 
matter if the first compiler ts very inefficient. 
The idea is to get a working, albeit primitive 
and inefficient, compiler with minimum 
starting effort. 


Pascal Subset Syntax 


The syntax of Pascal can be described 
precisely by using a notation usually called 
Backus-Naur form (BNF). This is a collec- 
tion of rules for the grammar of the lan- 
guage. Instead of dealing with Backus-Naur 
form directly, we use an equivalent but more 
understandable notation: the syntax dia- 
grams. Figure 3 describes the syntax of the 
Pascal subset we are interested in. 

In the syntax diagram, the square boxes 
are called nonterminal symbols, while the 
ovals are called terminal symbols. Terminal 
symbols are the basic building units of the 
language and require no further expansion. 
In our case, the names that represent the 
terminals are also their textual representa- 
tions in the language. The nonterminal sym- 
bols in the syntax diagrams can be expanded 
using rules specified in another syntax dia- 
gram, and there is a syntax diagram for each 
nonterminal symbol in the syntax diagram. 
A branch in the diagram represents options 
allowable by the grammar. When all non- 


terminal symbols are eliminated by ex- 
pansion in this fashion, we would have a 
valid program. We start off a compilation 
with the nonterminal program. Looking at 
the syntax diagram we see that a program 
is a block followed by a period (.). Looking 
at the syntax diagram for block, we notice 
that it can have an optional declaration part 
followed by the main body which begins 
with the string begin, followed by any 
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Figure 3: Syntax diagrams of the Pascal subset. For the syntax diagrams of the full Pascal set 
refer to the book by Kathleen Jensen and Niklaus Wirth, entitled Pascal: User Manual and 
Report. These diagrams totally define the subset of the language that we are using. 


number of the nonterminal symbols, state- 
ment, separated by semicolons (;), and then 
the string end. The statement block can be 
further expanded by the syntax diagram for 
statement, and so on. 

The reason we go through the details 
here is because it is important to precisely 
describe the features we want to include in 
our language before starting to write the 
compiler. It is the first step towards writing 
the compiler. These syntax diagrams will 
later become flowcharts for the syntax 
analyzer of the compiler. 

Readers familiar with Pascal will no 
doubt notice several important features 
missing from our subset. There is no GOTO 
statement. The only data type we have is 
integer and integer array of one dimension. 
Also missing from the subset is the structured 
data type, pointer type, user defined type, 
and file type. A less obvious omission is 
passing the parameter of a procedure by 
address; the parameters are passed by value 
only. Aside from the fact that these features 
are difficult to implement, they are not 
indispensable in our bootstrap process. Of 
course, features like user defined type and 


structured type are some of the unique fea- 
tures of Pascal, and should not be omitted in 
the long run. But we feel that they can be 
added later. 

We have also included some trivial but 
nevertheless useful enhancements to the 
language, which we hope do not deviate 
from the standard too much. One Is the 
addition of the optional clause else to the 
case statement which provides an exit path 
if the value of the variable does not fall 
into any of the case labels. Another is the 
inclusion of format controls in the read and 
write statements. Following an expression 
in a write statement, a pound sign, #, indi- 
cates numeric form and a percent sign, %, 
indicates hexadecimal format. If there is no 
format control, a character whose ASCII 
code equals the expression is output. Also a 
hexadecimal constant is prefixed by %. This 
allows processing of hexadecimal numbers 
without conversion by the user. 

To allow interfacing Pascal programs with 
assembly programs, a facility is provided to 
read or write a byte from or to absolute 
memory locations. The array mem is a re- 
served array name that is used to do this. 


For instance: 

mem [i]:=mem{/]; 
reads the byte from the memory location / 
and writes it back to memory location /. 


Machine language subroutines can be called 
from Pascal programs. The statement: 


Call (i); 


EXPRESSION 


——+»/ SIMPLE EXPRESSION 


SIMPLE EXPRESSION 


PEP 


can be used to make a call to memory 
address /. 


The P-Machine 


The p-machine is a stack oriented ma- 
chine consisting of four registers and two 
memory storage areas. Memory is separated 
into program storage and data storage areas. 
The program storage area contains the pro- 
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Figure 3, continued: Elem- 
entary constructs for Pascal 
subset. Hexinteger is usual- 
ly not defined in Pascal but 
is used here so that actual 
memory locations can be 
easily manipulated. 


63 


FACTOR 


FUNCTION 
IDENTIFIER 


VARIABLE 


IDENTIFIER 


CONSTANT 


HEX INTEGER 


CONSTANT 
VARIABLE 


(> Lexeression | © 


INTEGER 
STRING 


Figure 3, continued: Notice that some of the diagrams, for example FACTOR, contain them- 
selves in their own definitions. This is Rnown as a recursive definition. 


gram codes (p-codes), and remains un- 
changed during program execution. The 
data storage area contains the values of 
variables. It is also used to store temporary 
values during arithmetical and _ logical 
Operations. 

Though the variables can be fetched and 
stored in a random fashion, the data storage 
area operates as a stack with respect to 
arithmetical and logical operations and run- 
time storage allocation. Arithmetical and 
logical operations are done on the top 
elements of the stack, and the results of 
the operations are pushed back on the 
stack. In this respect, one might call it a 
zero address machine, since operations 
(except store and load instructions, which 
must specify an address) are done without 
reference to any address. Later we will 
discuss the use of the stack during run time 
storage allocation. 

The four registers in the p-machine are 


the program counter, P, which points to 
the next executable instruction in the 
program storage; the instruction register, I, 
which contains the current execution in- 
struction; the stack pointer, T, which points 
to the top of the stack, and the base address 
register, B, which contains the current base 
address. The functions of the first three 
registers should be quite clear from the 
above discussion. The function of register B 
will become clear after we discuss storage 
allocation. 

Each variable in a Pascal procedure has a 
scope and lifetime. The scope of a variable 
is the range within which it can be refer- 
enced. The scope of a Pascal variable is 
simply the procedure block to which it 
belongs. The lifetime of a variable is from 
the time storage is allocated for it to the 
time storage is disallocated. In Pascal, this 
is the time the procedure defining the vari- 
able is activated to the time a return is 
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Figure 3, continued. 


executed by the procedure. This is different 
from the way variables are treated in BASIC, 
where the scope of a variable is the entire 
program and its lifetime the entire execution 
time. 

Since procedure activation is strictly a 
first in, last out process, the use of stack is 
an appropriate strategy. When a procedure is 
activated, storage for its local variables is 
allocated on the top of the stack, and is 
disallocated when the procedure is termi- 
nated. Thus the stack contains all the 
variables of the currently active procedures. 


The variables of the last activated procedure 
are on the top of the stack, those of the 
second to last activated procedure next to 
it, and so on. 

Since storage allocation is not static, 
addresses cannot be assigned at compile 
time, but must be calculated at run time. 
The base register, B, always points to the 
starting location of the segment of the data 
block in the stack. The addresses generated 
by the compiler are not absolute addresses, 
but displacements from some base addresses. 
If the variable is local, then its address is the 
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Figure 4: A typical activation record for a 
function. For a procedure, the function re- 
turn value is omitted. Note that the proce- 
dure and function parameters, as well as the 
function return value, are below the base 
register B, and thus would have negative dis- 
placements. 


displacement from the current base register 
B; but if the variable is from an outer pro- 
cedure, then the base address for that pro- 
cedure should be calculated, and added to 
the displacement. 

To do this, and to ensure proper pro- 
cedure or function linkage, extra storage 
is allocated on the stack when a procedure 
is activated. Figure 4 shows the various 
quantities present in each of the procedure 
blocks. The function return value is used 
only for function calls, and storage is allo- 
cated for any parameters needed by the 
procedure or function. The base address 
contains the value of the current base 
register B, and the return address contains 
the program return address at the place of 
the call. The functions of the dynamic 
linkage and the static linkage need further 
explanation. 

The dynamic linkage forms a_ chain 
that reflects the procedure activation history. 
It points back to the base address of the 
procedure that was activated immediately 
before this one. For instance, if procedure A 
calls procedure B, which calls procedure C, 
then the dynamic link chain points from C 
to B, and then to A. It is used to ensure that 
the program returns to its previous state 
when exiting a procedure. In particular, the 
base register B must be loaded with the cor- 
rect, base address of the calling procedure. 
This would be easy to do if we follow a step 
through the dynamic link chain. 

The static link, on the other hand, 
reflects the static hierarchical structure of the 


procedures. Each active procedure has a 
link that points to the procedure (also 
active) that immediately contains it. The 
Static links actually form a tree, with the 
main program block as the root. These links, 
which in general are different from the 
dynamic links, are used to let programs 
have access to the correct base address of 
the variables in an outer procedure, since 
at compiler time, only the static relationship 
among the procedures are known. The com- 
piler therefore generates the pair (static level 
difference, relative displacement from the 
base address) as addresses for variables. The 
calculation of the addresses from these 
pairs would presumably slow down the 
process, but it is a small price to pay for 
nice features like recursive procedure calls. 


The P-Codes 


The p-machine has only 11 basic instruct- 
ions, which are listed in table 1. For the sake 
of simplicity and easy handling in this ver- 
sion of the implementation, all instructions 
are four bytes long. The contents of the four 
bytes are as follows: 


byte 1: op — the operation code. 
byte 2: can be (i) v—static level dif- 


ference. 
or (ii) c — condition code in a jump 
instruction. 
or (iii) 255 — denotes absolute 
addressing. 
or (iv) not used for some instruc- 
tions. 


bytes 3,4: can be (i) d — displacement 
from the base address. 
or (ii) n — numeric constant. 
or (iii) a — address in the p-code 
program. 


The OPR (arithmetic and logical opera- 
tions) and CSP (call standard procedure) 
are further subdivided into more instructions. 
The complete set of instruction mnemonics 
and operations is listed in table 2. The 
LODX and STOX instructions are used to 
load and store array elements with the value 
of the array subscript on top of the stack. 
The call standard procedure (CSP) instruc- 
tion is primarily used for input and output 
(lO) operations. Besides the basic function 
of inputting and outputting single char- 
acters, additional procedures have been 
implemented to relieve the user from writing 
lO conversion routines in Pascal for numeric 
and hexadecimal numbers. In the future, 
more procedures can be added to handle 
the input and output of other data types 
such as floating point numbers and file 
records for tape or disk. Meanwhile these 
seven instructions are sufficient for conven- 


ient use in writing the bootstrap compiler 
and its related software. 

Readers are urged to read the p-code 
interpreter listing which simulates the 
operations of the p-machine. The program 
statements are straightforward and _ self- 
explanatory. Familiarity with the p-machine 
instruction set is essential in understanding 
the code generation part of the p-compiler. 


Op Code 
(Hexadecimal) 


Mnemonic Operation 


load literal constant 
arithmetic or logical operation 
load variable 

load indexed variable 
store variable 

store indexed variable 

call procedure or function 
increment stack pointer 
jump unconditional 

jump conditional 

call standard procedure 


LIT 
OPR 
LOD 
LODX 
STO 
STOX 
CAL 
INT 
JMP 
JPC 
CSP 


0,n 
0,n 
v,d 
v,d 
v,d 
v,d 
v,a 
0,n 
0,a 
c,a 


The P-Code Interpreter se 


Since the p-machine is a hypothetical 
computer, there has to be some method of 
executing the p-codes generated by the 
compiler. There are two simple solutions 
to this problem. One is to write an inter- 
preter which can decode and execute the p- 
codes. The other solution is to write a trans- 
lator which can decode the p-codes and 
output equivalent executable machine codes 
for an existing computer. Both methods 
have been used in our compiler system. The 
first method, although it runs slower, is 
good for developing programs because many 
debugging facilities can be implemented in 
the interpreter. The second method is good 
for production programs which may need 


Table 1: Basic p-codes. The v in call, load and store instruc- 
tions is the difference in static level between the current 
procedure and the one being called or the one which con- 
tains the variable from the base address. An address in a 
p-code program is shown by a. The condition code, c, can 
either be O or 7. 


instruction cycle can be divided into four 
stages: 


@ Fetch a p-code from memory. 

@ Increment the program counter. 
@ Decode the instruction. 

@ Execute the instruction. 


faster execution speed. A p-code to 8080 
machine code translator will be described in 
part 3 of this series. 

The p-code interpreter is made up of two 
major modules: 


e@ Main program. 
@ Procedure which 
machine. 


simulates the p- 


Every call to the simulator will execute 
one p-machine instruction. Each p-machine 


Several global variables are used to hold the 
values of the p-machine registers such as 
program counter, stack pointer, current 
instruction, etc. A one-dimensional array 
represents the data stack. Functional opera- 
tions of the various p-machine instructions 
are coded directly from the instruction set 
defined in table 2. The main program 
simply Initializes the program counter to 
zero and then calls the simulator repeatedly 
to simulate machine execution. This sounds 
simple but not useful, because the user has 


Mnemonic Description Mnemonic Description 

LIT 0, n_ load literal constant OPR 0,20 decrement (sp) by 1 

OPR O, O procedure return OPR- 0,21 copy (sp) to (sp+1) 

OPR O, 1. negate (sp) LOD v,d load a word 

OPR O, 2. add (sp) to (sp—1) LOD 255,0 load a byte from absolute address (sp) 
OPR O, 3. subtract (sp) from (sp—1) LODX v,d_ load a word with index address (sp) 
OPR O, 4 multiply (sp—1) by (sp) STO v,d store a word 

OPR O, 5 divide (sp—1) by (sp) STO 255,0_ store a byte to absolute address (sp—1) 
OPR O, 6 loworder bit of (sp) STOX  v,d__ store a word with index address (sp) 
OPR O, 7 (sp—1) modulo (sp) CAL v,a_ procedure call 

OPR 0, 8 test for (sp—1)=(sp) CAL 255,0_ call procedure at absolute address (sp) 
OPR O, 9 test for (sp—1)<>(sp) INT O,n_ increment sp by n 

OPR 0,10 test for (sp—1)<(sp) JMP 0,a jump to locationa 

OPR 0,11 test for (sp—1)>=(sp) JPC 0,a_ jump to location a if low order bit (sp)=0 
OPR 0,12 test for (spo—1)>(sp) JPC 1,a jump to location a if low order bit (sp)=1 
OPR 0,13 test for (sp—1)<=(sp) CSP 0,0 input 1 character 

OPR 0,14 logical (sp—1) OR (sp) CSP 0,1. output 1 character 

OPR 0,15 _ logical (sp—1) and (sp) CSP 0,2 input an integer 

OPR 0,16 logical NOT of (sp) CSP 0,3 output an integer 

OPR 0,17 shift left (sp) logical CSP 0,4 input a hexadecimal number 

OPR 0,18 shift right (sp) logical CSP 0,5 output a hexadecimal number 

OPR 0,19 increment (sp) by 1 CSP 0.8 output a string 


Table 2: The p-machine instruction set. The stack pointer, sp, points to the top element of the stack. The content of the stack 
element is represented by (sp). The operands of the OPR instructions are replaced by their results on the stack. The result of the 
six relational operations is 1 if the test is true and 0 if false. With the exception of single operand OPR instructions, all instruc- 
tions adjust the stack pointer, sp, after execution. 
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North Star BASIC 


A brief summary of North Star BASIC (version 6, release 3) is given for 
readers not familiar with its particular features. 

Variable names are one or two characters long: an alphabetical character fol- 
lowed optionally by a decimal digit. There are four types of variables: numeric, 
string, array of numeric, and function. The string variables are names postfixed 
by a dollar sign $, while function names are prefixed by FN. Functions (and the 
parameters) are defined by the declaration DEF, and ended by FNEND (for 
multiline function). The parameters in the function definition are local to the 
function, and would not affect variables in the calling program. 

Strings cannot be dimensioned. The DIM declarations for strings declare 
the maximum length of the string variables, not their dimensions. The notation 
A$ (3, 5) denotes the substring of A$ from position 3 to 5. Thus if AS=ABCDEFG, 
A$ (3, 5) is the string CDE. This substring expression can be used both on the 
left or righthand side of an assignment statement. 

Multiple statement lines are allowed. Statements within a line are separated 
by either colons, :, or back slashes, \. 

Absolute memory locations can be accessed from BASIC programs. The 
function EXAM(I) returns the content of memory at address |; and the instruc- 
tion FILL I, J writes a value of J into memory address |}. 

Another feature of North Star BASIC is its ability to read from or write to 
disk files. The statement OPEN #0, “FNAME” assigns disk file “FNAME” to file 
unit #0. A subsequent READ #0,A$ reads A$ from the disk file, and a WRITE 
#0,A$ writes A$ to the disk file. A built-in function TYP can be used to check 
the type of data to be read. It has a value of O when the end of file is reached. 


: go — Set program counter to zero; initialize other counters; start execution. 
: single-step — Execute one p-code; display the mnemonics of the next p-code pointed 


by the updated program counter. 


R: run/restart — Start execution from current program counter until the program ends 
or a breakpoint is reached. This command is used to continue execution at a break- 
point. 

B: set breakpoint — A p-code address is entered as a breakpoint after the interpreter 
prompts with a ?. Up to five breakpoints may be set. 

C: clear — All breakpoints previously set are cleared. 

Y: display breakpoint — Display the breakpoints already set. 

X: examine status — Display the values of: current program counter, base address, Stack 
pointer, the top two elements of the stack. 

K: stack content — A value is entered as the stack pointer after the interpreter prompts 
with a ?. It will then display the values of six stack elements starting from this stack 
pointer. 

T: trace — Display the address and mnemonics of the 16 p-codes last executed. This 
command is usually applied at a breakpoint. It is used for tracing the logic flow of 
the program. 

E: examine program — A p-code address is entered as a display pointer (DP) after the 
interpreter prompts with a ?. It will then display the mnemonics of the p-code at this 
address. This command and the U and N commands are used for examining the 
p-codes anywhere tn the program without altering the current program counter. 

U: up — Decrement the display pointer by one and display the mnemonics of the p-code 
pointed by it. 

N: next — Increment the display pointer by one and display the mnemonics of the 
p-code pointed by it. 

Q: guit — Terminate the interpreter program and return to operating system. 


Table 3: Interpreter commands. All commands for the p-code interpreter are 
single characters. A command is entered after the interpreter prompts the 
user with a > on the video display. Additional information is needed for some 
commands such as breakpoint and stack addresses. On entry to the inter- 
preter it will ask for the starting memory address of p-codes and initialize 
the program counter to zero. On exit it will display the number of p-codes 
executed. 
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no control of the program during execution 
until it terminates. 

In order to enable user control of an 
executing p-code program, the main program 
must accept commands from the user which 
instruct it to call the simulator a specified 
number of times or to display register and 
stack contents. This is the simple idea of a 


debugging interpreter. The debugging aids 
commonly known include single step execu- 
tion, set and reset of breakpoints, and dis- 
play of register and stack contents. A num- 
ber of these debugging facilities have been 
incorporated in the p-code interpreter. 
Table 3 shows the 13 interpreter commands 
and their functions. Note that the trace 
command is particularly useful in analyzing 
mysterious logic flow of a program, such as 
discovering the path along which a break- 
point is reached. This command is more con- 
venient to use and much faster than single 
step execution. The limits on the number of 
breakpoints and the number of instructions 
traced can be changed easily in the program. 

The first version of the p-code interpreter 
was written in BASIC. While developing the 
p-compiler, different constructs of Pascal 
statements were tested one at a time using 
the interpreter to verify the correctness of 
the p-codes generated. After the compiler 
was debugged, the interpreter was rewritten 
in Pascal. The program logic is very similar 
to the BASIC version. Since the program 
structure of the Pascal version is neat and 
highly readable, the debugging time is 
minimal. The Pascal source program is 
shown in listing 1. The program design is 
rather straightforward. Readers with some 
programming experience in any high level 
language should be able to read and under- 
stand it without the help of a flowchart or 
further explanation on program logic. Note 
that in the main program and procedure 
exec, the case...of statement is put to good 
use. In the BASIC version the interpreter 
commands have to be tested within a FOR 
loop by comparing the input character with 
a string array, and then an ON...GOTO state- 
ment is used to branch to various parts of 
the program. 

It must be emphasized again that the 
interpreter executes p-codes and not Pascal 
Statements. Therefore the user is required 
to have some knowledge of the p-machine 
and p-codes. In addition to this, the p- 
compiler should be instructed to list p- 
codes together with Pascal program state- 
ments during compilation. They will be 
cross-referenced when running the _ inter- 
preter. Obviously this procedure is not as 
convenient and easy to use as an ordinary 
BASIC interpreter, but still it provides the 
only way for debugging Pascal programs in 
Our present version. A new debugging 
scheme is being planned for the future which 
will enable the user to debug programs 
at the Pascal statement level. This means 
the user may refer to variables and arrays 
and statements rather than stack contents 
and p-code addresses. Part 2 will go into 
details of the design and implementation of 
the p-compiler.® 


Listing 1: Pascal source code for the p-code interpreter as output by the authors’ system. This 
version implements all of the commands in table 3. 


P-CODES STARTS AT GaGa 


WANT CQGE PRINTEG?N 615 4:BEGIN <CALL} 
@ 7$P.INTS 619 L:=MEMCX+13; 
@ <« P-CODE INTERPRETER. HY.1 3731778 EY H.YUFN } 624 IF L=255 THEN BEGIN CALLCS(T]9;T:=T-1 END 
G { LAST MOO 4712-78 } 635 ELSE BEGIN 
G CONST U=15;EPLIM=5; SIZE=50@; SI1Z2E1=484; 636 SCT+1}]:=BASECL 95;S€T+2]:=B; 
1 YAR 2.P.6,.7.6P,.PQ,.TP,CMO,1,.4,K,STOQP: INTEGER: 649 SCT+3):=P3;B:=T+1;P:=A END 
1 S:'ARRAYCSIZE] OF INTEGER: 66@ END; 
1 TRACE: ARRAYCUI OF INTEGER: 661 S:IF TO<SIZE1-A) THEN BEGIN 
1 MN: ARRAYCZ6I] OF INTEGER: 671 WRITEC’ STACK QUFL’ D;CRLF;STGP:=1 END 
1 BREAK: ARRAYCBPLIM] GF INTEGER: 687 ELSE T:=T+A; 
1 693 6:P:=A; (JMP> 
1 { IMPORTANT GLOBAL VARIABLES: 70@ 7:BEGIN IF SCTI=MEMCX+1) THEN P:=A;s ¢JIPC} 
1 P:PRQGRAM COUNTER &: BASE POINTER 714 T:=T-1 END; 
1 T:STACK POINTER BP: BREAK POINT INDEX 719 8:CASE A OF {CSP} 
1 TP: TRACE STACK FTR K: INSTRUCTION COUNTER 724 @:BEGIN T:=T+1L;READCSET]>) ENOs <¢IN CHAR} 
i S:DATA STACK Z2:STARTING AQGR OF P-CQQDE } 736 1:BEGIN WRITECSCTIIsT:=T-1 ENOQs (QUT CHAR} 
1 748 2:BEGIN T:=T+LsREADCS(TI#) ENO; {IN NUMBER} 
1 FUNC BASECLEV); 768 3: BEGIN WRITECSCTI#HI;T:=T-1 END (OUT NUMBER} 
1 VAR BL: INTEGER: 772 4:BEGIN T:=T+t1sREADCSCTI*%) ENOs CIN HEX} 
2 BEGIN B1:=6; 784 S' BEGIN WRITECS€TI“ZIsT:=T-1 ENDS <QUT HEX} 
2 WHILE LEV>@ 00 BEGIN 796 8:BEGIN (QUT STRING} 
g BL: =S(BLI;LEU:=LEU-1L END; 86a FOR I0%:=T-SCTIJ TQ T-1 OO WRITECSCIOXKI); 
17 BASE: =Bl 826 T:=T-SC{TIJ-1 ENO 
18 ENO {BASE}; 827 ELSE BEGIN WRITEC' ILLEGAL CSP’ );CRLF;sSTOP:=1 END 
2@ 845 END <CASE OF A} 
2@ PROC INIT: 846 ELSE BEGIN WRITEC' ILLEGAL OPCQDE' >;CRLF;sSTOP:=1 END 
2@ VAR I: INTEGER; 867 END {CASE OF F} 
21 «BEGIN T:=@;B:=15P:=G@;STOP:=@; 868 END {EXEC}; 
3@ $01}3:=@;S€2)]:=G;SC3):=-1;3 869 
4G P@:=G; TP: =U; K:=@;3 869 PROC CODECPC); {PRINT CODE} 
46 FOR I:=@ TQ U OO TRACECII:=-1 869 VAR X.N,I10K%: INTEGER; 
Su ENO INIT}; 87@ BEGIN XK:=PC SHL 2 +Z3;N:=MEMCXIXS; 
63 882 IF N<=24 THEN IDX:=' ' 
63 PROC CRLF; 887 ELSE BEGIN N:=N-48;10X%:='X' END: 
63 BEGIN WRITEC13.,.16) ENO; 895 WRITEC' ',PC#,.' ‘,MNCONJLMNON+LILMNEINt2),10X,'° ° 
76 924 MEMCX4+17#,',.'.MEMCX4#3] SHL & +MEMCX+23#); CRLF 
7@ PROC EXEC; 944 END {CODE}; 
7@ VAR X.A.L.F,.IOX: INTEGER; 945 
71 BEGIN X:=P SHL 2 + 2; 945 PROC CKEF; <CHECK BREAK POINT? 
78 A:=MEMCX+3] SHL & +MEMEX+2]; 945 VAR I: INTEGER: 
96 TP:=TP+1; IF TP>U THEN TP:=@; 946 BEGIN IF P<@ THEN STOP:=1 
166 TRACECTPI:=P;3 9352 ELSE BEGIN 
163 P:=P+1;P@:=PsK:=K+1; 954 FOR I:=1 TQ BP OG 
113 F:=MEMCX); 961 IF BREAKCIIJ=FP THEN BEGIN 
116 IF F<=8 THEN IOX:=6 966 WRITEC' BREAK: ' 5; COQECP); 
l21 ELSE BEGIN JOX:=1;F:=F-16 ENO; 978 STGP:=1 ENO ENG 
129 CASE F OF 985 END <(CKBP};: 
13G@ @:BEGIN T:=T+1;S€TIJ:=A END; 986 
142 1: CASE A OF 986 BEGIN <(MAIN} 
147 @ :BEGIN {RETURN} 986 FOR I:=6@ Ta 2é OC 
151 T:=B-1;B:=SCT+2];P:=SCT+3] ENO; 994 MNCIJ:=MENCI4¢% 1686093; <(MNEMONICS ARE IN MEMORY} 
166 1 :S(€T]:=-S{T); 1065 WRITEC 'AQORT' D5 READ 2% 5 CRLF: 
176 2 :BEGIN T:=T-1L;S€TI:=SCTI+SCT+1) END; 1615 INIT; CQOECP);&P:=4; 
194 3 :BEGIN T:=T-1;SC€TI:=SCTI-SCT+1) ENO; 1621 REPEAT WRITEC '>' DS; REAQCCMD); 
212 4 :BEGIN T:=T-1;SCTI:=SCTIXSCT+19 END; 1625 CASE CMO OF 
236 S :BEGIN T:=T-1;SC€TI]:=SCTI BOIV SCT+1) END; 1626 'R':BEGIN STOP:=G;REPEAT EXEC; CKBP UNTIL STOP END; 
248 6 :SC€T]:=SCTJ] ANDO 1; {TEST FOR G00} 1037 'S':BEGIN EXEC; CQDECP) END: 
259 ¢ :BEGIN T:=T-15SCTI:=SCTI MOD SCT+1] END; 1646 'X':BEGIN 
27? 8 :BEGIN T:=T-1sSC€TI:=SCTIHASCT+1) END; 1050 WRITES’ P='.P#,' B=',B#.' T=',T#, 
29% 9 :BEGIN T:=T-LsSCTI:=SlLTI<oS€T+1I END: 1472 ' SCTI=',SCTI#,.' SET-LI3=',.SCT-1I]4 5; CRLF 
313 1@:BEGIN T:=T-1sSCTI:=SCTICSCT+1I] ENG: 14099 END; 
331 LLi:BEGIN T:=T-1;SCT]:=SCTI>=SCT+II ENG: 110G 'G': BEGIN INIT; REPEAT EXEC; CKBP UNTIL STOP END; 
349 12:BEGIN T:=T-LsSCTIJ:=SCTIOSCT+19 ENG: 111G@ 'T':BEGIN WRITEC' *TRACE*' OSCRLF: 
367 13:BEGIN T:=T-LsSCTI]:=SCTI<C=HSCT+1) ENO: 1125 FOR 1:=@ TO U OO &EGIN 
385 14:BEGIN T:=T-L;SCT]:=SETI GR SCT+1) ENC: 1132 TP:=TP+1; IF TP>U THEN TP:=@; 
463 15:BEGIN T:=T-1;iSCTIJ:=SCTI AND SCT+13 ENO: 1142 IF TRACECTPI>=@ THEN CQQEC TRACECTPI> END 
$21 16:SCTJ:=NQT SCTI; 1151 ENG; 
431 17:BEGIN T:=T-1sSC€TI]:=SCTI SHL SCT+1) ENO: 1157? ‘K': BEGIN READCIT#); 
449 18:BEGIN T:=T-1;SC€TJ:=SC€TI SHR SCT+1) ENO: 1163 FOR J:=I TO I+é GQ 
467 19:SCT]:=SCTI+1; 1172 WRITES’ ‘*,SCJI7#);5 CRLF 
47% 2@:SC(TI:=SCTI-1; 1185 ENO; 
483 21:BEGIN «(CaPY} 1186 ‘'B':IF BP<BPLIM THEN BEGIN 
493 T:=T4+1;SCFIJ:=SCT-1] END 1194 BP:=BP+1iWRITECBP#,':'); 
363 ELSE BEGIN WRITEC' ILLEGAL GPR'D;CRLF:STQP:=1 END 1262 READC BREAKCBPI#D;CRLF END; 
s2l END <CASE OF A}; 1267 'C':BEGIN {CLEAR BP} 
523 2:BEGIN <«LGAD} 1211 BP:=@;CRLF ENQ; 
327 L:=MEMCX+1]; 1215 ‘Y¥':BEGIN FOR I:=1 TQ BP O00 
332 IF L=255 THEN SC€TIJ:=MENCSETII 1226 WRITEC' ‘,BREAKCIJ#2;CRLF END; 
339 ELSE BEGIN IF I0QX THEN A:=AtSCTI; 1246 'E’:BEGIN READCPG#); CODEC P@)> END; 
3439 T:=T+1L-IOXsSCTI:=SCBASECL +AJ END 1256 ‘'U':IF P@>@ THEN SEGIN 
364 END; 1238 PG:=PG-1;CODECP@) END; 
S65 3: BEGIN (STORE; 1266 'N': BEGIN P@:=PG+1;COQDECPG@) END: 
369 L:=MEMCX+1); 1278 'Q':P:=-1 
374 IF L=255 THEN BEGIN 1283 ELSE BEGIN WRITEC '77');CRLF END 
378 MEMCSCT-13]:=SCTI:T:=T-2 END 1291 END {CASE OF CMD} 
389 ELSE BEGIN 1292 UNTIL P<G; 
39@ IF I0X% THEN A:=SCT-LI+A; 1296 CRLF; WRITECK#,.' INSTR. EXECUTED. ' 0;CRLF 
399 SCBASECL +AJ:=SCTI;T:=T-1-10% END 1319 ENO {MAIN}. 
614 END; INTERPRETC I). OR TRANSLATEC T D7 


69 


BLANK 


A “Tiny” Pascal Compiler 
Part 2: The P-Compiler 


When Niklaus Wirth introduced Pascal 
in 1971, one of the design objectives was 
to allow efficient program compilation. 
As far as we know, all existing Pascal com- 
pilers use the one pass compilation 
technique. 

Newcomers to Pascal sometimes criticize 
features of the language such as declaring 
variables before use, and having constant 
and type declarations precede variable 
declarations. But such features are necessary 
to make a one pass compiler work (aside 
from the fact that it is also good program- 
ming practice to declare identifiers before 
use). Compared with multipass compilers, 
the job of writing a one pass compiler is 
relatively simple, since there is no need to 
store the program in its intermediate form. 

Figure 1 shows the structure of our 
one pass Pascal compiler. The main portion 
is made up of the scanner, syntax analyzer, 
semantic analyzer and code generator. 
A brief overview of these functional por- 
tions of the compiler follows. Detailed 
descriptions will be given later. 

The syntax analyzer is commonly called 
the parser. Its main function is to detect 
syntactical errors in the source program. 
The smallest unit of the source program 
that the parser looks at is called a token. 
For instance, the reserved word while, 
the symbol -:=, or the identifier idname 
would be tokens. The main job of the 
scanner is to read the source program and 
output a token when needed by the parser. 
Irrelevant information such as_ blanks, 
comments and line boundaries are ignored. 

To further simplify the work of the 
parser, the values of numeric constants are 


1. Page 59 of this edition. 


Kin-Man Chung 
Herbert Yuen 


also evaluated by the scanner. The parser 
then parses the program according to the 
rules laid down by the syntax diagrams 
which were described in part 1 (“A Tiny 
Pascal Compiler,’’ September 1978 BYTE, 
page 581) and generates error messages if 
illegal constructs are found. Identifier names 
are entered into a symbol table as they are 
declared. The symbol table is consulted by 
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Figure 1: Logical arrangement and interconnections of the p-compiler 
modules. 
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Listing 1: BASIC version of the p-compiler. This program takes the Pascal the parser as well as the semantic analyzer. 
program and compiles it into p-code. The term p-code stands for pseudocode, After a Pascal construct is recognized, its 
an assembler language code for a hypothetical computer which can be con- meaning is analyzed by the semantic ana- 
verted into an existing assembler language. Listing continues thru page 78. lyzer and appropriate p-codes are generated. 

Occasionally, there are forward references 


1@REM PASCAL SUBSET COMPILER FOR P-MACHINE 
2GREM BY KIN-MAN CHUNG 

SGREM 1778. LAST VERSION 4/76. 

46 NG=32\REM # OF RESERVED WORDS 

3@ TG=SGN\REM SYM TABLE SIZE 

68 N1l=32767\REM LARGEST INT 


whose addresses cannot be determined at the 
time the codes are generated, but have to 
be resolved at a later time. Thus updates 
to the object program have to be done at 


7@ N2=8\REM IDENT LEN 

S36 OIM WGSCS*NGONREMN RESERVED WaROdOS 

96 DIM TS¢ TGAnN2\REM SYMECGL TREBLE 

166 DIM TGS$¢CTGOSREM KING OF IGENT IN SYM TABSC.N,.P 
116 DIM L$¢64 >\REM LINE BUFFER 

126 DIM ASCN2),BS¢5) 


the appropriate time. 
This may sound complicated, but in fact 
a one pass compiler is actually the simplest 
compiler imaginable. The technique used by 
13@ DIM S€1@@),.S$¢ LG@\REM STACKS our parser is usually referred to as top-down 
14@ DIM TLC T@\REM LEVEL OF ID IN SYN TBL 


156 DIM T2¢TG@)\REM VALCFOR CONST) GR ADRCFOR INTOGF ID IN 8.T. parsing or goal oriented parsing. The top- 
166 DIM T3¢T@O\REM ARRAY CIM GR# GF PROC PARAMETERS down parsing algorithm assumes a general 
17@ WG$C1,4@)="ANO ARRAYEEGINCALL CASE CONSTOIV oO " ) Ae herinnt Thi | ic th 
186 WO$¢41,6G)="DOWNTELSE END FUR FUNC IF INTEGMEN ” goal at the beginning. Is goal Is then 
196 W@$¢8l,12G.="NCO0 NOT OF UR £PROCG READ REPEASHL " broken down into one or more subgoals, 
20@ WO$€121,16@)="SHR THEN TO TYPE UNTILVAR WHILEMRITE" : : : 

210 DIM M$(27).C$C86) depending an input strings and the rules 
220 M$="LITOPRLGUSTOCALINTIMPJFCCSP"SREM P-COOE MNEMGNICS 
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236 PS8=1 

246 P7=GNPS=P7\REM START CODE=G066 
236 !"P-CODES STARTS AT G@GGG" 

266 Q9=4696¢2\REN LAST USABLE MEN 

276 FS=-1 

286 INPUT "WANT COQE FRINTEQT".¥$ 

296 IF Y$=""" THEN ’S=@ ELSE Y9=1L 

366 X$=" "\GOSUB L24@\REMN GET A TUKEN 
316 GOSUB S34Q@\REM BLOCK 

$26 Z=FNE1C".",9) 


336 FILL PS.2S55\FILL PStL,253SKEN FILL IN EGF MARK 
346 INPUT“INTERPRETCI 9. GR TRANSLATES Tor". VS 


356 IF ¥Y$="" THEN END 

366 IF ¥$="I" THEN CHAIN "INTERF" 
376 IF ¥Y$="T" THEN CHAIN "TRANS" 
386 END 

SIGREM FALRARAATE 

46GREM ERROR ROUTINES 

41GREM *4% 


426REM FNEL..IF CURRENT TOKEN< OK THEN ERROR #E 


436 DEF FNELCKS.E) 

440 IF SGS<>K$ THEN 2=FNECE > 
456 RETURN G 

466 FNEND 

47GREM £44 


48G@REM FNE2..IF NEXT TOKEN<>K$ THEN ERROR #E 


496 DEF FNEZCK$,E) 

S6G@ GOSUB 1246 

S16 IF S@$<oK$ THEN 2=FNEC ED 
32eG@ RETURN &@ 

338 FNEND 

V4GREM £44 

SS@REM PRINT ERROR NSG 
366 GEF FNECE9) 

o°G@ !TABCCO+4),"T".ES 
584 GOSUB 616 

396 STOP 

666 RETURN GSFNEND 
G6IGREM ERROR MSGS 


626 ON INTCCES-LovS +1 GOTO 626.646, 656,666,676, 606, 696, rau 


636 ON EO GOTO 714.726, 726.744, 756 
64@ ON ES-5 GOTO 996.996.996.760. 776 
656 ON E9-16 GOTO 7SG.796, 600.996, 996 
666 ON ES-15 GOTO 816.826.920.844, e564 
67@ ON ES-26 GOTO S6G,8746, 880.994, 456 
686 ON E9-25 GOTO 904.916.9260. 9%. 926 
696 ON E9-36 GOTO 946,996,950, 966, 976 
7@6 ON ES-35 GATTO 384 

716 !"MEM FULL "S\RETURN 

726 !"CONST EXPECTEC"\ RETURN 

736 $"'=" EXPECTED"SRETURH 

746 I!" IDENTIFIER EXPECTED" SRETURN 

73@ '"'s' OR ':' MISSING"SRETURN 

766 $"'.* EXPECTEO"SRETURN 

r?7@ $"°'3' MISSING"\SRETURN 

786 !"UNDECLARED IDENT" RETURN 

796 !"ILLEGAL IGENT"\RETURN 

S@G 1°':=' EXPECTED" RETURN 

S16 !"'THEN' EXPECTEQ"*\RETURK 

S26 !"'s' GR ‘ENG’ EXPECTED" \RETURN 
S36 !"'DO' EXPEXTED"SRETURN 

84@ !"INCORRECT SYMBOL" \RETURN 

896 !"RELATIONAL OPERATOR EXPECTEO"\RETURN 
366 !"USE OF PROC IDENT IN EXPR"*SRETURN 
S76 $"')>' EXPECTED"SRETURN 

386 !"ILLEGAL FACTOR"\RETURN 


in the syntax diagrams. The subgoals are 
realized by breaking them down into finer 
subgoals. 

This is usually not a very efficient algo- 
rithm if backups are needed. The need for 
backups occurs if at some point we choose 
one subgoal from several others and find 
after some processing that we have made 
the wrong choice. We would then have to 
undo what had been done by the wrong 
choice and back up to the point where we 
could try other alternatives. This is usually 
a messy business and involves a lot, of 
bookkeeping. Fortunately, in the parsing of 
Pascal, no backup is necessary. A keyword 
is present at each decision point, and it 
determines what subgoal we should choose. 
An example will make this clear. 

Suppose our goal is to recognize a state- 
ment. A statement can be a number of basic 
constructs: it can be an assignment state- 
ment, an if statement, a case statement 
or any other construct defined by the 
syntax diagram. The Pascal grammar is so 
designed that we know which type of 
Statement we should choose by just looking 
at the next token. If the token is if, then we 
know it is going to be an if statement; 
if the token is case, it is going to be a case 
statement, etc. There would seem to be a 
problem if the token is an identifier, since 
the statement can be the beginning of an 
assignment statement or a procedure call. 
But this can be easily resolved by consulting 
the symbol table, where we also keep the 
attributes (data types, addresses, etc) of 
the identifiers. This is one of the reasons 
why identifiers and procedures must be 
declared before use: it makes compiler 
writing easier. 

A top-down parser without backup can 
be implemented by using a technique called 
recursive descent. Such a parser uses a 
recursive procedure for each nonterminal 


Line 
Number Remark 
400 Error routines — FNE, FNE1, FNE2 
1030 Get a character 
1090 Input a line 
1240 Get a token 
1950 Enter entry into symbol table 
2060 Search symbol table 
2170 Constant declaration 
2240 Get constant 
2340 Variable declaration 
2380 Simple expression 
2610 Term 
2850 Factor 
3290 Expression 
3490 Statement 
5340 Block 
6120 Push numeric 
6150 Pop numeric 
6180 Push string 
6240 Pop string 
6310 Code Generation — FNG 
6520 Fixup forward references 


Table 1: For easy reference the main sub- 
routines of the p-compiler are listed here 
along with remarks regarding their uses. 


in the syntax diagrams. A call is made to 
this procedure whenever a parse for such 
a nonterminal is required. It is easy to see 
why such a scheme would work. The stack- 
ing mechanism of the run time procedures 
ensures that we get back to the correct 
position in the syntax diagram after com- 
pleting the parse of the nonterminal. 

If you look at the syntax diagrams care- 
fully, you will see that diagrams for certain 
nonterminals actually contain the non- 
terminal itself, either immediately or after 
several expansions. In terms of compiler 
writing this means that the procedures corre- 
sponding to these nonterminals would call 
themselves recursively. 

One important part missing from our 
compiler is the ability to recover from 
errors. Of course all syntactical errors 
are caught by our compiler and somewhat 
meaningful messages are printed to indicate 
errors. However, if an error is found, the 
compiler is aborted prematurely and will 
not resume compiling. Such a compiler is, 
of course, not acceptable in practice. But 
with the understanding that this compiler 
will be used as a bootstrap compiler, as 
discussed in part 1, it is tolerable. A com- 
piler with simple error recoveries would 
not be particularly difficult to implement 
but would involve a lot of programming 
codes and processing time. We hesitate 
to add things to an already big and slow 
program. 

It is generally difficult to implement a 
compiler with sophisticated error recovery 
features. Such a compiler would not only 
detect errors, but would also try to repair 
the damages caused by such errors. The com- 


898 
366 
916 
326 
936 
346 
356 
366 
376 
986 
396 


I""BEGIN' EXPECTEO"\RETURN 

1"'OF’ EXPECTEG"*\RETURN 

P"ILLEGAL HEX CONST"*\RETURN 

M'7O' OR 'QOWHTG' EXPECTEOQ"\RETURN 
!"NUMBER OUT OF RANGE"\RETURN 
re'¢!' EXPECTEO"\RETURN 

P''C? EXPECTEG"\RETURH 

pe' 3" EXPECTED" \RETURN 
!"PARAMETERS MISMATCHED" \RETURM 
I"DATA TYPE NOT RECOGNIZED" \RETURN 
!"BUG"SRETURN 


LOGGREM FRAKKERAREEAAEREALE 
1L@1GREM SCANNER 
LO2ZGREMN FHAAEHERATEALERAALSE 
LE63GREM GETCHAR 


1644 
1656 
1666 
1670 


IF C@<L@ THEN 1666 
GOSUB 169@\G0TQ 1646 
CG=CG+t1L\X$=L3( CG, CGD 
RETURN 


LOSGREM EHAREERAEE 
LOSGREN INPUT A LINE 


116G 
L11G 
1126 
1136 
1146 
L156 
1166 
L176 
11&@ 
1196 
1264 
121G 


I%4I.C1," ", 

IF F5<G@ THEN INPUT L$ ELSE 1160 

IF L¢="" THEN 1164 

IF L$¢1,1)="$" THEN LZ1G\REM MACRO FILET 
LS=L$+" "\Ca=G 

LG=LENCL$ )\RETURN 


IF TYPCFS9¢3@ THEN L19@\REM EGF IF TYP=G 

CLOSE #FS.FOSFO-1SREMN RETURN TO LAST ACTIVE FILE 
GOTO 1116 

READ #FS.LEN!L$ 

GOTO 1136 

FS=FO+LSOPEN #FS.LE¢2,LEN¢L$ 9) 


L24G@REMN GET A TOKEN 


125GREM RETURN SGS=TOKEN. AS=STRING. NS=NUMERIC 


1266 
1276 
1286 
1294 
1366 
1316 
132G 
1336 
1346 
1356 


IF ¥$<>" " THEN 1286 

GOSUB 1G3G\GOTO 126G\REM FLUSH BLANKS 
IF X$<"A" THENL4GG\REM INQENTIF IER? 
IF X$>"2" THEN146@ 

K=G\Ag=" . 


IF KO=Ne THEN L3S@\REN ONLY LST He LETTERS ARE USED 


K=K+LSASC KK ORKS 
GOSUB 1036 
T=ASCK KF) 


IF To4? ANDO T<SS GR Toé4 ANU T<K91 THEN LSIG.REM OGT Gk 


L36GREM BIN SERACH FOR RES WORDS 


137 
1366 
1394 
1464 
1416 
1424 
1436 
1444 
1454 
146 
147G@ 
1486 
1496 
1566 
1516 
1526 
153G 
1544 
1556 
L366 


I=1NJ=NGE5-4 
BE=As 

KEINTCC 1+ 716 4541 

Z$=UGSCK,K+4 D 

IF 8$<=2$ THEN J=K-5 

IF B$>=2$ THEN I=K+5 

IF I<=J THEN 1296 

IF I-S>J THEN S@$=E¢ ELSE SOs="IDENT" 
RETURN 

Z2f= ne 

IF X$<"G@" THEN LSSG\REM AN INTEGER? 

IF X$>"9" THEN 1586 

Sas=" NUN" 

ZEaZS+XS 

GUSUE 1636 

IF ASCCK$9>=48 AND ASCCNSI<=87 THEN 1564 
NS=VALC Z2¢) 

IF N3<=NL THEN RETURN 

EJ=3G\GOSUB 556 

N3=N1\RETURN 


LS7GREM CHECK FOR SPECIAL SYMBUL 


L386 
1596 
L666 
1616 
1626 
1636 
1646 
1656 
1666 
1676 
1686 
1696 
1766 
1716 
1726 
1736 
1746 
175G 
1766 
177G 
1786 
1796 
1866 
1816 
1826 
1836 
13846 


Tk KS<>":" THEN L6dG 
GOSUB 1626 

IF #$="=" THEN 1626 
SG$=": "SRETURN 

So6g=" : = 

GOSUB LUSG.SRETURN 


IF ¥$<>"<" THEN 1716 
GOSUE 1036 

IF ¥$=">" THEN 1696 

IF X$="=" THEN 1L7G@ 

SG$="¢"\RETURN 

SQ$="<>"\GOSUB LGZG\RETURN 
SQf="<="\GOSUB 1G3G\RETURN 

IF X$<>">" THEN 1756 

GOSUB LOsuNsus=">" 

IF X$<>"=" [KEN NETURN 

SG$=">="\GUSUB LGZQ\RETURN 

IF X$<>"'" THEN 1796 

Sa$="STR"\CES"" 

GOSUB 163G\IF X$="'" THEN 1636 
CS=C$+XS\GOTO 1776 

IF X$<>"(" THEN LGZG\REM IGNORE CONMENTS 
GOSUB 1G3G\IF X#<>">" THEN 1866 

GOSUB 163G\G0TO 1246 


IF X$<>"%" THEN L9SGN\REM HEX CONSTANT 
GOSUB 163G\SGS="NUN"SN3=6 
FOR I=1 TO 4 


LTTR 


piler has to make some assumptions about 


L8S@ T=ASCC XS) the nature of the errors and the intention 


186@ IF T>=48 AND T<=S?% THEN 1886 


187@ IF T>=65 AND T<=7G THEN T=T-? ELSE 1916 of the author. This is usually difficult. 

1388 NSENSE1G+T\GOSUE LO3G\NEXT If our concern is solely that of locating 
19G@ RETURN in a single parse of the source 
1916 IF I>1 THEN 2=FNECZ7) all errors in Ble P ve 
1920 SG$="%"\RETURN program, there are simple ways of doing it. 
193G SOS=K$\GOTO 1056 Upon detecting an error, the compiler 
LO4GREM xekeekenes ; Wi 
195GREM ENTER SYMBOL INTC TABLE simply skips the input text until it can safely 
196G T1=Ti+t ‘lati 
fore Cer (aoaasa eas resume the compilation process. To do this 
198G TO$(TL,TLO=K$\REM STORE TYPE the compiler looks for certain keywords 
199@ IF K$<>"C" THEN 2014 

2086 T2Z¢TLO=N3\RETURN\REM STORE VALUE OF StOPP Ig symbols for hints a as the 
201G TLOTLO=LLNREM STORE LEVEL OF IGENT parsing process. For instance, if we find an 
2626 IF K$<>"U" THEN RETURN error while parsing a conditional expression, 


2USU ir NUL FY tHen KETURNSREM SP WAS ALLOCATED FOR PROC FARS 
264G@ T2¢TLo=OG\0G=O0G+iN\RETURNNREN STORE OFFSET 

2GSGREM XKERKEEKEKSE 

2ZG6GREM FING IGENT AS IN TH,.STARTING FROM Tl AND UF 

ZO7GREM RETURN POINTER TO TABLE It FOUNG, ELSE RETURN G 


we skip the input tokens and search for 
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2686 J=CTL-LeN2t1 

269G FOR I=Ti TO 1 STEP -1 

210G IF AS=TSCJ.I+N2-L) THEN EXIT eldu 
211G@ J=IJ-NENNEXT 

2126 I= 

2136 RETURN 

ZLIGGREM AREA AARARARATT ART 

2iSGREM PARSER ANG CODER 

ZLGGREM XHEAAAKAPARAARAAAALE 

21i7GREM CONSTANT GECLARATICN 

218G Z=FNELC "IDENT". 49 

219G@ Z=FNEZC"=",3> 

2266 GOSUB 124G@\GGSUE 2246 

221G K$="C"\GOSUB 19568 

222G GOTO 1246 

22SGREM HARKER ERA 

224GREM CONSTANT 

225G@ IF S@$="NUM" THEN RETURN 

226@ IF S@$="IGENT" THEN 229@\REM CONST? 
227G Z=FNELC"STR".2) 

228G@ N3=ASCC CS NRETURN\REMN TAKE 1ST CHAR 
229G GOSUB 2G6GN\IF I= THEN FRECSe) 

236G IF T@$CI,1<>"C" THEN FNECE 

231@ NS=T2¢ I \RETURN 

232@ GOTO L24G@ 

233GREM KAAEAEETEE . 

234GREM VARIABLE CECLARATICN 

235@ Z=FNELC "IDENT". 4) 

2360 KS="U"\GOSUE LSSG\CCTO L246 

237GREM LKEKEAREKE 

238GREM SIMPLE EXPRESSION 

239@ IF SG$="+" THEN 2426 

2406 IF SG$<>"-" THEN 2596 

2416 YS=SGS\GOSUE 6126 

242G GOSUB 1246 

243G GOSUB 2é1G 

244G@ GOSUB 6246 

245@ IF Y$="-" THEN 2=FNGC1L,G@,.1) 

2466 IF S@$="+" THEN 2oue 

247G IF SG$="-" THEN 25a 

248G@ IF S@$="GR " THEN 2566 

249G RETURN 

2560 YS$=SGE\GOSUB 6156 

251G GOSUB 1246 
252@ GOSUB 2614 
253@ GOSUB 6246 
234G IF ¥$="~" THEN 2% 
2556 IF Y$="+" THEN 2 
2566 Z=FNGC1,G,14 .\G0TO 2466 
2576 Z=FNGC 1,4. 3>\G0TO 2468 
258@ Z2=FNGC1,6,.2>.60TO 2466 
2596 GOSUB 2616\G0TO 2466 
26GGREM KAKKKKEKKE 

261GREM TERM 

2626 GOSUB 2856 

2636 IF SQ$="%" THEN 2706 
2646 IF S@$="01U " THEN 2706 
2656 IF S@$="AND " THEN 270@ 
266G@ IF S@t="MOG ”" THEN 2764 


267G IF S@$="SHL " THEN 2766 
268G IF S@$="SHR " THEN 2766 
269@ RETURN 

2706 Y$=SGS\GOSUB 6LSG@N\REM PUSH 
271G GOSUB 1L24@\GOSUB 2854 
272G@ GOSUB 6244 

273G IF Y$="DIV " THEN 2796 
274G@ IF Ys="M00 ”" THEN 2866 
2?75@ IF Y$="%" THEN 2816 

2766 IF ¥$="SHL " THEN 2826 
27?7G IF Y$="SHR (" THEN 283@ 
278G Z=FNGC1L,G.15>9\GOTO 263G\REM "AND" 
2796 Z=FNGC1L.G,5)\GOTO 2636 
2806 Z2=FNG(1,6,.7)\GOTO 2636 


BASIC Recursive Subroutines 


Most versions of BASIC do not 
adequately support recursive sub- 
routine calls. In North Star BASIC, the 
multiline function call can be invoked 
recursively, ina limited fashion. This is 
because the function parameters are 
local within the function definition 
and are pushed onto a stack when 
making a call. 

The surprising fact is that most 
BAS/ICs do not forbid a _ recursive 
call if one is made. For instance, the 
following BASIC subroutine, which is 
an inefficient way of printing the first 
N integers in descending order, is 
probably permitted in most BASICs: 


100 PRINT N 

200 IF N=0 THEN RETURN 
300 N=N—1 

400 GOSUB 100 

500 RETURN 


The problem of doing recursive 
calls in BASIC is that of preserving 
the values of the identifiers in the 
subroutines. This can be done by 
using a stack. The values of the identi- 
fiers are pushed onto the stack before 
a recursive call, and popped out of the 
stack in the reverse order when 
returning from the call. In BASIC, the 
stack can be simulated by an array: 


10 DIM S(100) 
11 P=0 
12 REM INITIALIZE STACK POINTER 


1000REM PUSH X INTO STACK 
1010 S(P)=X 

1020 P=P+1 

1030 RETURN 

2000REM POP X FROM STACK 
2010 P=P—1 

2020 X=S(P) 

2030 RETURN 


symbols, such as =, > =, etc, and keywords 
such as then and do or perhaps begin. If 
we do this for all the parts of the language 
constructs, we will at least have a compiler 
that would resume compilation after an 
error is encountered in the hope of finding 
all syntactic errors in one pass, and which 
would give meaningful diagnostics for most 
errors. 

To reduce the size of the program shown 
in listing 1, comments are kept to a mini- 
mum. Each module or subroutine is clearly 
identified. To facilitate easy reference, 
the important subroutines and variables are 
shown in table 1 and table 2, respectively. 


Scanner and Symbol Table Management 


Each time the p-compiler calls the scan- 
ner (line 1260, listing 1), the input text is 
scanned and a new token is produced. 
This is done by calling a subroutine (line 
1040) that returns a character from the 
input string. Since the input/output (IO) 
routines are line oriented instead of charac- 
ter oriented, a line buffer (L$) is used to 
hold a line, and a counter (CO) is used to 
indicate the character just read. When the 
end of a line is reached, the line input 
routine (line 1100) is called to read in a new 
line. 

In our compiler we also provide the 
capability of invoking or recalling a file 
of Pascal text from disk. This is initiated 
by a command that starts with a dollar 
sign (#) in the first column followed imme- 
diately by the name of the disk file to be 
inserted and compiled. Since North Star 
BASIC allows four disk files to be open at 
the same time, there can be four levels of 
file nesting. The variable F5 is used to indi- 
cate this level. If it is equal to —1, then input 
is taken from the keyboard. The initial 
input is from the keyboard. This feature is 
quite useful, since we can store procedures 
that are commonly used in a disk library, 
and have them recalled when needed. 

Usually, the token that the scanner 
returns is a number that represents the 
token class the symbol is in. To make the 
program more readable, we use string 
variable SO$. Possible values returned by 
the scanner are: ; , :=, BEGIN, IDENT, 
and NUM. The last two tokens, which are 
tokens for identifiers and numbers, require 
some further information. A$ and N3 are 
also used to store the textual representation 
of the identifier and the value of the num- 
ber, respectively. 

The recognition of a valid token is a 
Straightforward process and will not be 
detailed here. Since : and := are both valid 
tokens, the scanner, after seeing the : , 
must also look at the next character to 


2816 
2826 
2836 


2=FNGC1,6,.4>\GOTO 2636 
2=FNGC1,6,17 \GOTO 2636 
2=FNGC1L,G.189\G0TO 2636 


284GREM KAKKKKKEKE 
285GREM FACTOR 


2866 IF SG6$="IDENT" THEN 2944 
287G IF S@$="NUM" THEN 3666 
286G IF S@$="STR" THEN 3686 
2896 IF S@$="¢" THEN 3146 
2966 IF S@$="MEM " THEN 3144 
291G IF SG$="NOT " THEN 3266 
2926 2=FNEC 23) 

233GREM *x* IDENTIFIER 

294G GOSUB 2666 

295G IF I=@ THEN Z=FNEC11) 


2966 
2976 
2986 
2396 
3686 
3818 
3626 
3636 
3046 


IF T@S¢I,1)="P" THEN Z=FNEC2L9\REM PROC NAME 
IF TO$CI,I<¢>"¥" THEN 3aGG 

2=FNGCS.G6.1L9\REN FUNC 

I=I-t\GOTO 4296\REM T2¢1>=ADD OF FUNC 

IF TOS¢CT,TI="A" THEN S3L9G\REM ARRAY 

IF T@S¢I,.Td<>"C" THEN 3636 
2=FNGCG.G.T2¢1)>\GOTO 124G\REN CONST 
2=FNGC2,LI-TIC IO, T2¢C IDONREM 10 

GOTO 1246 


SOS5GREM **k* NUMERIC CONST 


3866 


Z2=FNGCG,G,N3INGOTO 1244 


SO7GREM 44% STRNG CONST 


3686 


2=FNGCG,.G,ASCC CS IONGOTA 1246 


S@9GREM XXX PAREN EXPR 


3166 
3116 
3126 


GOSUB 124G\GOSUB 3296 
IF S@$=")" THEN 1246 
2=F NEC 22 DNRETURN 


SI3GREM *%% READ MEMORY 


314G 
3156 
3166 
317G 
318G 
3196 
3286 
3216 
3226 
3236 
3246 


2=FNE2¢"€",33) 

GOSUB 124G6\GOSUB 3296 
2=FNELC"3]",.34) 

GOSUB 1246 

2=FNGC 2.255. @ INRETURN 
X=INGOSUB 6126 
2=FNE2C"(€",33) 

GOSUB 124G\GOSUB 3290 
2=FNELC"3",34) 

GOSUB 61L5SGNZ=FNGCLS,.LI-TiC kX), T2¢%9) 
GOTO 1246 


S25GREM *«** NEGATE 


3266 
3276 


GOSUB 1L24G\GOSUB 2656 
2=FNGC 1.6.16 NSRETURN 


S28GREM XXEKKEEKKE 
S29GREM EXPRESSION 


336G 
3316 
3326 
3336 
3346 
3356 
3366 
337G 
3386 
339G 
34866 
3416 
3426 
3438 
3446 
345G 
3466 
3476 


GOSUB 239G\REM SIMPLE EXP 

IF S@$="=" THEN 3386 

IF S@$="<>" THEN 3386 

IF S@$="<" THEN 3386 

IF S@$="<=" THEN S38G 

IF SG$=">" THEN 3386 

IF SG@¢=">=" THEN 3386 

RETURN 

Y$=SOS\GOSUB GLSGSREM PUSH 
GOSUB 124G\GOSUB 2396 

GOSUB 624G\REN POP 

IF ¥Y$="=" THEN 2=FNGC1,G6,8) 
IF ¥$="¢€>" THEN Z2=FNGC1L.G,.9) 
IF Y$="<" THEN 2=FNGC1,G6. 16) 
IF ¥$=">=" THEN Z2=FNGCL,.G.11) 
IF ¥$=">" THEN Z=FNGC1L.G,12) 
IF ¥$="<=" THEN Z2=FNGCL.G,139 
RETURN 


S48GREM AHRKKEKALS 
S49GREM STATEMENT 


3566 
331LG 
3526 
353G 
3546 
3596 
356G 
3576 
3586 
3596 
3666 
3616 


IF SG$="IDENT" THEN 3636 
IF S@$="IF " THEN 4446 
IF SG$="FOR " THEN 5176 
IF S@$="WHILE" THEN 4866 
IF S@$="CASE " THEN 4896 
IF S@$="REPEAR" THEN 4736 
IF S@$="BEGIN" THEN 4596 
IF S@$="READ " THEN 4046 
IF S@$="WRITE" THEN 3876 
IF S@$="MEN " THEN 4656 
IF SGS="CALL " THEN 4246 
RETURN 


S62GREM X*% ASSIGNMNT 


3636 
3646 
3656 
366@ 
3676 
3686 
3696 
3766 
3716 
3726 
3736 
3746 
3756 
3766 


GOSUB 2666 

IF I=@ THEN Z=FNECL1) 

IF TO$CI.I="A" THEN SP @G\REM ARRAY 

IF TOS$CI,T)="V" THEN S76GSREN INT VAR 
IF T@$¢I,1I.="¥" THEN 376GNREM FUNC RETURN VALUE 
IF T@$¢I,1)="P" THEN 429GSREN PROC CALL 
2=FNEC 12) 

X=INGOSUB 6126\REM PUSH TBL ADD 
X=16\GOSUB 612G\REM INDEX ADD MODE 
2=FNE26"£"533) 

GOSUB 124@\GOSUB 329@ 

Z2=FNELC "3",34) 

GOTO 3786 

X=INGOSUB 6126 


75 


76 


3776 
3786 
3796 
3866 
38164 
3826 
3836 
334 
$856 


X=G@\GOSUB 6126 

GOSUB 1246 

IF S@$=":=" THEN 3816 
Z=FNECLSON\GOTO 33826 

GOSUB 1246 

GOSUB S296\GOSUB 6154 
K=X\GOSUB 6156 

2=FNGC StK,LI-T1ICK),T20%)) 
RETURN 


S86GREM *4% WRITE 


3876 
38386 
3896 
33866 
391G 
33926 
3936 
334G@ 
3956 
3966 
3976 
33986 
3996 
4686 
4016 
4626 


2=FNE2C "€",31) 

GOSUB L24G\IF SGS$<>"STR" THEN 3956 
L=LENCCSONIF LOL THEN 3916 
2=FNGCG,.G,ASCC CS )NZ=FNGCS,.G,.19\G0TO 3944 
FOR I=1 TOL 
2=FNGCG.G,ASCCC$C 1,19 NNERT 
2=FNGC G,@,LONZ=FNGCS.G,8) 

GOSUB 1246\GOTO 4646 

GOSUB S29Q\K=1 

IF S@$="#" THEN K=3SREM DEC 

IF SG$="%" THEN K=SSREN HEX 

IF K>1 THEN GOSUE 1Led@ 
2=FNGCS.6,K) 

IF S@$="." THEN 3&8@ 
Z2=FNELC")",22) 

GOTO 1246 


4@3GREM #44 READ 


2=FNE2¢ "C "319 

2=FNE2¢ "IGENT", 4) 

GOSUB 2G6@NIF I=G@ THEN 2=FNEC 11) 
X=INGOSUB 6126 

IF TGS¢1l,1.="A" THEN 4196 

IF T@$¢I.7T.="U" THEN L=@ ELSE Z2=FNEC 4) 
GOSUB 1240\K=G 

IF S@$="#" THEN K=2\REM DEC 

IF S@$="%" THEN K=4\REM HEX 
Z2=FNGC8,4,K) 

IF K>@ THEN GQSUB 1246 

GOSUB GLISG@NZ=FNGEL+S,L1-TiC Kd. T2e0K)) 
IF S@$="," THEN 4@564 

Z=FNELC "2", 31) 

GOTO 1246 

2=FNE2C"€",339 

GOSUB L24@\GQSUB 3296 

Z=FNELC "3", 34) 

L=16\GOTO 4166 


$23GREM 44% ABSOLUTE MEN CALL 


4246 
425 
4266 


4276 


2=FNE2C "€ "319 
GOSUB L24Q\GOSUB 3296 
2=FNELC "9", 22) 


Z=FNGC 4,255. G@ 9\G0TO 1246 


428GREM #44 PROC GR FUNC CALL 


42596 
4388 
431G 
4326 
4330 
4346 
4356 
4366 
4376 
4386 
4396 
4466 
4416 
4426 


K2=6N\K3=1 

IF T3¢T)=@ THEN 44@GSREMN NG PARAMETER 
2=FNE2C"(", 319 

4=K2\GOSUB 6126 

K=KSN\GOSUB 6126 

GOSUB 124G\GOSUB 3296 

GOSUB 615@\K3=x 

GOSUB GLOGNK2=k.K2=Ke+1 

IF S@$="." THEN 4326 

IF KeeoTs¢K3) THEN 2=FHEC SS) 
2=FNELC")",22) 
2=FNGC4,LI-TICKS 9. TEX KS) 

IF K2 <>@ THEN 2=FNGCS,G@.-Kz2) 
GOTO 1246 


$43GREM 44% IF 


444G 
4456 
4466 
4476 
4486 
4496 
4506 
4516 
4526 
4536 
4544 
4554 
4566 
4576 


GOSUB 1246 

GOSUB 3256 

2=FNELC "THEN ".169 

GOSUB 1246 

X=CiNGOSUB GLZQ“REM FORWARD REF POINT 
2=FNGC7.6,.G REM JPC 

GOSUB 349G 

IF S@S<>"ELSE " THEN 6526 

GOSUB 6L15G@\K=K 

X=C1INGOSUB 6126 

Z2=FNGC6.G.G.\REM IMP 

X=K\GOSUB 6S54@\REM FIXUP FORWO REF 
GOSUB L24G\GQSUB 3496 

GOTO 6526 


4$S8GREM *4% COMPOUND STTMNT 


4596 
4660 
4616 
4626 
4636 


GOSUB 1246 

GOSUB 3496 

IF S@$=";" THEN 4596 

IF S@$="END " THEN 1246 
Z2=FNEC 17 ONRETURN 


464GREM 44% WRITE MEM 


465G 
4666 
4670 
4686 
4696 
4766 
$716 


2=FNE2¢ "C€",33) 

GOSUB 1L24G\GOSUB 3296 

IF S@$<>"]" THEN Z=FNES 34) 
2=FNE2¢ ":=",13) 

GOSUB 124G\GOSUB 3296 
Z=FNGC 3,255, 6) 

RETURN 


472GREM xxx REPEAT .. UNTIL 


determine the correct token. This can be 
done by using a one character look ahead. 
When the scanner is entered, a character 
is assumed to have been read, and upon 
exit from the scanner, a character beyond 
the current token is read. 

Another problem that the scanner may 
have is that of recognizing reserved words. 
The reserved words are stored in a table 
in sorted order. When an identifier is found, 
it is compared with the entries in the table, 
by performing a binary search. If it is not 
in the table, it is assumed to be a user 
defined identifier. 

In Pascal programs, identifiers are de- 
clared at the beginning of each procedure 
block. The scope of an identifier covers the 
entire block containing it (and any of the 
blocks inside that block). A simple symbol 
management scheme that reflects such scope 
rules makes use of a stack. When the com- 
piler enters a procedure block, a segment 
of the stack is used to store identifiers 
for the block. If the procedure block con- 
tains another procedure block, then another 
segment of the stack on top of the existing 
segments is used for identifiers of this block. 
After successful compilation of a procedure, 
its segment of the stack can be discarded, 
Since there is no further use for this part 
of the symbol table. In this way, we can also 
eliminate possible interference with identi- 
fiers in some other blocks. We also see that 
Since the block delimiting mechanism is 
hierarchical, use of stack is also appro- 
priate. Figure 2 illustrates two-level block 
nesting. 

Readers may have noticed the similarities 
between this symbol table stacking scheme 
and the run time storage allocation scheme 
discussed in part 1. Since the symbol table 
deals with a static structure, it is much 
simpler. 

Within the segment of the symbol table 
for a procedure block, further data struc- 
tures can be set up for storing the identi- 
fiers. We chose to use what we feel is the 
simplest method: store the identifiers se- 
quentially, in their order of appearance. 
This means that search also has to be done 
sequentially. Since most procedures have 
only a small number of identifiers, this 
should work well in most cases. Other 
more sophisticated structures such as a 
balanced binary tree or hashed table are 
commonly used in larger compilers. 

The symbol table also contains some 
information about the identifiers. The 
identifier type has to be kept with the 
symbol table. Specific information is needed 
for each type of identifier. For constants, 
the information is the values of the con- 
stants; for program variables, the informa- 
tion is the address pair (level, offset from 


PROC A; 

VAR 

e 

e 

PROC AA; 
VAR 


|\—_——_—_—_ 


e 
BEGIN (*AA*) 
oor e 


e 
END (*AA*); 
PROC AB; 
VAR 


e 
BEGIN (*AB*) 
3-—___—_+ e 


e 
END (*AB*); 
BEGIN (*A*) 
4 ———__»> e 


e@ 
END (*A*); 


Sinlain 


Figure 2: Example symbol table at various 
points of compilation. 


Variable 
Remark 


String of the token returned by the scanner 
Input buffer pointer 
P-code address pointer 
Run time storage counter 
Error code 
Active input file unit number; keyboard=—1 
Number of parameter in the previous block 
Length of the input line 
Static level of procedure 
Input line buffer 
P-code mnemonics 
Reserved word table size 
Largest integer 
Length of identifier name 
Numeric value of token (token = “’NUM”) 
or ASCII value of string (token = “STR”) 
Stack pointer for S$ 
P-code absolute memory address counter 
Stack for numeric values 
Stack pointer for S 
Stack for strings 
Next token 
Symbol! table size 
Symbol table pointer 
Symbol table: identifier 
Symbol table: type of identifier 
V: variable A: array C: constant 
P: procedure F: function Y: parameter 

Symbol table: level 
Symbol table: value (constant) 

or displacement (variable) 

or address (proc or func) 
Symbol table: array size (array) 

or number of parameter (proc or func) 
Value to be pushed or popped 
Next character to be read by the scanner 
String to be pushed or popped 
Table for reserved words 


Table 2: Important variables used in the 
p-compiler. 


base address); for procedures and functions, 
it is the address pairs and the number of 
parameters; and, lastly, for array variables, 
the information is the address pair as well 
as array sizes. See table 2 for actual variables 
that are used to store these quantities. 


4736 
4746 
47356 
4766 
477G 
478G 


X=CiNGOSUB 6126 

GOSUB 1L246\GOSUB 3494 

IF S@$="5;" THEN 4746 

2=FHELC "UNTIL". 1@) 

GOSUB L24@\GO0SUB 3294 

GOSUB 61L5G\2=FNG< 7.6. % SRETURN 


4$79G@REM #44 WHILE .. GO 


4866 
4816 
4824 
4336 
4846 
4856 
4366 
4876 


GOSUB L24G\X=CL\GOSUB 6126 
GOSUB S29G\X%=CLNGOQSUB 6126 
Z=FNGC 720.6) 

2=FNELC "00 ",18) 

GOSUB L2ed@.GGSUB 3496 
GOSUB 61LSG\K=X\GOSUB 6154 
2=FNGC6,.4,%) 

K=KNGOTG 6546 


4S8GREM £44 CASE .. OF 


489G 
4906 
491G 
4926 
4936 
4946 
4956 
4966 
4976 
4986 
4996 
3608 
361G 
3626 
3634 
3640 
3856 
3G6G 
re aS 
288 
3696 
3166 
sLiG 
sl2G 
S136 
314G 
J15G 


GQOSUB 1246\G0SUB S296 


Z2=FNELC "GF 2o0 
IZ=1\REM # GF CASE STATMNTS 
ITL=G@\REM # GF CASE LABELS 


GOSUB L24G@.GQSUue e24e 

Z2=FNGE 1.4.21 2=FNGS GG. NS ON Z=FHGE1,6,59 

GOSUB L24GQ@NIF S@v=":" THEN 4996 

Z=FNELC". "59 

K=CLUNGOSUB GLEGS2=F NGC 7.1. G0SREN A MATCH FOUND? 
TL=1L+incarTa 4336 

K=C1IN2=FNGC 7. G@.G0\REM GOTO NEXT CASE STNNT IF NO MATCH 
FOR I=1 TQ TANGOSUER ES2E@NNHEXTSREM FIXUP FORWO REFS 
X=KNGOSUB 6126 

GOSUB L2e4G.x=Te.Gosuk eice 

GOSUB S49@N\GCSUB BLOGs I2=x 

IF S@$="ELSE " THEN S@9@ 

IF S@$<>"5" THEN S128 

K=CIN2=FNGC6.G.@ 9NREM EXIT AR TER A CASE STMNT 
GCOSUB 652G 

K=KNGQSUEB 6L2ZGNT2=Tet+isGata 42h 
K=CINZ2=FNGC6.G,G@9\GQSUE G3zh 

X=KNGOSUB 6126 

GOSUB L2e4G\Kc=TexGasue Glee 

GOSUB S45G\GQSUE Glogs 2=x 

2=FNELC "END "JL¥d 

FOR T=1 TQ TexGOSub GS2GsNEXTSAEM FIXUP FORWO REFS 
Z=FNGCS.@.-LISGOTA LedQ.kEM FOR VAL CF CASE EXP 


SI6GREM 44% FOR 


wil? 
S186 
2196 
2200 
Sela 
s22G 
323G 
N24G 
S25 
3266 
sera 
3286 
3239 
3368 
3316 
332G 


Z=FNE2¢ "IOENT".4) 

GOSUB S6SGNGOSUB Blea 

FSSLN1F s@s="TO " THEN SeLG@SREN REMEMBER UP OR OOWN 
Z=FNELC"GOQWNT". 2S NF 9=u 

GOSUB Le4GNGUSUB S296 

GOSUB GLOGNKRKNK=ECLNGOSUB G1Leu 
Z=FNGCL,Gs2LINZ=FNGE2.LI-TICK OO. TECK) 
ee OLEUSZ=FAGK GO, &) 
S=FONGOSUB GL2G.K=KNGOSUB &1e2 

2=FNELS "00 ", LSONGQSUE 1340 

GOSUB S49Q@\GOSUB GLOGSZ=FNGC 2. LI-TIC KO, TER) 
K=ANGOSUB GLUGNZ=FNGE1,G. 26-4) 

2=FNGCS,LI-TICK 9. TECK 2) 

GOSUB GLOGSNEEKNGCSUB GLOGS Z=FNGC 6. GA) 

X=KNGOSUB 6546 

2=FNGCS,.G,-LOSRETURNSREM POF GFF VAL GF LOGP CNTRL VAR 


SSSGREM EXE ERPETE 
SS4GREMN BLOCK 


ISSG 
5366 
337G 
338 
539G 
3466 
34164 
3426 
343G 
744G 


DG=S\KEM RESERVECO FOR STATIC LINK. OYNAMIC LINK & RETN ADE 
T2CTL-KLOHCLNREMN INIT ADO GF THE PROC BLOCK 

2=FNGC6.G,G .\REM JMP TQ STARTING BLK ADD 

X=TL-KL\GOSUB 6124 

IF S@$="CONST" THEN S466 

IF S@$="UAR " THEN SSS 

IF S@$="PROC " THEN Sree 

IF S@$="FUNC " THEN S?7ra@ 

IF S@S="BEGIN" THEN S986 

Z=FNEC 25) 


S4SGREM **%* CONST OCL 


3466 
3476 
24S 
349G 
5o0GG 
S5L@ 
3524 
353G 


GOSUB 1246 
GOSUB 217G 
Z=FNELC "3 ".SONGQSUB 1246@ 
IF SG$="VURR " THEN SooG 
IF S@$="PROC " THEN S726 
IF S@$="FUNC " THEN S/7G 
IF S@$="BEGIN"” THEN 5986 
GOTO 3476 


SO4GREM #44 VARIABLE OCL 


S556 
wu6G 
357G 
S586 
S596 
5666 
S614 
3626 
363G 
5646 
365G 
366G 
567G 
5686 


L=G@N\F9=1 

GOSUB L24@\GOSUB 2346 

L=L+iNIF S@¢="," THEN 3566 

2=FNELC": ",5) 

GOSUB Le4G@SIF SGS="ARRAY" THEN 3616 
Z=FNELC"INTEG", S36 .\GOTO S67 
Z=FNE2C"C", 33 N\GQSUB Le2d4Q@\GOSUB 2246 
2=FNE2( "3", 34 NZ=FNESC "OF ", 26 NZ=FNEZC"INTEG", 36) 
DG=DG-L 

FOR I=Ti-L+iL TO TL 
TESCT,TIE"A"NTSC TENS HL 

T2¢ I D=DGNDG=DGtNS+LNNEXT 

2=FNE2C"3 "559 

GOSUB 124G\IF S@$="PROC " THEN 35736 


78 


3696 
3766 
w?lG 
372GR 
3736 
3746 
3736 
3 76GR 
o?7G 
3786 
379G 
3866 
381 
382G 
3836 
9846 
3856 
386G 
3876 
3886 
3896 
996G 
391G 


IF S@$="FUNC " THEN S77@ 

IF SG$="BEGIN" THEN 5336 
L=GN\FS=1\GOSUB 234@\G0TO 3576 

EM **% PROC GCL 

2=FNEZC "IDENT". 4) 
KL=G\KS="P"\GOSUB 1956 
LI=L1+1\GOTO 3816 

EM **% FUNC OCL 

2=FNE2¢ "IDENT". 4) 

K$="F"SGQSUB LOSGNREM FUNC ADDRSS 
Li=Litinki=1 

K$="¥"S\GOSUB LOSG@\REM FUNC VALUE 
K2=KLNGOSUB 1246 

X=TINGOSUB 6126 

X=DG\GOSUB 6126 

IF SG$<>"C" THEN 3396 

GOSUB 1L24G\FS=G\GOSUB 234GNK1=Kitl 
IF S6$="," THEN SSS 
2=FNELC")",22) 

GOSUB 124@\T3¢ T1-K1=K1-~-K2 
Z=FNELC "3 ",5) 

FOR I=1 TG KLN\REM FUNC VALUE & PARS HAVE - 
T2e TL-I+h =-INNEXT 


93926 GOSUB 124G\GOSUB SS4G@\L1=Li-1 


3936 
394G 
3956 
3966 
JI?GR 


GOSUB 6156\DG6=xK 

GOSUB 6LSOGN\TLEX 

Z=FNEIC "3 ".3) 

GOSUB 124@\GOTO 5416 

EM 42% START GF EXECUTIBLE STTNNTS 


2986 GOSUB 124G\GQSUB 6LOGQ\K=K 


3996 


X=T2CK ONGOSUB 6546 


6666 T2¢Ko=CLNREM START BLOCK ADDR 


6616 
6626 
6636 


684G 
6656 


Z=FNGCS,.G,.0@) 
GOSUB 3456 
IF S@$<>"5" THEN 6854 


GOSUB L24@\GO0TO 6GazG 
IF S@$<>"END " THEN Z=FNECL?) 


6666 GOSUB 1246 


6676 
6686 
669GR 
616GR 
61LGR 
612GR 
6136 
614GR 
6LSGR 


Z=FNGC 1.6.6) 

RETURN 

EM SXEAEREEE EE 

EM ENO PARSER AND CODER 
EM EERE EEET 

EM PUSH & INTO STACK 

$¢ S39 =FKNSS=SS9+ LN RETURN 
EM LEREAREEEE 

EM POP *% FROM STACK 


616G S9=S9-1NK=S¢ S39 ONRETURN 


617GR 
SLEGR 
6196 


EM HERR EREEE 
EM PUSH Y¥# INTG STACK 
L=LENC ¥$ > 


62GG S$CPS,.PS8+L-1d=1F 
A=P8\GOSUB GL2Q@.REN PUSH START & END STRNG POS 


6216 
6226 
6236 
624GR 
6254 
6266 
6276 
6286 
6296 
63GGR 
63LGR 
6326 
6336 
6346 


K=PS+L-1\GOSUB 6126 
PS=PS+L\RETURH 

EM POF ¥% FROM STACK 
GQSUB 6156 

L=A\GOSUB 6156 
YS=SECR,LO 
PS=PS-L+xK-1 

RETURN 

EM TERETE EEESE 

EM GENERATE CODES 
DEF FNGC KL. K2.4%3) 
B$=" u 

FILL PS.XLSFILL PSt1, ke 


635G FILL P9+tZ.FNACKSONFILL PS+tS,FNECKS) 


6366 
637G 
6386 
6396 
6466 
6416 
6426 
6436 
6446R 


IF YS THEN G6G4GG@\REM IF INPUT FROM KEYEROARD 
IF A1<16 THEN 6396 

BSC Ll, LIS"K"NALEKL-LGSREM INDEX 

tx41,C1." 
CL=CLt+iNPS=P9+4 

IF P9>=Q9 THEN Z=FNEC 1) 
RETURN G 

FNENG 

EM FARRER EKE 


645G DEF FNECZ) 


6466 
6476 
6486 
6496 
63566 
651GR 
652GR 
6536 
6546 
65396 
6566 
657G 
6586 
READY 


N=INTC 2/256 ) 

IF N<@ THEN N=256+N 

RETURN N 

FNENO 

DEF FNACZ D=Z-INTC 27256 4256 
EM £ERRAERERE 

EM FIXUP FORWORD REF 

GOSUB 6156 

N=P7+K*4 

FILL N+2,.FNACCLONFILL N+3,.FNBC CL») 
IF ¥9 THEN RETURN 

"ADO AT".%." CHANGED TO".C1 
RETURN 


OFFSET 


THEN OGNT ECHO 


"JMSC MLEStL, XLES4+S0.8$, 231.82, 461,5K3 


The symbol table is used by both the 
parser and the semantic analyzer. The infor- 
mation in the symbol table is used in a 
number of ways. The type of identifier 
is used, for instance, to check the type 
consistency in an expression. When a vari- 
able is referenced or a procedure or function 
called, the symbol table is searched to 
obtain the level and relative address from the 
base address. The number of parameters 
in a procedure or function is used to check 
the correct matching of parameters in actual 
procedure or function calls. 

An identifier is searched for by starting 
from the end of the symbol table and work- 
ing towards the beginning. (Viewing the 
table as a stack, we say that we search from 
the top of the stack down to the bottom.) 
There are two reasons for this searching 
direction. First, identifiers in the current 
block are more likely to be referenced and 
should be searched first. Secondly, suppose 
that a variable X is declared in both an outer 
and an inner block: by searching for X from 
top to bottom of the stack, we can be sure 
that we will find X of the inner block first, 
in accordance with the scope rule. 


Parser, Semantic Analyzer, and Coder 


The parser, the semantic analyzer and 
the coder are not separate routines, but are 
intermixed in a large routine. In most 
cases, after the successful parsing of a 
statement, its meaning is also understood 
by the compiler. Thus the semantic analyzer 
either requires minimal extra processing 
or is implicit in the parser and disappears 
altogether. 

The parser, as we have mentioned before, 
uses a top-down technique called recursive 
descent. Since there is a close correspond- 
ence between the parser and the syntax 
diagrams of the Pascal grammar, there 
should be no difficulties in understanding 
the parsing process. The parser adopts the 
convention of one token look ahead which 
is similar to the one character look ahead 
convention used by the scanner. The vari- 
able SO$ is used to hold the next token 
to be read by the parser. 

There is a part of the Pascal grammar, 
commonly referred to as the dangling 
else, that is ambiguous. The statement: 


if cond? then if cond2 then stat? else stat2; 


can be parsed in two ways. The else state- 
ment can be associated with the first if or 
with the second if, producing entirely 
different results. 

We resolve this difficulty by always 
associating the else statement with the 
most recent if. If an else statement with 


the first if is desired, one of these two 
methods should be used: 


if cond? then 
if cond2 then stat7 else 
else stat2, 


Or: 


if cond? then begin 
if cond2 then stat? 
end 

else stat2; 


The situation is similar to the case state- 
ment with the added feature of an optional 
else statement. If the statement for the last 
case label is an if statement, we then have 
the dangling else problem. This is resolved 
in the same manner. 

There are three functions used to print 
messages when errors are detected. The func- 
tion FNE(X) prints the error message 
corresponding to error code X. FNE1(A$,X) 
checks to see if the current token is equal 
to A$, and prints the error message corre- 
sponding to error code X if not. FNE2 
is similar to FNE1 except that the scanner 
is first called to get a new token. As we 
mentioned earlier, the compiler aborts as 
soon as an error is found. Therefore these 
error routines do not return to the calling 
procedure. 

The code generator requires more work: 
care must be taken to store important 
values in stacks due to the inability of 
BASIC to fully support recursive subroutine 
calls. Otherwise the coder is more or less 
straightforward, since the p-codes are so 
designed (see part 1) that there is a direct 
correspondence between simple Pascal state- 
ments and p-codes. Table 3 shows the almost 
direct translation of Pascal statements into 
p-codes. 

The declarative statements (const, var, 
proc, and func) do not produce any exe- 
cutable statements; they merely provide 
information about declared identifiers. The 
first executable code encountered when 
entering a procedure or function block is a 
forward jump instruction to the main body 
of the block. This jump is necessary since in 
general there may be procedures and func- 
tions whose codes take up space. The 
second executable code of the block incre- 
ments the stack pointer (INT). This allo- 
cates space for the triplet (static link, 
dynamic link and return address) plus any 
variables declared. The number of spaces 
for the variables is already known from the 
declaration portion of the procedure block. 
The variable DO is used to keep track of the 
space to be allocated at the activation of 
the block. 

Note that no space is allocated for con- 


Pascal source 


xt+10*y([5] 


a:=exp; 


if exp then stm7 else stm2; 


1b1 


1b2 
for i;=exp! to exp2 do stm; 
1b1 
1b2 
while exp do stm, 1b1 
1b2 
case exp of 
clbi,ctb2:stm1; 
c1b3 :stm2; 
else stm3 
end; 
1b1 
1b2 
1b3 
1b4 
repeat stm until exp; 1b1 


i:=funcalexp1,exp2); 


p-codes 


LOD 


funca 


Table 3: Code generation for various Pascal constructs. For readability, the 
p-codes are given in assembly form. The italic identifiers in the Pascal state- 
ments are nonterminals that can be substituted by any valid expansion. The 


codes for these quantities are represented by parenthesized identifiers. 


stants. If a constant is referenced, a load 
literal (LIT) instruction is generated instead 
of a load (LOD) instruction. Also note that 
the procedure or function parameters and 
the function return value do not reserve 
any space in the procedure or function 
block called. Space is reserved before the 
call is made. Therefore, these values have 
negative displacement from the base address 
of the called procedure or function. 

When a call is made to a function, the 
space for function return value is allocated 
by incrementing the stack pointer (line 
2980 in listing 1) (this step is skipped for 
a procedure call). The parameter expres- 
sion is then evaluated (line 4250), putting 
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P-CODFS START AT 0000 


FUNC MAX4 (X1,X2,X3,X4)3 {LARGEST OF 4 NUMBERS} 
FUNC MAX2 (X1,X2); {LARGEST OF 2 NUMBERS} 


IF X1>X2 THEN MAX2:#X1l 
ELSE MAX2:=#X2 


MAX4 3: =MAX2 (MAX2 (X1,X2) ,MAX2 (X3,X4) ) 


READ (A#,B#,C#,D#); 
WRITE ("THE LARGEST IS‘ ,MAX4(A,B,C,D)#,CR,LF) 


WANT CODE PRINTED?N 
0 ?$LST2.2 
0 CONST CR#13;LF=10; 
1 VAR A,B,C,D: INTEGER; 
1 
1 
2 BEGIN 
3 
9 
12 END; 
14 BEGIN 
14 
28 END; 
30 BEGIN 
30 REPEAT 
31 
39 
67 UNTIL A<0 
69 END. 
INTERPRET (I), OR TRANSLATE (T) ?N 
RFADY 
LOAD DECODF 
READY 
RUN 
0 JMP 0 30 
4 LOD 0 =-2 
8 LOD 0 =-2 
12 sto 0 =3 
16 INT 0 1 
20 INT 0 =-2 
24 CAL 0 3 
28 STO 0 =-5 
32 sto 0 3 
36 STO 0 5 
40 LIT 0 72 
44 LIT 0 65 
48 LIT 0 83 
52 LIT 0 83 
56 LOD 0 3 
60 CAL 0 14 
64 CSP 0 OUTCH 
68 LIT 0 0 


JMP 0 14 JMP 0 3 INT 0 3 
LOD 0 -1 OPR 0 > JPC 0 11 
sto 0 -3 JMP 0 13 LOD 0 -1 
OPR 0 RET INT 0 3 INT 0 1 
LOD 0 -4 LOD 0 -3 CAL 0 3 
INT 0 1 LOD 0 -2 LOD 0 ol 
INT 0 -2 CAL 0 3 INT 0 =-2 
OPR 0 RET INT 0 7 CSP 0 INNUM 
CSP 0 INNUM STO 0 4 CSP 0 INNUM 
CSP 0 INNUM STO 0 6 LIT 0 84 
LIT 0 69 LIT 0 32 LIT 0 76 
LIT 0 82 LIT 0 71 LIT 0 69 
LIT 0 84 LIT 0 32 LIT 0 73 
LIT n 14 CSP 0 OUTST INT 0 1 
LOD 0 4 LOD 0 5 LOD 0 6 
INT 0 -4 CSP 0 OUTNM LIT 0 13 
LIT 0 10 CSP 0 OUTCH LOD 0 3 
OPR 0 < JPC 0 31 OPR 0 RET 


Listing 2: Sample Pascal program with compiled p-code. The number at the 
beginning of each source line is the offset of the corresponding p-code from 


the base address. 


the resultant value on the stack. Thus, 
space is allocated for each parameter and 
initialized with the value of the param- 
eter expression. Upon return from a pro- 
cedure, the stack pointer is decremented 
by an amount equal to the space allocated 
for the parameters, getting back to the 
State before the procedure call. Upon 
returning from a function call, the stack 


pointer is also decremented by the same 
amount, but since a space has been allo- 
cated before the function call, the function 
return value is now on top of the stack, 
ready for further processing. This simple 
scheme works very efficiently and should 
lower the overhead usually associated with 
procedure or subroutine calls. 

Listing 2 gives an output from the com- 
piler for a Pascal program that prints out the 
maximum of four numbers. There are of 
course better ways of writing the program, 
but it does illustrate some ideas of the 
compiler discussed so far. 

There is no optimization of the p-codes 
produced. Limited optimization can be done 
on the local level, and some optimization 
is actually done in the p-code to machine 
code translator. The problem of producing 
efficient codes is a difficult one, and is not 
addressed properly in our project. Given the 
simplicity of the p-machine and p-code, the 
p-compiler is efficient. But whether the com- 
bination of p-compiler and translator pro- 
duces efficient 8080 code is uncertain. 

This completes our discussion of the 
p-compiler. In part 3 we give a detailed dis- 
cussion of a translator for converting the 
p-code into executable 8080 machine code. 
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A “Tiny” Pascal Compiler 


Part 3: P-Code to 8080 Conversion 


In part 1 of this series (September 1978 
BYTE, page 58') we defined a Pascal subset 
language in terms of syntax diagrams. The 
p-machine and its instruction set and a 
p-code interpreter were also described. In 
part 2 (October 1978 BYTE, page 342) we 
presented the design and implementation of 
the p-compiler. The subject matter for this 
part is the translation of p-codes to exe- 
cutable 8080 machine codes. We will also 
discuss the implementation of run time 
support routines and code optimization. 


Compiler-Interpreter Systems 


To understand why we need a p-code to 
8080 translator, we should first take a brief 
look at the different structures of compiler- 
interpreter systems. The most widely used 
structure for microcomputers is the /nter- 
preter. Since interpreters are written in the 
target computer’s assembly language, their 
memory size is small. They are self-con- 
tained in the sense that they include an edi- 
tor for creating source programs and run 
time routines to do all computations. Mem- 
ory storage for source programs is also 
small. The only disadvantage is speed. Exe- 
cution time for a typical BASIC program is 
estimated to be about 300 to 1000 times 
the execution time of the same program 
written in assembly language. Interpreters 
may spend more than 70 percent of their 
time scanning source symbols character by 
character, parsing the syntax and checking 
errors. No matter how many times a pro- 


1. Page 59 of this edition. 
2. Page 71 of this edition. 


Kin-Man Chung 
Herbert Yuen 


gram statement is executed, the parsing pro- 
cedure is repeated every time. 

This problem can be readily solved by 
separating the parsing and execution steps. 
Before execution, the source program is 
compiled and intermediate code is gener- 
ated. Thus scanning and parsing are done 
only once for each program statement. This 
is the so-called compiler-interpreter scheme 
used in some BASIC compilers. Execution of 
the intermediate codes is by interpretation. 
The gain in speed over a pure interpreter is 
a factor of approximately 2 to 10. However, 
the gain in speed is paid for by extra mem- 
ory storage needed for intermediate codes. 

The compile-go and compile-link-go ap- 
proaches are commonly used for many high 
level language compilers in mainframe com- 
puter systems. These compilers generate re- 
locatable binary codes. The compile-link-go 
approach has the advantage of linking to- 
gether different modules of programs that 
are compiled separately, such as those in a 
subroutine library. This is done by a linking 
loader. However, due to limited system re- 
sources like memory and peripheral devices 
in microcomputers, these two structures are 
rarely used. Further, since Pascal is designed 
for fast compilation, linkage of program 
modules may be done at the source lan- 
guage level. 

Among those four structures just men- 
tioned, the compiler-interpreter seems to be 
most appropriate for implementation on 
microcomputers. However, execution speed 
is still slow because intermediate codes are 
interpreted rather than executed directly by 
the computer. An obvious solution to this 
problem is to translate the intermediate 
codes into executable machine codes. Thus, 


81 


Table 1: Summary of dif- 
ferent structures of com- 
piler-interpreter systems. 


interpreter 


compiler- 


interpreter Pascal 


compile-link-go 


compiler 


Pascal 
compiler 


compile-translate-go 
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BASIC-E, 


compiler 


(by authors) 


each intermediate code is decoded once by 
a program which we call a trans/ator. The 
translated machine code can be expected to 
run about two to five times faster than in- 
terpreted intermediate codes. Therefore, 
the overall gain in speed, compared with a 
pure interpreter, is a factor of approxi- 
mately 10 to 50. (Preliminary test runs in 
our system show that Pascal programs run 
about 15 times faster than the same pro- 
gram written in BASIC.) We call this struc- 
ture compile-translate-go. 

The five compiler-interpreter structures 
we discussed above are summarized in table 
1. The compile-go and compile-translate-go 
are rather similar in structure. Compile-go 
actually combines the process of compiling 
and. generating executable codes into one 
step. The binary codes are generated by 
straightforward algorithms without optimi- 
zation, because code optimization would re- 
quire more complex program logic and make 
the compiler even larger. Separating compila- 
tion and translation into two steps signifi- 
cantly reduces the size of the compiler. 
Local optimization techniques can also be 
applied during translation. Code optimiza- 
tion will be discussed later. Since p-codes are 
designed to be machine independent to 
make the compiler portable, the translator 
is responsible for producing efficient codes 
for a target computer. 


Designing the Run Time Routines 


Run time routines form an essential 
part of all compiler-interpreter systems in 
microcomputers. Large computers can do 
fixed point, floating point and decimal 
arithmetic with 32 bit or larger word sizes 
in single instructions. Many microcomputers, 
on the other hand, can do only basic integer 
arithmetic with 8 bit words (bytes). There- 
fore, multiple instructions are needed to im- 


BASIC, APL 
interpreter 


source 
program 


interpreter 
(execution) 


source compiler 
program 
intermedi- 


ate code 


interpreter 
(execution) 


compile-go WATFIV,PL/C source executable Only used in large computers. 
compiler program code Disadvantage: size is too big for 
microcomputers. 


FORTRAN IV, 
PL/I, COBOL 


source 
program 


compiler 


binary 
code 


linking loader 


source 
program 
p-code 


compiler 


translator 


intermediate 
code 


binary Widely used in large computers. 
code Advantage: fast execution speed. 
executable Disadvantage: requires more system 
code resources. 


p-code 


executable 
8080 code 


plement 16 bit operations like multiply, 
divide, subtract, logical operations and 
multibit shifts. The run time routines, some- 
times referred to as run time support pack- 
age, are a collection of subroutines written 
in assembly language that can be called by 
an interpreter or any program to perform 
various arithmetic and logical operations. 
Usually they include subroutines for 1O con- 
version between ASCII and binary data. 

The design of run time routines for our 
compiler system is based on three principles: 


@ Fast implementation and clarity: A 
Straightforward approach is followed 
so that the overall package can be de- 
bugged and tested quickly and modi- 
fied easily. 

@ Speed: The best known algorithms 
are used for computer arithmetic to 
achieve fastest execution speed pos- 
sible. However, tricks such as self- 
modifying code are not used. 

@ Memory storage: The package is ex- 
pected to be fairly compact. Since 
p-codes are translated mostly into sub- 
routine calls, the number of instruc- 
tions to set up arguments to be passed 
to the subroutine should also be 
minimal. 


As described in part 1, the p-machine has 
a data stack and four registers: stack pointer 
T, base register B, program counter P, in- 
struction register |. Since the translator takes 
care of the program counter and p-code in- 
structions are not needed after translation, 
all we need are the stack pointer and base 
register. In the current version of our run 
time routines, contiguous memory storage 
is used to represent the data stack. For the 
sake of program clarity and easy debugging, 
the 8080 machine stack is not used, al- 
though using it for dual purposes as a data 


Most popular for microcomputers. 
Advantage: conserves memory space. 
Disadvantage: very slow execution 

speed. 


The interpreter may overlay the 
compiler to save memory space. 
Advantage: faster execution speed. 


Advantage: size of compiler is 
reduced, fast execution speed, 
increased portability, easy 
implementation. 


stack and temporary storage for normal pro- 
gram logic is possible and probably more 
efficient. 

Figure 1 shows the structural differerices 
between the p-machine stack which we im- 
plement and the 8080 machine stack. Since 
integer data is stored as pairs of 8 bit bytes 
(character strings are stored as single dimen- 
sional arrays, two bytes to each element and 
only the low order byte is used; see descrip- 
tions in part 1), each load instruction incre- 
ments the stack pointer by 2. The order of 
the byte pair is arranged as high-low because 
it is more convenient to use than low-high. 
The stack pointer always points to the low 
order byte of the 16 bit integer, which is on 
top of the stack. 

Register pair D,E is dedicated for use as 
the stack pointer, while registers H and L 
are mainly used for 16 bit operations such as 
DAD, LHLD, SHLD and PCHL. When 
needed, register pairs D,E and H,L can be 
easily exchanged using the XCHG instruc- 
tion. Since the base address remains un- 
changed within a procedure block, a 2 byte 
fixed memory location (with symbolic name 
BB) is used to represent the base register. 
The LHLD and SHLD instructions are used 
to retrieve and update the base address 
value. A summary of register assignments for 
implementation of the p-machine is shown 
in table 2. 


Coding the Run Time Routines 


Most of the subroutines are easily under- 
standable. The routines for load, store, call 
and-load constant are coded by direct trans- 
lation from the interpreter program to 8080 
assembly language, keeping in mind that 
each stack element (one data item) occupies 
two bytes. The routines for arithmetic and 
logical operations and IO conversions re- 
quire more programming effort. In general, 
single operand functions such as negate, 
logical not and increment are performed one 
byte at a time in register A. Double operand 
operations such as add, divide and logical or 
are performed with register pairs H,L and 
B,C. The entire runtime package occupies 
about 1 K bytes of memory. The following 
are remarks on coding some of the not-so- 
trivial subroutines. 

PUSH and POP: for most double operand 
functions, subroutine POP is called first 
to get the two operands from the stack 
(memory) and put in register pairs H,L (first 
operand) and B,C (second operand). After 
the operations, subroutine PUSH is called to 
put the result from H,L back onto the stack. 

Add and subtract: since DAD (double 
precision add) is the only 8080 instruction 
for double operand 16 bit operation, sub- 
traction is done by adding the 2’s. comple- 


MEMORY MEMORY 
LOCATION LOCATION 


P-MACHINE STACK 


PUSH: INCREMENTS STACK POINTER 


8080 MACHINE STACK 


PUSH: DECREMENTS STACK POINTER 


Figure 1. Differences between p-machine and 8080 stacks. This figure shows 


ntl entries on each of the stacks. 


P-machine 


P: program counter PC 
T: stack pointer 
B: base register 
I: instruction register _ 
data stack 


8080 run time routines 


D,E register pair 
memory location BB (16 bits) 


memory storage 


Table 2: Register and storage assignment for runtime routines. 


ment of the second operand to the first. A 
message will be issued if overflow occurs and 
execution continues without any corrective 
action. The condition for overflow is de- 
tected by the rule: 


if [sign(arg.1) © sign(arg.2) © carry 
® sign (result)] = 1, then overflow; 
otherwise nothing. 


MULT16: 16 bit signed multiplication is 
done in two Stages using an’8 bit multiplica- 
tion routine. First, multiply the second 
operand by the high order byte of the first 
operand; the result is in register pair H,L. 
Second, continue the multiplication (left 
shift and double add) with the low order 
byte of the first operand; the result is in 
register pair H,L. This method is very effi- 
cient. In comparison, conventional 16 bit 
multiplication routines require more PUSH, 
POP and XCHG instructions because there 
are not enough registers to shift two 16 bit 
words and also update a loop counter. Over- 
flows are ignored, as this is the usual practice 
for integer multiplication. 

DIV16: 16 bit signed division is one of 
the most difficult routines to implement. 
First the signs of both operands are saved on 
a stack and are then converted to positive in- 
tegers (actually the divisor is made negative 
in 2’s complement because subtraction is 
done with a double add instruction). The 
divisor is also checked for zero value, and if 
so, a DIVIDE CHECK message is issued and 
the routine returns. Division is carried out as 
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Hexadecimal 
Op code 


00 


01 


02 


12 


03 


13 


P-code 


LIT O,n 


OPR 0,0 
OPR 0O,n 


LOD v,d 
a) v=0 


b) v>0 


c) v=255 


LODX v,d 


a) v=0 


b) v>0 


STO v,d 


a) v=0 


b) v>0 


c) v=255 


STOX v,d 
a) v=0 


b) v>0 


a sequence of subtraction and shifts. At the 
end, the signs of the quotient and remainder 
are corrected according to the original signs 
of the operands. The same routine is also 
used for calculation of the MOD function. 
Relational operations: are done by com- 
paring the high order and then the low order 
bytes of the operands. For testing less than, 
less than or equal, greater than, greater than 
or equal conditions, a common subroutine 
for testing less than is used. Register pair 
B,C is used as a flag to indicate whether the 
opposite of less than and equal to is wanted. 
SHL and SHR: the logical left shift and 
right shift routines are symmetric in the 
sense that a negative argument (second op- 
erand) for the number of bits to be shifted 
will cause one routine to jump to the other, 
resulting in shifts in reverse direction. 
INNUM: the conversion subroutine for 
input integers allows leading zeros and 
blanks and may optionally be preceded by 
a plus or minus sign (+ or —). It also checks 


Hexadecimal 


for the absolute magnitude of the integer, 
which must be less than 32,768. 

OUTNUM: conversion of binary integers 
to ASCII is done by repeated division by 10. 
The 16 bit divide routine is utilized. 


P-code Translation 


In general, p-codes are translated to sub- 
routine call instructions which jump to the 
appropriate entry points in the run time rou- 
tines. Output from the translator is an 8080 
machine language program containing 
mostly subroutine call instructions. Some p- 
codes, such as load and store, require addi- 
tional instructions to set up the arguments 
to be passed. Address offsets are always 
placed in register pair B,C and the static 
level difference is placed in register A. The 
jump instruction in p-code simply becomes 
a JMP instruction in 8080 with the correct 
address determined by the translator. The 
p-code addresses in CAL and JPC instruc- 


8080 Mnemonic Commentary Op code P-code 8080 Mnemonic Commentary 
LXI B,n 04 CAL v,a 
CALL LIT 
a) v=0 CALL CAL 
JMP POO; procedure return JMP x 
routine 
CALL Pn ; one of the 21 b) v>0 MVI A,v 
arithmetic/logical CALL CAL1 
routines JMP x 
c) v=255 CALL CALA; machine language 
LXI B,2d subroutine interface 
CALL LOD 
05 INT O,n LX| H,2n 
LXI B,2d CALL INT 
MVI A,v 
CALL LOD1 06 JMP 0O,a JMP x 
CALL LODA; load absolute address 07 JPC 0O,a LDAX D; get conditional code 
DCX OD 
DCX OD; decrement stack 
RAR ; pointer test condi- 
LXI B,2d JNC x tional code 
CALL LODX 
JPC 1,a (same as JPC 0,a 
LX!I B,2d except JC x) 
MVI A,v 
CALL LODX1 08 CSP 0O,n CALL SYSn; one of the 6 con- 
(n=0...5) version routines 
for n=8: (output a string) 
LX! B,2d 
CALL STO LIT O,cy MVI C,n; + of char. 
LIT 0,cy CALL SYS8 
LX! B,2d : DB Cy 
MVI A,v DB C5 
CALL STO1 : ; 
LIT 0,c,, 
CALL STOA; store absolute address LIT O,n : 
CSP 0,8 DB Cc, 
Table 3: P-code to 8080 translation. LIT, LOS, STOX1, INT, LODA, etc, 
a hie noe are used as symbolic entry points in the run time routines. There are 22 
routines for the OPR instructions: POO, POT, ..., P21. There are seven stan- 
LX! B,2d dard routines for 1O conversion: SYSO, SYS7, .. ., SYS5 and SYS8. The 
a : L see variable x is used as the memory address in the translated 8080 code corre- 


sponding to p-code address ain acall and jump instruction. 


tions are similarly taken care of by the trans- The 2 Pass Translator a 
lator. The complete list of 8080 code cor- 
responding to each p-code is shown in The structure of the translator is similar 


table 3. to that of the interpreter. Both programs 


FIRST PASS 


START 


INITIALIZE: PROMPT 
USER FOR ADDRESSES 


OF P-CODE, 8080, STACK 
SET PC:20; W:0; 


GET NEXT P-CODE 


2255 
? een 
NO lop sepereue | 
_ dor ump | 
—~ JOR JPC | 
hs es ed 


W:2 Wi 
T(W):=ADDRESS IN 
CAL OR JMP OR 

JPC INSTRUCTION 


BUBBLE SORT 
THE ARRAY T 


SET WO:F1; I: 1; 


INCREMENT I 


NO 


YES 


NO 


WO:= WOFI 
T(WO):= T(I); 


SECOND PASS 


T(WO 41): 265535 
INITIALIZE ARRAY D 


TO ZEROS 
SET PC:=0; K:=1; 
U:=T(I); Wiel; 


GET NEXT P-CODE 
K:#K¢1; RO:=0; 
Vv: 20; 


O(W):2P; 
W:2W+i; RO: = 1 
U:= T(W); 


Viel; 
OP CODE:=O0P CODE-'I6 


FIX UP 


INCREMENT N 


P:=E€(N); 
J:z=VALUE OF 16 BIT 
WORD AT MEMORY 

LOCATION P 


PUT D(J) IN 
MEMORY LOCATION P 


Figure 2; A simplified flowchart of the translator. AO, Al, ...A8 are program segments for generating 8080 code for the p-code 
with peephole optimization as illustrated by the rules in table 4. Refer to table 5 for a description of the variables. 
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read p-codes from memory and decode 
them. The interpreter calls a simulator .to 
execute the p-codes. The translator writes 
translated 8080 code in memory. The major 
difference between them is that the trans- 
lator needs three additional tables to keep 
track of p-code and 8080 addresses. Since 
all p-code addresses are relative to the start- 
ing p-code of the program, the program is 
relocatable. The memory address corre- 
sponding to p-code address for any back- 
ward and forward referenced jumps can be 
calculated easily because all p-codes are four 
bytes long. The number of 8080 instruc- 
tions generated per p-code is also not con- 
stant as shown in table 3. Therefore, it is 
necessary to build a table of 8080 addresses 
corresponding to p-code addresses to be 
used in jump and call instructions. How- 
ever, it is not practical to build a table of 
8080 addresses for every p-code because it 
will take too much memory storage for large 
programs. Only the addresses of those p- 
codes that are being referenced need be 
entered into the table. 

P-code to 8080 machine code translation 
is done in two passes. During the first pass, 
p-code addresses in CAL, JMP and JPC in- 
structions are entered into a table. The 
table is sorted after the completion of the 
first pass. Actual translation is carried out 
in the second pass. P-codes are fetched one 
by one from memory and decoded. The ad- 
dress of each p-code is checked with those 
in the address table. If it indicates that the 
current p-code is being referenced, the cur- 
rent 8080 address is entered to the corre- 
sponding 8080 address table. Then 8080 
machine codes are produced according to 
the translation rules shown in table 3. 

For CAL, JMP and JPC instructions, the 
p-code address in the instruction is looked 
up in the address table using a binary search. 
If the corresponding 8080 address has al- 
ready been entered, it is output in the trans- 
lated code; otherwise it is a forward refer- 
enced address. When the latter case occurs, it 
is necessary to record the current 8080 ad- 
dress in a forward reference table. Then, in- 
stead of the 8080 address (which is not yet 
known), its position in the table is output in 
the translated code. At the end of the sec- 
ond pass the forward referenced addresses 
are fixed up by the following procedure: 

a) Get the 8080 address from the for- 

ward reference table (call it P). 

b) Get the table entry (call it J) at ad- 

dress P in the translated program. 

c) Get the updated 8080 address (call it 

A) at table entry J. 
d) Write the correct address A back to 
memory location P. 


Figure 2 is a simplified flowchart of the 


translator. The part for code generation is 
not shown, but it can be easily understood 
by referring to tables 3 and 4. Table lookup 
is done by binary search through the sorted 
table. The table elements are entered sequen- 
tially during the first pass. A simple bubble 
sort algorithm is used to sort the table. This 
method works fine for small Pascal pro- 
grams. For larger programs, and thus more 
referenced addresses, the bubble sort algo- 
rithm is too slow because the number of 
comparisons is of order n2 for 7 elements. A 
binary tree sorting algorithm with order 
n log n will be used for our next version of 
the translator. 

The various entry points in the runtime 
routines are initialized in the translator as 
a series of string constants. These hexadeci- 
mal addresses are converted to integers and 
placed in arrays so they can be accessed 
very easily later on. 

When execution begins, the program 
prompts the user for starting addresses of 
the p-code program, the output 8080 code, 
and starting and ending addresses of the 
data stack. The following three instruc- 
tions are generated to initialize the data 
stack and pointer: 


LXIH,STK1 © starting address of data 
stack. 

LXID,STK2 2’s complement of stack 
ending address. 

CALL #1A00 run time routine (initial- 


ization. 


The program then begins its first pass. 
The number of address references and actual 
number of referenced addresses are dis- 
played at the end of the first pass. During 
the second pass, cross references of p-code 
and 8080 addresses, which may be useful for 
future references, are listed in hexadecimal 
form. At the end of the translation, sizes of 
the p-code program and 8080 code are 
displayed. 


Code Optimization 


Code optimization is a technique em- 
ployed by most compilers to improve the 
object code produced. Many sophisticated 
code optimization techniques are known 
today but are outside the scope of this 
article. We shall describe only one form of 
local optimization technique which is be- 
ing used in our project. Local optimization 
is done within a straight line block of 
code with no jumps into or out of the mid- 
dle of the block. Peephole optimization is 
one form of local optimization which ex- 
amines only small pieces of object code. 

Since most code optimization  tech- 
niques are difficult to build in a syntax 


directed code generation algorithm, peep- 
hole optimization is particularly useful in 
improving the intermediate code. Each im- 
provement may lead to opportunities for 
further improvements. The technique can 
be applied repeatedly to get maximum op- 
timization. In our translator, peephole op- 
timization is applied only once during the 
second pass. 

The goal of optimization is to minimize 
the size of the translated 8080 code and to 
increase execution speed without sacrificing 
a lot of time during translation. The peep- 
hole technique is quite simple. It examines 
only a single code or two consecutive codes. 
Some redundant p-codes are obvious and 
can be easily recognized. For example, the 
JMP instruction generated at the beginning 
of a procedure block which does not con- 
tain inner blocks is redundant. Similarly, the 
p-code INT 0,0 (increment stack pointer) 
generated after a procedure call with no 
arguments can be eliminated. The biggest 
benefit comes from optimizing redundant 
load and store instructions, because they are 
relatively slow in the current implementa- 
tion. For example, a LOD instruction im- 
mediately following a STO instruction of 
the same variable can be replaced by an 
increment stack pointer instruction, be- 
cause the variable is still on the stack. How- 


Table 4: Summary of peephole optimization. The goal is to reduce the size of the object program. The optimized code is more 
efficient than the unoptimized 8080 code. For the redundant store fix, the load instruction cannot be referenced elsewhere in 


Optimized 8080 code 


the program. 


Repeated load of A[J] :=A[J] +Y; 
the same variable 


INT instruction 
with small constant 


parameter 


Redundant loads J:=J+5; A[J] :=xX; 
and stores 


procedure call without 


ever, if the LOD instruction has a label, 
ie: is being referenced somewhere in the 
program, we cannot be sure that the STO 
instruction is always executed immediately 
before the LOD instruction. 

Other sources of peephole optimization 
are the replacement of specific operations 
by more efficient instructions. Addition and 
subtraction of small constants (less than 4) 
occur frequently in array subscripts and loop 
counters. They can be replaced by repeated 
increment or decrement instructions. Some 
p-codes are translated into in line 8080 code 
instead of a call to run time routines. Table 
4 is a summary of peephole optimization 
used in the translator. Note that the opti- 
mized code always takes less memory space 
than the unoptimized code. 


An Example 


The various modules of the compiler sys- 
tem have been described. Now let us look at 
a complete program example. Listing 1 
shows the compilation, translation and exe- 
cution of a sample Pascal program. The pro- 
gram is stored in a disk file with file name 
T4, It is a sorting program that uses a binary 
tree algorithm. As mentioned before, it is 
more efficient than a bubble sort algorithm. 
The two subroutines in this program will 


8080 code 


Redundant jump beginning of a procedure n: JMP 0,n+1 JMP x no code generated 
instructions without inner procedure 


STO v,d (as usual) 
* LOD v,d (as usual) 
LOD v,d (as usual!) 
LOD vd (as usual) 


LXI H,#0000 
CALL INT 


D; increment stack 


CALL P21; copy 
no code generated 


LXI H,2n 
CALL INT 


procedure call 


Load negative 
constants 


INX at repeat n times 
INX Dy in>0O 


DCX Bf repeat n times 
DCX Dj) \n <0 


LIT 0,n LX| B,n LXI| B,—-n 
CALL LIT CALL LIT 

OPRQO,1 CALL PO1 

LIT 0,n 


Add and subtract array subscripts LX! B,n CALL P19; increment 
small constants A [J+2] := CALL LIT (repeat n times) 
(n < 3) B(K—1] := OPR 0,2 CALL P02 


EH ket: 


LX! B,n CALL P20; decrement 
CALL LIT (repeat n times) 
CALL P03 


LXI B,#0000 
CALL LIT 


Load zeros LIT 0,0 


*Must be an unreferenced p-code 
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Oo 


E 

W 
W 
G 
K 
X 
P 

F 

V 
R 
U 


table of p-code address labels 


table of 8080 address corresponding to address labels in array T$ 
table of forward references 
count of address references 


count of actual labels 


count of forward references 
p-code instruction counter 
memory location of current p-code 


8080 program counter of the translated code 


current op code 
=1 means indexed load or store 
=1 means current p-code is being referenced 
program counter of the next referenced p-code 


Table 5: Table of important variables and arrays in the translator 
program shown in flowchart form in figure 2. 


P-CODES STARTS AT GaGa 
CODE PRINTEO?N 


WANT 


Waar =e @) © 


144 


7$T4 


{ PGM -- SORTING BY BINARY TREE 


VAR I,.J,.K.N.NEW: INTEGER; 


T,L.R,S:ARRAYCLLG] GF INTEGER: - 


PROC ENTERCN); 
VAR J: INTEGER: 
BEGIN J:=G; 

REPEAT 
IF N<=TCJJ THEN 
IF LC J3<>6 THEN 
ELSE BEGIN LC] 
ELSE IF RCJI<>@ THEN 


ELSE BEGIN RC JJ: =NEW: J 


UNTIL J=@; 
TCNEWJ:=N; NEW: =NEW+L 


END; 


PROC TRAV J); 


JF =LCI] 


>=NEWS J: =G 


} 


ENC 


JERE I 


:= 


ENC 


{ TRAVERSE THE TREE } 


BEGIN IF LOJJ<>@ THEN TRAVCLEI UI); 
J =TCIISK:=Kel; 
IF ROEJI<>@ THEN TRAVCRE WII) 


SCK 


END; 


BEGIN <(MAIN} 
'=2953 NEW: =@3 
READCK# FS WRITEC 13,16); 


TCG) 


FOR 
LCI 


K:=@6;3 
FOR I: 


I: 
}: 


WRITEC 13,16) 


END. 


INTERPRETCI), 


ADDR (HEX) OF PAS.LIB: LAGA 


=@ TO K DO BEGIN 
=@;RCIJ:=6; 
TRAVCG); 

=6 TO K-1 OO WRITE’ 


OR TRANSLATES T)7T 
xxx P-CODE TO 8@8@ TRANSLATION X**% 


AGOR ©HEX) OF P-COCE: aGaa 
ADGR CHEX) GF GUTPUT 8@8@ FPGM: 6886 
STACK START ADOR (HEX): 5806 
STACK ENG ADOR (HEX): (FFF 
26 REFERENCES 
15 ACTUAL 


135 


GSQg 
63353 
@SBG 
@96B 
695A 
6962 
GAGL 
BASE 
6AS4 
@ADS 


LA 
ac 


11 FORWARD 


P-CODE.. 
S68G.. 


BELS 


REFERENCES 


145 INSTRUCTIONS 
766 BYTES 


P-CODE:8@8@ = 1.3206897 
* END TRANSLATION * 


BYE 


XLF PAS.LIB LAGG 
x JPG866 


7? 


29 34 34 35 43 43 235 242 
+ JPGSG6 


728 


*,SCII#); 


49 
Al 
Fé 
45 
AZ 
F2 
3F 
@3 
Cé 


Listing 1: Compilation 
and translation of a 
sample Pascal program. 
At the end of the trans- 
lation, the ratio of p- 
code to 8080 code is 
determined for refer- 
ence purposes. 


ENTERC MEMCI+%1AG@@2) END; 


4F ot 
AG AG 
FO @3 
4C 32 
AR AR 
F& FE 
45 4A 
&9 8E 
CC De 


@15 25 29 29 32 33 34 34 35 35 4@ 43 435 Lle2 113 261 235 242 244 
*IPZAG4S 
READY 
!CHRS$¢ 129) 
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be used in our next version of the translator 
(written in Pascal). The main program begins 
by asking the user to input an integer K (K 
must be less than 110) for the number of 
items to be sorted. It then reads the K+1 
bytes of data starting from hexadecimal 
memory location 1A00 (the location where 
runtime routines are stored). The data 
items are read one at a time and procedure 
ENTER is called to build a binary tree with 
these items. Procedure TRAV is then called 
to traverse the tree recursively in the “left 
subtree..root..right subtree’ fashion and the 
data with sorted order is placed in array S. 
Finally, array S is printed. 

The p-compiler generates 145 p-codes (0 
to 144) for this program. Afterwards, it uses 
a CHAIN statement (North Star BASIC) to 
load the translator program from disk, and 
overlays the compiler. The translator begins 
by asking the user to input memory ad- 
dresses of run time routines, p-code pro- 
gram, output 8080 code and data stack. At 
the end of the first pass, 20 address refer- 
ences are recorded. After sorting, it is found 
that there are only 15 actual labels. Output 
from the second pass of the translator is a 
cross-reference of p-code program counter 
and memory addresses of the corresponding 
translated 8080 code. The leftmost col- 
umn is the p-code program counter. Hexa- 
decimal memory addresses are printed in 
groups of 15 per line. With the exception 
of the first one, only the two low order 
hexadecimal digits are printed. At the end 
of the second pass, 11 forward references 
are recorded. A total of 766 bytes of 8080 
code are generated. Compared to the size 
of the p-code program, the translated code 
is 1.32 times larger. This ratio usually 
ranges between 1.05 and 1.35, depending on 
program structure and the types of state- 
ments used. 

After translation is completed, control is 
transferred to the disk operation system 
(DOS). The run time routines are loaded 
from the disk file, PAS.LIB, to hexadecimal 
memory location 1A00. Then execution 
may begin by typing a JPxxxx command 
(jump to xxxx), where xxxx is the starting 
hexadecimal memory address of the trans- 
lated code. In listing 1, two separate runs 
are shown: the first one sorts eight numbers 
(K+1 with K = 7) and the second sorts 21 
numbers. The user may get back to BASIC 
by typing JP2A04, where 2A04 is the entry 
point of BASIC. (The command !CHR$(129) 
is an immediate BASIC statement used to 
turn off the printer.) 


Summary 


Compilers for high level languages are 
large, nontrivial programs. Their implemen- 


tation usually requires a significant amount 
of computer system resources and human 
effort. Although our available system re- 
sources were limited, both in hardware and 
software, we managed to finish the boot- 
strap compiler within a relatively short 
time period. The reason is obvious: The 
Pascal subset we implemented is small. We 
followed the same approach professionals 
use for implementing portable Pascal com- 
pilers on mainframe computers. Syntax dia- 
grams, which define the subset language, are 
used to construct the syntax directed, top- 
down parser of the compiler. The generation 
of p-code is also syntax directed. P-code is 
relocatable and portable, and its interpreter 
can be easily implemented on most micro- 
computers. 

There are several features that are unique 
to our compiler project. First, the bootstrap 
compiler was written in BASIC (North Star 
disk BASIC). Although BASIC is not an ap- 
propriate language for compiler writing, it is 
the only high level language available in our 
system. Its ability to perform recursive func- 
tion calls proved essential in simplifying the 
implémentation of the compiler. Secondly, 
instead of writing a p-code interpreter in 
assembly language, a p-code to 8080 ma- 
chine code translator was written in BASIC. 
The translated code can be expected to run 
more than twice as fast as interpreting p- 
codes. A p-code interpreter with debug facil- 
ities was also written (in Pascal). It can be 
used to debug p-code programs. Thirdly, 
minor extensions to the subset language 
were implemented. Absolute addressing of 
memory locations and machine language in- 
terface are desirable features for microcom- 
puter systems. The availability of hexadeci- 
mal constants and IO conversions provides 
much user convenience. 

Presently, the bootstrap compiler is very 
slow. It compiles at the rate of about eight 
lines per minute for a very dense Pascal pro- 
gram (using North Star BASIC with a 2 MHz 
8080 processor). With some refinement in 
the compiler and run time routines, the 


Pascal version of the compiler can be ex- 
pected to run 25 times faster, or approxi- 
mately 200 lines per minute. 

Completion of the bootstrap compiler is 
only a milestone in our compiler project. 
There are many tasks still to be done. 
Logically the next step is to write the trans- 
lator and then the p-compiler in the Pascal 
subset and compile them using the BASIC 
version of the compiler. Since the com- 
piler source and p-codes are big, there 
may be a minor problem in memory man- 
agement. It may be necessary to write the 
p-codes onto disk to save memory. After 
these two programs have been debugged, any 
further development can be done in Pascal 
without the BASIC interpreter. It would be 
quite interesting to have the compiler (in 
object code) compile itself (in source code) 
and use the output object code to compile 
itself again. After each compilation, the ob- 
ject code could be compared with the previ- 
ous one to provide a means of verification. 

More Pascal features or extensions can 
be implemented one step at a time. They 
may include character type and pointer type 
variables, disk 10 capabilities, floating point 
arithmetic, multidimensional arrays and 
built-in functions. It is also necessary to im- 
prove the error diagnosis and recovery 
scheme of the compiler. Further develop- 
ment should be aimed at user convenience. 
A dynamic debugging package that can dis- 
play and alter the values of variables as 
specified by name at runtime would be 
desirable. Ultimately, we hope to see a 
Pascal system that is as convenient and easy 
to use as an interactive BASIC system.= 


The Pascal run time routines and the 
p-code to 8080 conversion program are 


listed in Appendix A, beginning on page 
203...BWL 
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“Tiny” Pascal in 8080 
Assembly Language 


The p-code interpreter, Pascal to 
p-code compiler, and p-code to 8080 
code translator described by Chung and 
Yuen in the September through 
November 1978 issues of BYTE 
magazine have been rewritten in 8080 
assembly language. In addition to pro- 
viding approximately two orders of 
magnitude increase in speed, the object 
versions run in far less memory. It is 
quite feasible to write and run “tiny” 
Pascal programs in a system havng 12 K 
bytes of programmable memory with 
these 8080 object code modules. The 
Pascal to p-code compiler occupies just 
under 8 K bytes of memory, while the 
p-code interpreter needs just under 4 K 
bytes including run time routines. 

The articles by Chung and Yuen 
are required reading for potential users 
of this package. Not only do they 
describe in detail what the package 
does, they supply documentation 
without which these assembly listings 
will be difficult, if not impossible to 
understand or modify. 

It should be noted that these three 
assembly language programs are essen- 
tially direct hand compilations of the 
high level programs written by Chung 
and Yuen. They could probably be 
reduced in length by 25 or 30 percent if 
rewritten with a view to such optimiza- 
tion. If this were done, a “tiny” Pascal 
development system including text 
editor could easily be fitted into a 12 K 
byte read only memory. 


Dr. B. Gregory Louis 


“Tiny” Pascal is a subset of the pro- 
gramming language Pascal. The book 
Pascal User Manual and Report, by 
Jensen and Wirth (Springer-Verlag, 1974) 
contains the full definition of standard 
Pascal. The present implementation is 
restricted in that there are no data types 
other than integer and array of integer, 
and parameters are passed by value on- 
ly. However, there are several extensions 
which have been made. 

In READ and WRITE statements, for- 
mat control characters have been pro- 
vided. If the variable name is followed 
by a numerical sign (#), the input or 
output string is taken as a decimal 
integer. If a percent sign (%) is used, the 
input or output string is taken as hexa- 
decimal. If no format control character 
follows a variable name or constant, a 
single ASCII charcter is written or read. 
In write statements, quoted strings of up 
to 79 characters may be used. 

In the body of a program, hexa- 
decimal constants are specified by 
preceding them with a percent sign. 
ASCII constants may be specified, but 
only the first character of a quoted 
string is used. Source code lines may not 
exceed 63 characters exclusive of line 
number. 

The compiler can accept input from 
the keyboard or from tape. If a line of 
input begins with the character $, the 
next five characters are taken as specify- 
ing the name of a file to be loaded from 
tape. (Such files may be prepared with 
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Table 7: Common I/O routines which the user must supply. 
Routines DEOUT, OSEQ, and MOVE are given in listing 5. 


WHO 
WH1 
BLK1 


get character from console to register A. 
send character to console from register A, 
send blank to console. 


DEOUT (or DEOUT1) display hexadecimal contents of DE. 
OSEQ 


send contents of memory to console, 
stopping at the next carriage return. 
The pointer is the HL register pair and 
the carriage return is not sent. Return 
with the HL register pair pointing at 
the carriage return. 

copy memory from location pointed 
by HL to a location pointed by DE, 
incrementing all three register pairs 
(BC, DE, HL) after each transfer. 
Repeat until BC register pair contains 
zero. 

send a carriage return and line feed 
to the console. 

send hexadecimal FF to the console. 


an editor.) The rest of the input line is 
then ignored. If the file thus loaded does 
not contain either the end of the pro- 
gram or another line beginning with §, 
the compiler waits for further input from 
the keyboard. This is signalled by the 
appearance of a $ at the beginning of a 
new line. If the user wishes to continue 
input via the keyboard, the $ is erased 
with the rub out key; otherwise another 
file name is typed. 

The words MEM and CALL are reserv- 
ed and provide the user with access to 
memory. MEM is an array name that 
refers to memory space. For example, 
the statement MEM[0}: = MEM[1] would 
cause the contents of location 1 to be 
written into location 0. CALL is a way of 
transferring control to a machine 
language subroutine. The form is 
CALL(ADDRESS). 

CASE statements may be concluded 
with ELSE. In any instance of possible 
ambiguity, ELSE is always taken as refer- 
ring to the most recent CASE or IF state- 
ment encountered. 

In this implementation of “tiny” 
Pascal, there are several changes with 
respect to Chung and Yuen’s version. 

Comments in “tiny” Pascal source 
code are begun and ended with right 
braces instead of left and right braces so 
it is teletypewriter compatible. 

The single quote may be included in a 
quoted string by the usual trick of 
doubling, thus: 


‘This is how it’’s done’. 


Hexadecimal constants may be one to 
four characters long, and may be 
preceded by a minus sign if desired. 

To increase flexibility, single 
character input is not echoed to the con- 


sole. Although this necessitates an 
explicit WRITE statement in many ap- 
plications, it allows for character map- 
ping and for redefinition of control 
characters. 

The assembly source code for the 
three modules is virtually devoid of 
comments, since the high level source 
already published is intended to act as 
documentation. Accordingly, the labels 
in the assembly language programs have 
been chosen to key to the previously 
published listings. However, reference is 
made to several I/O and utility routines 
external to the programs. These com- 
mon utilities are already available in 
most systems. They must be provided by 
the user, and they perform the functions 
shown in table 1. 

Addresses 5966 through 5A15 of the 
compiler implement a file input from 
mass storage. The contents of BOFP are 
used as the load address for the file, 
which is assumed to be in the form of a 
SYS/8 (or Processor Technology SP-1, or 
Poly 88) listing. That is, the file is broken 
into lines consisting of a length byte, a 4 
digit line number, a space, and the text, 
ending with a carriage return. 

Similarly, hexadecimal locations 6D7E 
and the following are used to implement 
the chain to the interpreter or translator. 

One other thing to note in the com- 
piler is that if a file has been input and 
the end of the file (length byte of 1) is 
encountered before the program ends, 
keyboard input resumes, but a $ 
keystroke is simulated. The code that 
does this is in locations 5921 to 5928. 
This code assumes a double buffered, 
interrupt driven keyboard input routine; 
for use with a polled keyboard, it would 
need modification. 

These programs are relocatable in 
that all address calculations employ 
three byte instructions. For the inter- 
preter, the move address space is hexa- 
decimal 5000 to 5ECF, and the block of 
executable code to be scanned by the 
relocator runs from hexadecimal 5529 to 
5ECF. The compiler move address space 
is hexadecimal 4FOO to 6DC5 and 
executable code runs from hexadecimal 
57BA to 6DC5. The translator runs from 
hexadecimal 5A00 to 68FD with code 
starting at hexadecimal 6130. The run 
time routines occupy hexadecimal 6946 
on. In addition, there are two jump 
instructions at the beginning of the inter- 
preter, four at the beginning of the com- 
piler, and one each at the start of the 
translator and run time routines that 
have to be changed on relocation. 

A sample compilation in ‘‘tiny” Pascal 


appears in listing 1 (Appendix B, page 
221). The program is a simple p-code 
lister that displays p-codes a screenful 
at a time until control X is typed. An 
editor listing appears first, followed by 
the p-code compilation and translation. 
Then there is a dump of the resulting 
source code, and finally a disassembly 
listing. 

Listings, 2, 3, 4, and 5 (pages 235 thru 


286) are the run time routines, Pascal to 
p-code compiler, and the p-code inter- 
preter. These programs are copyright 
1979 by B Gregory Louis, Ph. D. They 
may be used or copied for noncommer- 
cial purposes only. The author accepts 
no liability for any damage resulting 
from the use or malfunction of these 
programs and no warranty express or 
implied applies to any of this material. m 
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Applications 
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WADUZITDO: How to Write 


a Language in 256 Words or Less 


Every computer owner likes to show his 
or her microcomputer to friends. The first 
question the friends usually ask is, “What 
does it do?”’ The software system presented 
here demonstrates what a computer can do 
in a manner simple enough for almost any- 
one to understand. Even if you have a larger, 
more capable system, it is often worth- 
while to be able to demonstrate something 
that can be accomplished on a smaller scale. 
WADUZITDO is small enough to run on 
almost. any microcomputer yet it allows 
even the novice user to make the computer 
“do something.” 

WADUZITDO is a complete high level 
language processor that fits in less than 
256 bytes on either a 6800 or 8080 based 
system. The only other requirement is some 
kind of terminal. The system includes a 
text editor to allow a program to be entered 
and modified, and an interpreter to exe- 
cute the program. The only external rou- 
tines needed are single character input and 
single character output such as those pro- 
vided by most system monitors. 

The object of WADUZITDO is to run 
simple conversational programs. There are 
just five statement types, roughly derived 
from the PILOT language. To keep it small 
only the most essential capabilities are 
available. This also makes programming very 
easy. In fact, only a few minutes after my 
unsuspecting spouse had asked, ‘What does 
it do?’’, she had written the interactive 
dialogue program in listing 1 to help me 
make out a list of acceptable birthday gifts! 

Programming in WADUZITDO is straight- 
forward and uncomplicated. For example, 
to direct the computer to display a line of 
text on the terminal you use the type state- 
ment. The following example shows the for- 
mat of the type statement. 


T:WHAT COULD BE EASIER 
THAN THIS? 


The T is the operation code for type. A 


Larry Kheriaty 


colon always follows the operation code. 
The text after the colon is displayed exactly 
as shown. 

The accept statement allows the program 
to receive one input character from the 
terminal keyboard. Normally it is used after 
a type that asks for a response. For example: 


T:CAN YOU TELL ME WHAT 2 + 3 
EQUALS? 


A: 


The accept statement is just the A opera- 
tion code followed by a colon. When it is en- 
countered execution pauses until the user 
keys in any single character. Then the input 
Character is saved internally for use in sub- 
sequent match statements. 

The match statement is used to test the 
character entered by the user on the previ- 
ous accept. Match is coded as an M (the op- 
eration code), followed by a colon and one 
character. The character in the statement is 
compared to the last character entered by 
the user. The result of the comparison is re- 
corded internally in the match flag: Y if the 
match is equal, N if it is not equal. 

Once set the match flag can be used to 
conditionally execute or skip any subse- 
quent statement. This is done by placing 
either a Y (yes) or N (no) immediately 
before any operation code. If the Y or 
N is the same as the match flag the state- 
ment is executed, otherwise it is skipped. 
An elaboration of the previous example 
illustrates the use of match. 


T:WHAT IS 2 + 3? 
A: 

M:5 

YT:FIVE, RIGHT. 


NT:NO, THE ANSWER IS 5. 
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Listing 1: WADUZITDO 
program written by a non- 
computer person. Notice 
the last line of the pro- 
gram, the J:0 command. 
This instruction will make 
the program execution 
jump back to the accept 
statement to try another 
input. 


Listing 2: A NIM playing 
program. This program 
demonstrates the jumping 
capability of the language. 


TIT IS BIRTHDAY LIST TIME. 

T=THE PURPOSE OF THIS PROGRAM IS TO 
TSDETERMINE WHAT GIFTS ARE ACCEPTABLE. 
T:TYPE THE CODE LETTER ASSOCIATED WITH 
T:THE POTENTIAL GIFT IDEA... 


Ts A HOME APPLIANCE 

T: B SOMETHING BORING 

Ts C ITEM OF CLOTHING 

Ts D SOMETHING DECORATIVE FOR THE HOUSE 
T: G GARBAGE DISPOSAL 

Ts M MY OWN COMPUTER 

As 

M:A 

YT:UNACCEPTABLE. 

M:B 

YTSNO WAY 

M:C 

YTSACCEPTABLE IF NOT UGLY. 
M=D 


YT:OKAY IF CHOSEN WITH GOOD TASTE 
YT:SO AS NOT TO BE TACKY. 
M:G 


MiM 

YT: THE LAST THING IN THE WORLD 
YT:I WOULD EVER WANT. 

NMSA 

NM:B 

NM:C 

NM:D 

NM:G 

NTsCANT YOU READ FOOLr THAT IS NOT 
NTSONE OF THE CHOICES. 

NTS TRY ArBreCreDeG OR M 

J:g 


T:LETS PLAY NIM WITH 7 PEBBLES. 
T:WE TAKE TURNS TAKING 1ez OR 3. 
T THE LAST ONE TO TAKE ONE LOSES. 
TSTHERE ARE 7+ HOW MANY ? 

A: 


YJSs6 

T:YOU CAN TAKE ONLY Lede OR 3. 

J3o 

*#T: THAT LEAVES 46+ I TAKE 1 LEAVING 5. 
T?HOW MANY ? 

As 


YJi23 

TsYOU MUST TAKE 12 OR 3. 

Ji 

*#TSTHAT LEAVES Sr I TAKE 1 LEAVING 4. 
TSHOW MANY ? 

As 


YJ21 

T?YOU MUST TAKE 1*2 OR 3 ONLY . 

Ji 

*#T> THAT LEAVES THE LAST ONE. 

TI TAKE IT ... YOU WIN. 

Js 

*#T: THAT LEAVES Zr I TAKE 1 LEAVING 1. 
Ji3 

*#TSTHAT LEAVES 3+ I TAKE 2 LEAVING 1. 
JZ 

#TTHAT LEAVES 47 I TAKE 3 LEAVING 1. 
*TSHOW MANY ? 

A: 

Msi 

NT: YOU HAVE NO CHOICE BUT TO TAKE 1. 
NTSHOW MANY ? 

NJ: 

T:YOU JUST TOOK THE LAST ONE ... I WIN. 
*#T:TO PLAY AGAIN PUSH THE DOLLAR SIGN. 
S$: 


Normally statements are executed se- 
quentially. The jump statement is used to 
alter the normal sequence. The format of the 
jump statement is J, followed by a colon, 
and a number from zero to nine. The state- 
ment J:0 causes a branch back to the last 
accept statement executed. Execution 
resumes from that statement. The J:0 
Statement can be used to allow the user to 
reanswer a previous question. For example: 


T:HOW MANY FEET IN A YARD? 
A: 

M:3 

YT:RIGHT. 

NT:WRONG STUPID, TRY AGAIN. 
NJ:0 


The second form of the jump makes use of 
program markers. A program marker is an 
asterisk, *, preceding any statement. The 
Statement J:n, where n is a number from 
1 to 9, causes a branch to the nth program 
marker forward from the jump. This form of 
the jump is shown in the sample program in 
listing 2 which plays NIM. 

The last type of statement is stop. This 
Statement merely terminates execution of 
the program and returns control to the pro- 
gram editor. The format of the stop state- 
ment is S: 

To increase the versatility of the language 
the S: statement can, at the user’s option, 
be made to call a user written machine 
language subroutine from within the 
WADUZITDO program. To do this requires 
a one statement modification to the system 
which is detailed below. If you choose to 
make this modification you can consider 
S: to be the operation code for subroutine 
rather than stop. The format of the sub- 
routine statement is S:x where x is any 
single character which serves as a parameter 
to the user written program. The value x will 
be stored in register A in both the 6800 and 
8080 version. It can be used to select dif- 
ferent functions to be performed by the 
program. 

During execution any statement which 
does not fit the syntax of one of the five 
statement types is printed in its entirety, 
then execution resumes normally with the 
next statement. Table 1 summarizes the 
WADUZITDO instruction set. 

When WADUZITDO is first entered con- 
trol is passed to the program editor which 
is used to enter or alter source programs. 
Also an internal program pointer, called 
LOC, is automatically set to the beginning of 


the source area. As each statement is entered 
on the keyboard the characters are stored 
and the internal pointer advances. Typing 
errors may be corrected by entering a 
backspace and the correct character. To 
reset the pointer to the start of the program 
enter a backslash, \. To display the next line 
of the program enter the mirror image of the 
reset slash, /. To replace aline, display each 
line up to but not including the one to be 
replaced, then enter the new line. The new 
line should be no longer than the line it 
replaces. If it is longer, the next line of text 
is also overwritten. End the replacement line 
with a percent key rather than a carriage 
return. The % causes null characters to be 
stored as filler up to the start of the next 
line. To begin execution of the program 
enter a dollar sign, $. (The editing com- 
mands are summarized in table 2.) 

If you already have a good text editor in 
your system it may be used instead of 
the one included. Each statement is variable 
length, terminated by a carriage return 
character. All other control characters 
between statements are ignored. 

Complete 6800 and 8080 assembly list- 
ings containing source and object code are 
included to simplify implementation on 
your system. The 6800 version in listing 3 
uses the MIKBUG monitor; the 8080 version 
in listing 4 uses the SOLOS/CUTER moni- 
tor. If you have one of these two system 
monitors you need not modify the program 
at all. 

The entry point to the system Is at loca- 
tion zero. Upon entry the stack pointer is 
assumed set to address some scratchpad 
memory area large enough to accommodate 
a few levels of call. In MIKBUG or SOLOS/ 
CUTER, as with most system monitors, this 
is handled automatically by the GO or 
EXEC command. The 2 byte value stored in 
LOC (hexadecimal 100) must point to the 
place where the user program is to be 
stored. In the assembly listings note that this 
value Is shown as hexadecimal 0106, the first 
location not occupied by the system. 

If you don’t have one of the above 
monitors you must supply character input 
and character output routines and change 
the references to IN and OUT to address 
these routines. In the listings you will find 
one reference to IN and one to OUT which 
needs to be changed. If your terminal 
requires a delay after each carriage return 
you can set the number of null padding 
characters by a one byte modification to 
the statement labeled PLF. 

Any of the special characters used by the 
text editor ($, %, \, /, bs) can be easily 
changed to another more convenient charac- 
ter on your keyboard. 

As shown in the assembly listings the S: 


STATEMENT FORMAT WHAT IT DOES 


— 2 2 
— 
If n=1 thru 9 jump to nth program 


jump Jin 
marker forward from the J. 
stop Terminate program and return to 
text editor. 
subroutine Call user machine language program 
(requires modification). 
conditionals May precede any operation code. 
Y Execute only if match flag is Y. 
N Execute only if match flag is N. 


as a jump destination. 
Table 1: Program instructions for the WADUZITDO language. 


Move edit pointer to program start. 


Display next line of program. 


input one character from the 
terminal keyboard. 


Compare x to last input character 
and set match flag to Y if equal, 
N if not equal. 


If n=O jump to last accept. 


ame ee De 
el we 
Pad inserted line with nulls. 
cr 


08 or 5F Backspace to correct typing error. 
a. 


Table 2: Editing characters used by the built-in text editor. 


Character stored in program and 
edit pointer advances. 


statement halts execution by branching to 
the text editor. If you don’t modify this you 
can treat it as astop statement. To use it aga 
subroutine call you must modify the JMP 
SUB instruction to be a JSR or CALL 
(depending on the system) to the appropri- 
ate address. Upon entry to the subroutine 
the index register (6800) or HL register 
pair (8080) contains the location of the 
next program statement and should be saved 
and restored before returning from the 
subroutine. In the 8080 version the DE 
register pair should also be saved. Register A 
will contain the one character parameter, x, 
of the S:x. Its use is totally up to the 
subroutine. 

The system has been organized so that 
the six bytes of changeable data are iso- 
lated from the read only portion. This means 
the rest of the 256 byte system could be 


Text continued after listings on page 103 
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Figure 1: Absolute loader format representation of the 6800 WADUZITDO program of listing 3. 


0000000000 0 
00000000001 
01234567 8 9 0 
000000000 0 
000000000 0 
0134679 ACD 
09 2AZ2B3C5E 


ooo 


No © 
woe 


oo 


000 00 
00000 1 
5 6 8 9 0 


* WADUZITDO 
* 6398 VERSION BY LARRY KHERIATY 
# 
# MIKBUG SUBROUTINES USED 
IN EQU SELAC INPUT FROM KEYBOARD TO ACCA 
OUT EQU $E1D1 OUTPUT FROM ACCA TO TERMINAL 
ORG $3098 
SUB EQU $0806 USER SUBR START (CAN BE MODIFIED) 


# ENTER SYSTEM AT LOCATION ® WITH STACK POINTER PRESET 
# TD SCRATCH PAD RAM ENOUGH FOR A FEW LEVELS OF CALL 


6006 FE 9196 START LDX LOC SOURCE PROGRAM AREA START 
9663 38D 45 EGET BSR JIN ACCEPT SOURCE CHAR 
9665 81 SC CMP A #$5C V2? 
0997 27 F7 BEQ START YES*e BACK UP TO PROGRAM START 
8669 81 24 CMP A #$24 $ ? 
G9G8B 27 45 BEQ EXEC YESr GO EXECUTE THE PROGRAM 
t 
O98D 31 98 CMP A #$68 BS ? 
OOBF 24 G3 BNE DIS NO 
611 89 DEX YES BACK UP ONE IN SOURCE 
6612 26 EF BRA EGET LOOP BACK 
* PROCESS DISPLAY OF NEXT LINE 
OG814 81 2F DIS CMP A #$2F / ? 
6816 2&4 67 BNE PAD NO 
$618 BD @8D5 JSR PRT GO PRINT TO CR 
661B 8D 21 EPLF BSR PLF PRINT LINE FEED AND NULLS 
@81D 26 E4 BRA EGET LOOP 
+ DO LINE REPLACEMENT- PAD TO END OF STMT WITH NULLS 
OB1F 81 25 PAD CMP A #$25 4% ? 
0821 26 12 BNE CHAR NO 
6623 86 OD LDA A #$9D CR 
8625 8D 27 BSR JOUT PRINT IT 
8627 8&4 OD LDA A #$06D CR 
6629 C& 46 LDA B #$48 COUNT OF 64 
O62B Al BB PADL CMP A BrX AT CR YET ? 
62D 27 8& BEQ THAR YES QUIT PADDING 
OBZ2F bF BO CLR OX PAD WITH NULL 
6831 68 INX INCR LOC PTR 
8932 SA DEC B DECREMENT SAFETY COUNTER 
0833 26 Fb BNE PADL LOOP TILL CR OR 64 NULLS 
# STORE ENTERED SOURCE CHAR IN PROGRAM 
8635 A7 88 CHAR STA, A OrXx CHAR TO SOURCE LOC 
8837 88 INX MOVE LOC PTR UP ONE 
6638 81 OD CMP A #$6D IS IT A CR ? 
883A 27 DF BEQ EPLF YES» ECHO A LINE FEED 
8630 26 5 BRA EGET NOr GET ANOTHER CHAR 
* SUBROUTINE TO PRINT LINE FEED TO TERMINAL 
BB3E C& BB PLF LDA B #$66 NUMBER OF NULLS TO PRINT 
8648 AF PLFL CLR A NULL 
9941 8D OB BSR JOUT WRITE A NULL 
$643 SA DEC B DECREMENT COUNTER 
OB44 ZA FA BPL PLFL LOOP TILL ENOUGH NULLS 
OB44 34 BA LDA A #$6A LINEFFEED 
B8943 26 64 BRA JOUT 
* NEXT FEW LINES MUST BE ALTERED IF YOU DONT USE MIKBUG 
BB4A BD E1AC JIN JSR IN CALL CHAR INPUT ROUTINE 
884D 39 RTS RETURN TO CALLER 
OO4E BD E1D1 JOUT JSR QUT PALL CHARACTER OUTPUT ROUTINE 
8651 39 RTS RETURN TD CALLER 
* 
* COME HERE TO BEGIN EXECUTION DF THE SOURCE PROGRAM 
6952 FE 86168 EXEC LDX LOC STARTING LOC OF PROGRAM 
8655 B89 DEX LESS ONE 
68954 68 LOOPI INX ADR OF NEXT PGM BYTE 
6657 A& OB LOOP LDA A Bex NEXT PGM BYTE 
8859 81 ZA CMP A #$Z2A # CHAR ? 
O6835B 2F F9 BLE LOOPI YES(OR IGNOREABLE CONT CHAR) 
# 
* PROCESS Y OR N FLAG TESTS 
665D 81 59 CMP A #$59 Y ? 
BOSF 27 G4 BEN TFLG YES 
0041 31 4E CMP A #$4E N ? 
8943 26 OF BNE XA BRANCH IF NOT A FLAG TEST 
* 
9645 63 TFLG INX STEP LOC OVER Y OR N 
9866 BL 6185 CMP A FLG COMPARE TO CURRENT MATCH FLAG 
86469 27 EC BEQ LOOP ITS EQUAL SO EXECUTE THE STMT 
# 
* ITS A FLAG FAILUREr SKIP OVER THE STMT 
886B 88 SKIP INX STEP LOC PTR 
@B84C AL BB LDA A BrX NEXT CHAR IN PGM 


Listing 3: 6800 version of the WADUZITDO language. A dump of the MIK- 
BUG format of WADUZITDO (shown in listing 3a, page 102) can be used for 
manual entry of the program. This version was run locally at BYTE using a 
SwTPC 6800. 


81808 
B1GZ 
8164 
B1iBS 


0184 
D668 
BO 
08 


PR 
at 


* 
% 
* 
% 


Figure 2: Absolute loader format representation of the 8080 WADUZITDO program of listing 4. 


CMP A #$9D 


BNE 
BRA 


SKIP 
LOOPI 


TO END OF STMT ? 
NOT YETr SO LOOP 
AT NEXT STMTe GO DO IT 


# PROCESS ACCEPT STATEMENT 
XA CMP A #$41 


BNE 
STX 
BSR 
STA 
INX 
PCR LDA 
BSR 
BSR 
BRA 


XM 

LST 
JIN 
CHR 


#$9D 
JOUT 
PLF 
LOOPI 


* PROCESS MATCH STMT 
XM CMP A #$4D 


BNE 
INX 
INX 
LDA 
LDA 
CMP 
BEQ 
LDA 
MX STA 
BRA 


XJ 


Aa ? 

NO 

YESe SAVE LOC OF LAST ACCEPT 
ACCEPT ONE CHAR FROM KYBD 
SAVE IT 

MOVE OVER A 

CR 

PRINT IT 

PRINT LINE FEED 

STEP OVER = AND GO ON 


M ? 

NO 

STEP OVER M 

STEP OVER 3 

GET MATCH CHAR 

ASSUME Y 

COMP MATCH CHAR TO INPUT CHAR 
BRANCH IF IT MATCHESrFLG=Y 
RESULT IS N 

SET MATCH FLAG TO Y OR N 

STEP OVER MATCH CHAR AND GO ON 


% PROCESS JUMP STATEMENT 
XJ CMP A #$4A 


BNE 


XS 


LDA B ZrX 


AND B #$8F 
JF 

LST 
LOOP 


BNE 
LDX 
BRA 


J ? 
NO 
DESTINATION 


CLEAR ZONE 

ITS A JUMF FORWARD 

ZERO... JUMP BACK TO LAST ACLEPT 
CONTINUE FROM THERE 


SKIP FORWARD UNTIL PASS N #-MARKERS ( N IS IN ACCB ) 


INX 


LDA A OrXx 
CMP A #$2A 
JF 


BNE 
DEC B 
BNE 
BRA 


PROCESS STOP OR 


JF 
LOOPI 


CMP A #$53 
XT 


BNE 


NEXT STMT MAY BE MADE TO BE A 


JMP 
BRA 


SUB 
LOOP 


STEP PGM LOC 

NEXT CHAR 

#-MARKER ? 

NO» KEEP LOOPING 

FOUND ONE? COUNT IT 

LOOP IF NEED TO FIND MORE 
DESTINATION FOUND? GO EXECUTE 


SUBROUTINE STATEMENT 


> 8 

NO 

STEP OVER S$ 

STEP OVER : 

PARAMETER TO REG A 

STEP OVER PARAMETER 

JSR TO USER SUBR 

GD TO USER SUBR (OR TO EDITOR) 
GO ON UPON RETURN FROM USER SUBR 


PROCESS TYPE STATMENT AND SYNTAX ERRORS 
CMP A #$54 
TE 


BNE 
INX 
INX 
BSR 
JSR 
BRA 


T ? 

NOr ITS AN ERROR 
YES» STEP OVER T 
STEP OVER 3 
PRINT UP TO CR 
PRINT LNE FEED 
DONE WITH T 


SUBR TO PRINT UP TO NEXT CR 
T LDA B #$46 
TA LDA A BX 


DEC B 
BEQ 
JSR 


INX 


PRTB 
JOUT 
LDA A OrX 


CMP A #$6D 
PRTA 


BNE 
TB RTS 


COUNT OF 64 

NEXT CHAR 

DECREMENT SAFETY COUNTER 
EXIT IF OVER 64 TILL CR 
PRINT IT 

RELOAD CHAR TO ACCA 

STEP LOC PTR 

CR ? 

NOT CRe LOOP 

DONE+ RETURN 


ABOVE IS END OF READ ONLY PORTION OF THE PROGRAM 


THE FOLLOWING IS CHANGEABLE DATA 


ORG 
C FDB 
T FDB 


CHR FCB 


G FCB 


END 


$196 
$9166 


8 
8 
1) 


MOVE TO START OF DATA AREA 
ADDR OF SOURCE PROGRAM AREA 
PLACE TO SAVE LOC OF LAST A: 
PLACE TO SAVE LAST INPUT CHAR 
PLACE TO SAVE MATCH FLAG 


cn) 
on) 
NOS 
woo 
5 
noe 
NOS 
a he) 
ooe 
wooed 


0 0 
1 1 
0 1 


oo 


oo°oco 
Oo=— O&O 
NWOS 
Whoo 
WAS S 
WwrAco 
hoo & 
AF>OS 


0 
0 
F 
6 


LOCO 
uoso 


00 0 0000000 0 
00000000001 1 
01 2 4567890 1 


101 


Listing 4: 8080 version of the WADUZITDO language. A hexadecimal dump 
(shown in listing 4a) is provided for manual entry. This version was run local- 


ly at BYTE using a SOL-20. 
# WADUZITDO 
#* 8888 VERSION BY LARRY KHERIATY 
% 
it SOLOGS/CUTER SUBROUTINES USED 
IN EQu OCO1FH INPUT FROM KEYBOARD TO A-REG 
OUT EQU BCBLIH OUTPUT FROM B-REG TO TERMINAL 
* 
ORG BOBOH 
SVB EQU OBBO6H USER SUBR START (CAN BE MODIFIED) 


BD98 
8883 
8906 
6868 


O999B 
886D 


8819 
8812 
B8B15 
0816 


8B19 
OO1B 
OG1E 
6621 


O824 
8826 
8829 
882B 
882C 
OO2F 
8631 
68632 
8935 
6937 
8938 
0939 


683C 
683D 
9O3E 
BB48 
9843 


OB46 
8B49 
BB4C 
0840 
98656 
OO51 


BB52 | 


9655 
BBS4 
8957 
9853 
BBSA 


885D 
OO5F 
BH42 
BOS54 


8647 
B43 
88459 


BB4C 
686D 
OBE 
9679 
6973 


O674 
8678 


102 


GBO1 
4409 
Si 

BHO0 


24 
5208 


OF 
1988 


93898 
2F 
2488 


DF OO 
93098 


25 
3088 
6D 


4068 
46 


31288 
oD 


3168 


OD 
FOOD 
0:308 


1FCS 
4406 


1908 


9091 


3788 


9D 
45088 
594589 


41 
BEOS 


# ENTER SYSTEM AT LOCATION 6 WITH STACK POINTER PRESET 


# TO SCRATCH PAD RAM ENOUGH FOR A FEW LEVELS OF CALL 


% 


START LHLD LOC SOURCE PROGRAM AREA START 
EGET CALL JIN ACCEPT SOURCE CHAR 
CPI SCH \ ? 
JZ START YES» BACK UP TO PROGRAM START 
t 
CPI 24H $ ? 
JZ EXEL YES» GO EXECUTE THE PROGRAM 
t 
CPI SFH BS ? 
JNZ DIS NO 
DCX H YES» BACK UP ONE IN SOURCE 
JMP EGET LOOP BACK 
* 
# PROCESS DISPLAY OF NEXT LINE 
DIS CPI 2FH / ? 
JNZ PAD NO 
CALL PRT GO PRINT TO CR 
JMP EGET LOOP 
+ 
# DO LINE REPLACEMENT- PAD TO END OF STMT WITH NULLS 
PAD CPI 25H 4 ? 
JNZ CHAR NO 
MVI Be O@DH CR 
MOV ArB CR TO A ALSO 
CALL JOUT PRINT IT 
MVI Cr40H COUNT OF 44 
PADL CMP 4 AT CR YET ? 
JZ CHAR YES QUIT PADDING 
MVI M?18GH PAD WITH NULL 
INX H INCR LOC PTR 
DCR Cc DECREMENT SAFETY COUNTER 
JNZ PADL LOOP TILL CR OR 64 NULLS 
# 
# STORE ENTERED SOURCE CHAR IN PROGRAM 
CHAR MOV MrA CHAR TO SOURCE LOC 
INX H MOVE LOC PTR UP ONE 
CPI ODH IS IT A CR ? 
CZ PLF YES» ECHO A LINE FEED 
JMP EGET NOr GET ANOTHER CHAR 
* 
# CHANGE NEXT FEW LINES IF YOU DONT USE SOLOS/CUTER 
JIN CALL IN CALL CHAR INPUT ROUTINE 
JZ JIN TRY AGAIN IF NO CHAR YET THERE 
MOV BrA PREPARE TO ECHO THE CHAR 
JOUT CALL OUT CALL CHARACTER OUTPUT ROUTINE 
MOV ArB RESTORE JIN CHAR TO A 
RET RETURN TO CALLER 
t 
# COME HERE TO BEGIN EXECUTION OF THE SOURKE FROGKAM 
* 
EXEC LHLD LOL STARTING Luk WF PRUGRAM 
Dix 3} LES% ONE 
LUOPI INX H ADR OF NEXT FGM GYTE 
LOOP MOV A»eM NEXT PGM BYTE 
CPI <BH * CHAR % (NOTE 2BH It. "HH! 1) 
JM LOODPI YES (OR IGNOREABLE CONT CHAR) 
+ 
# PROIESS Y OR N FLAG TESTS 
CPI 59H Y 7 
JZ TFLG YES 
CPI 4EH N 7 
JINZ XA BRANCH IF NOT A FLAG TEST 
% 
TFLG INX H STEP LOC OVER Y OR N 
IMP D COMPARE TO CURRENT MATCH FLAG 
JZ LOOP ITS EQUAL SD EXECUTE THE STMT 
% 
# ITS A FLAG FAILUREe SKIP OVER THE STMT 
SKIP INX H STEP LOC PTR 
MOV ArM NEXT CHAR IN PGM 
CFI DH TO END OF STMT 7 
JNZ SKIP NOT YETe SO LOOP 
JIMP LOOPI AT NEXT STMT» GO DO IT 
* 
# PROCESS ACCEPT STATEMENT 
XA CPI 41H a 7 
JNZ XM NO 


SII IGBASFEAIBARDASSISCATFI81IA42745R1A82645A 
S$1139010030320EF812F2607BDAGDSSD2120E4311F 
$1139020252612860D8D27869DC 64941 AN27T946F 52 
S11380300098 SA2 6F 6A7009881AD27DF2ACSC4A94SA 
$1130940 4F8DOBSA2AFAR 460A200 4BDEIAC39BNEI 72 
$1130050D139FEQ9180090RA 6008 1 2AQFFIRISIATAR 
$11340600 481 4E260F 08B1010527ECARA694810D75 
S113007826F 920E281 41241 1FFAIB2RDCDA791A44A0 
S113003008869D8DC I8DB720CDB 1 40261 2O8ARABSE 
S11380809000C 659B101042702C64EF 701 0S5S20B781FS 
$11380A04A261 TE6BAAC ANF 260SFEO1O220A908A667 
$11300B0008 12A26F 9S5SA2 6F 6209C8 1 S3260ABRBK2C 
S113880C8A600087EG@O0208F8 1 54260208088D05B2 
S11388DOBDBAZE2AARAC 464BA 608542 7TOABDAG4EA697 
S1GAQGEOO808810D26F 1392F 


Listing 3a: MIKBUG format for the 6800 
version of WADUZITDO. 


B@ABB2AGAG1CD4A60AF ESCCADAAAF E2 4CAS200 
O01 GF ESFC21 9BB2BCIAIBOFESFC22 4AACDDF 
8820080C30300F E25C23C80060D7KRCD4ADAAGE 
9030 40BEC 430903 68802390C231007723FE0D 
00 40CCFOGOC30300CDI FCOCA460047CD19CA 
AASBH7BCI2AGAG1ISB237TEFEQBFAS6QBFESICA 
OS6SETAGFE4EC2]7 6ANB23BACAS7TOG237EF EOD 
Q@B7OC26COGC3SEBOF E41 C28E08220201CD46 
ASBOGOSF2IGEADCDADBOCDFOAGC3S6QGF EAN 
8898C2A10023237E1 6S9BBCAIEAB! 64EC356 
AVACOOF E 4AC2C38823237EE SAF 47TC2B5032A 
AQBAG201C035780237EF E2AC2B50005C2B500 
@6COC35688FES3C2D02808023237E23C38000C3 
BBDOSTOOFES 4C2D9BB2323CNDFABC3ISTAAGBE 
BBE 48 460DCAF BOOCD 4DOO7ES3FEGDC2ZE1 00 
OOF GBEGOB600C D4DEOODF2F 2088 68AC3 4009 
81000601800000000 


Listing 4a: Dump of the 8080 version of 
WADUZITDO. The format consists of 4 
character hexadecimal address and 16 hexa- 
decimally coded bytes of information. There 
is no checksum computed for any of the 
information. 


PAPERBYTE® Bar Codes for 
WADUZITDO 


In figure 1 and figure 2, we provide 
a PAPERBYTE® bar code represen- 
tation for the WADUZITDO programs 
of listing 3 and listing 4. These bar 
code representations were created in 


the absolute loader format docu- 
mented in detail in the PAPERBYTE 
book, Bar Code Loader, written by 
Ken Budnick of Micro-Scan Asso- 
ciates, and available for $2 at local 
computer stores or by mail (add 3.60 
postage and handling) from BYTE 
Books, 70 Main St, Peterborough, 
NH 03458. 


Text continued from page 99 


placed in read only memory. It would fit 
in a single 1 702A EROM chip. 

It is easy to see how this language could 
be used to write a question and answer con- 
versation using multiple choice or true, 
false answers. It may not be so obvious that 
more complex logic is possible. The example 
in listing 2 is a computer versus user NIM 
game which demonstrates a way this can 
be done. 

Although WADUZITDO is not the 
ultimate answer to personal computing, it 
is something that almost anyone can have 
some fun with, and it definitely squeezes the 
most out of 256 bytes of memory. 


A Pascal WADUZITDO 


Notes by Ray Cote 
Program by Larry Kheriaty 


Along with the assembly language ver- 
sions of WADUZITDO, Larry Kheriaty sent 
us the Pascal version shown in listing 5. The 
program is basically self-documenting and 
very easy to translate into assembly level 
programs for any particular processor. The 
program is indented to show logical relation- 
ships between related areas of text. This is 
sometimes known as prettyprinting. 

The first four lines of the program are 
definition lines for the main program. In 
Pascal, all variables must be defined com- 
pletely at the start of the section in which 
they are used. “Completely’’ means name and 
data type. This is a great help since all var- 
jables must be explicitly defined. You can 
easily check to see what type of variable is 
being used. 

WADUZITDO uses two types of var- 
iables: integer and character. There is also 
a definition for constants (CONST). CONST 
informs the compiler that:the value being 
assigned to this variable will not change. 
Integer variables will only take on whole 
number values. 

The type character (CHAR) means that 
the variables will take on the values of 
ASCII characters, including all letters, num- 
bers and special symbols. 

The last line of the definition section de- 
fines a variable PROG as an array of charac- 
ters. This definition also states that the rel- 
ative base address of the array will be unity 
and the variable PZ will be used to specify 
locations within the array. 

After defining our variables we are ready 
to start the first executable part of the pro- 
gram. In Pascal, the logical parts of the pro- 


Listing 4, continued: 


8678 
OO7E 
9881 
9882 
6983 
8885 
8988 
O63B 


OOSE 
8896 
8893 
8894 
8895 
8896 
6898 
8899 
889C 
OBIE 


BBA1 
8BA3 
BBAS 
88A7 
BBHAB 
BBAI 
OBAB 
BBAC 
OBAF 
O88B2 


BOBS 
BBB4 
B8OB7 
OBI 
BBB 
BOSBD 
BBLS 


OBL 3 
BBLS 
B88 
B8IL9 
OBCA 
O8I2B 


BBC 
OOF 


B8D2 
8O6D4 
86D7 
98D8 
OOD9 
8B0C 


OODF 
OOE1 
OGEZ 
BG8E3 
BVES 
BBE9 
BSEA 
O8EB 
88ED 


OOFO 
OOF2 
OOFA4 
OOF7 
O6F8 
OOFB 
OOFD 


8168 
8162 


8104 
8185 


BI O8 
8201 
5708 


2A 
B00 


BSB 
S488 


33 
D208 


BIOO 
57698 


24 
D700 


DF OOS 
5738 


B01 
OBBB 


08 
tT) 


us 


% 

# 
PLF 
PLFL 


“ek & * 


ABOVE IS END OF READ ONLY PORTION OF THE PROGRAM 


THE FOLLOWING IS CHANGEABLE DATA 


MOVE TO START OF DATA AREA 
ADDR OF SOURCE PROGRAM AREA 
PLACE TO SAVE LOC OF LAST A: 


THE NEXT TWO BYTES ARE ONLY FOR 6808 COMPATIBILITY 


ORG 8199H 
DW B196H 
DW BOOOH 
DB OOH 
DB OOH 
END 


UNUSED? LAST INPUT CHAR IN EREG 
UNUSED» MATCH-FLAG IN DREG 


SHLD LST YESe SAVE LOC OF LAST ACCEPT 

CALL JIN ACCEPT ONE CHAR FROM KYBD 

MOV ErA SAVE IT 

INX H MOVE OVER A 

MVI Br ODH CR 

CALL JOUT PRINT IT 

CALL PLF PRINT LINE FEED 

JMP LOOPI STEP OVER =: AND GO ON 
PROCESS MATCH STMT 

CPI 4DH M 6? 

JINZ XJ NO 

INX H STEP OVER M 

INX H STEP OVER 3: 

MOV ArM GET MATCH CHAR 

MVI DeS59H ASSUME Y 

CMP E COMP MATCH CHAR TO INPUT CHAR 

JZ MX BRANCH IF IT MATCHES+FLG=Y 

MVI D» 4EH RESULT IS N 

JMP LOOPI SET MATCH FLAG TO Y OR N 
PROCESS JUMP STATEMENT 

CPI 4AH J ? 

JINZ XS NO 

INX H STEP OVER J 

INX H STEP OVER ; 

MOV ArM DESTINATION 

ANI OFH CLEAR ZONE 

MOV Brf NUMBER OF #S TO SKIP 

JINZ JF ITS A JUMP FORWARD 

LHLD LST ZERO.. JUMP BACK TO LAST ACCEPT 

JMP LOOP CONTINUE FROM THERE 
SKIP FORWARD UNTIL PASS N #-MARKERS ( N IS IN BREG ) 

INX H STEP PGM LOL 

MOV ArM NEXT CHAR 

LPI ZAH #-MARKER ? 

JINZ JF NOr KEEP LOOPING 

DIR B FOUND ONEr COUNT IT 

JINZ JF LOOP IF NEED TO FIND MORE 

JMP LOOPI DESTINATION FOUNDr GO EXECUTE 
PROCESS STOP OR SUBROUTINE STATEMENT 

CPI 33H S03 

JINZ XT NO 

INX H STEP OVER 5 

INX H STEP OVER 3 

MOV AM PARAMETER TO REG A 

INX H STEP OVER PARAMETER 
NEXT STMT MAY BE MADE TO BE A CALL TO USER SUBR 

JMP SUB GO TO YVSER SUBR (OR TO EDITOR) 

JMP LOOF GO ON VYPON RETURN FROM USER SUBR 
PROLESS TYPE STATMENT AND SYNTAX ERRORS 

CPI 54H T ? 

JINZ TE NOr ITS AN ERROR 

INX H YESr STEP OVER T 

INX H STEP OVER : 

CALL PRT PRINT UP TO CR 

JMP LOOF DONE WITH T 
SUBR TO PRINT UP TO NEXT CR 

MVI C+48H COUNT OF 44 

MOV Bem NEXT CHAR 

DCR C DECREMENT SAFETY COUNTER 

JZ PLF EXIT IF OVER 464 BEFORE CR 

CALL JOUT PRINT IT 

MOV AeM RELOAD CHAR TO ACCA 

INX H STEP LOC PTR 

CPI BDH CR ? 

JNZ PRTA NOT CRr LOOP 
SUBROUTINE TO PRINT LINE FEED AND PAD 

MVI C+BOH NUMBER OF NULLS TO PRINT 

MVI Br OOH NULL 

CALL JOUT WRITE A NULL 

DCR c DECREMENT COUNTER 

JP PLFL LOOP TILL ENOUGH NULLS 

MVI Br AH LINE FEED 

JMP JOUT PRINT THEN RETURN 
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gram are broken into procedures, equivalent 
to subroutines in languages such as FOR- 
TRAN. Every procedure is blocked off by 
BEGIN and END statements. The name of 
the first procedure is CHIN. After we have 
determined the name, we are told to begin 
executing procedure ACCEPT (which will 
return to us input values in variable CBUF). 
This is a subroutine which is not shown 
since it is specific to the processor being 
used. The next two procedures are also 
calls to subroutines used to DISPLAY the 
contents of the buffer and move the output 
to a new line. These two procedures are also 
machine dependent. Notice that Pascal 
allows you to use descriptive names. This is 
very important when writing a program 
that you want other people to read or that 
you want to understand at a later date. 


Listing 5: Pascal listing of WADUZITDO. See notes by Ray Cote. 


PASCAL VERSION OF WADUZITDIO,s 
PROGRAM WADUZITDO:; 


LARRY KHERIATY 


CONST PZ25000% BS=127% EDL=105 


VAR LOCeLSTel 3: 
PROG : 


INTEGER? LCHReFLGrCBUF PCBS TEDL : 
ARRAYC1..PZ) OF CHAR? 


CHAR? 


PROCEDURE CHIN? BEGIN ACCEPT (CBUF)¢ END? 
PROCEDURE CHOUT? BEGIN DISPLAY (CBUF)# END? 
PROCDURE NEWLINE® BEGIN DISPLAY (NL) & END? 


PROCEDURE LIST# VAR I: INTEGER? 


BEGIN I3= @% 
REPEAT 


CBUF := PROG CLOC]# LOC s= LOC+1+s Is=Iel? 


CHOUT 


UNTIL (1°64) OR (CBUF=CEOL)* NEWLINE 


END? 


PROCEDURE EXECUTE? VAR DONE ;: 


BOOLEAN? 


BEGIN LOC := 1% DONE :2 FALSE? 


REPEAT 


CBUF := PROGCLOC) + IF CBUF < °#* THEN CBUF 32 '8'3 
IF NOT(CBUF IN Clare’ Ve ON PTA’ DM? Se T'S!) THEN LIST ELSE 


CASE CBUF OF 


"e#?s LOC t= LOC+13 
"Y's "NN? 3 IF CBUFSFLG THEN LOC 32 LOC?! 
ELSE REPEAT CBUF 3s= PROGCLOCIJ$ LOCs2LOC+1 
UNTIL CBUF*CEOLS 
"A’ : BEGIN LST 82 LOC# CHIN’ LCHR 3sCBUF 


NEWLINE} 


LOC s=LOC+2 ENDS 


'M’ $ BEGIN IF LCHR=PROGCLOC+2] THEN FLG t#'Y! 
ELSE FLG 32 'N'$ 
LOC s= LOC+3 END} 

°J*' s IF PROGCLOC+2] = ‘8’ THEN LOC %2LST 

ELSE BEGIN I3= ORD(PROGCLOC+2]) -483 

REPEAT LOCs=LOC+13 
IF PROGCLOC] = °'#’ THEN I ss I-18 
UNTIL I#@ END} 

*T’ s BEGIN LOC s= LOC*2$ LIST END} 
°S*’ s BEGIN DONE t= TRUE LOC 32 1 END 


END 
UNTIL DONE 
END? 


BEGIN CBS s= CHR(BS)% CEOL 
WHILE TRUE DO BEGIN 


$= CHR(EOL)$ CBUF 3=°\'3 


IF CBUF ="\* THEN LOC t=] 

ELSE IF CBUF#CBS THEN LOC t= LOC-1 
ELSE IF CBUF='/* THEN LIST 

ELSE IF CBUF='$* THEN EXECUTE 


ELSE IF CBUF='%" THEN 
BEGIN I[:=93 


WHILE (1¢64) AND (PROGCLOC) <> CEOL) DO 
BEGIN PROGCLOC] s= CHR(8)# LOC s= LOC+1 ENDS 


PROGCLOC) 3= CEOL? 
END 


LOC := LOC +1% NEWLINE 


ELSE wEGIN PROGCLOC] *2 CBUF# LOC s= LOC+13 
IF CBUF*CEOL THEN NEWLINE ENDS 


CHIN 


The next procedure, LIST, first defines 
its own local variables, which it will use 
only within the LIST routine. As before, the 
procedure is delimited by BEGIN and END 
statements. This procedure introduces us to 
the concept of loops. Here we have a related 
pair of commands: REPEAT and UNTIL. 
These two commands cause the one line of 
three instructions and the call to procedure 
CHOUT to execute until either the value | is 
greater than 64 or the variable CBUF is 
equal to CEOL. Once either of these two 
conditions occurs, the program logic pro- 
ceeds to call procedure NEWLINE. At this 
point the LIST procedure ends and returns 
to whatever procedure called it. 

Procedure EXECUTE looks structurally 
the same as procedure LIST. There is a def- 
inition of variables, the BEGIN and END 
delimiters, and a REPEAT-UNTIL  struc- 
ture. This time the REPEAT-UNTIL state- 
ment is not waiting for a relation to be 
true, but is rather checking against one var- 
jable. Looking at how DONE was defined 
at the beginning of the procedure, we see 
that its designation is BOOLEAN. This 
means that the variable is being used as a 
logical variable and can take on the value 
true or false. The REPEAT-UNTIL instruc- 
tion waits to see if the variable DONE is 
true. If so, we have finished this procedure 
and can stop it. 

Procedure EXECUTE also contains an IF- 
THEN-ELSE statement. If the value of 
CBUF is not contained within the brackets, 
perform procedure LIST. If the value of 
CBUF is somewhere within the square 
brackets, we want to perform an operation 
related to that value. We now come to 
another Pascal instruction, the CASE state- 
ment. 

We are given a set of cases to choose 
from. The CASE statement tells us that we 
will be using the value in variable CBUF to 
determine what is to be done. We scan down 
each of the cases and find the one labeled 
with the value in CBUF. Since CBUF is 
type character we are looking at ASCII 
characters. Once we find the value of CBUF 
we execute the statements associated with it 
that are blocked off by another set of 
BEGIN and END statements. After we 
have finished, we move to the end of the 
CASE statement and then the last line of 
REPEAT-UNTIL statement. 

The next section of the program does not 
look like the preceding sections. It does not 
start with a PROCEDURE statement, but 
has a BEGIN statement. So far we have dis- 
cussed procedures. Any of the procedures 
that needed to use variables have defined 
their own. So why did we define those var- 
jables at the very beginning of the program? 
The reason is not to use them in a pro- 


cedure, but to use them in the main pro- 
gram. This BEGIN statement is nothing 
more than the start of the mainline logic for 
program WADUZITDO. The mainline logic 
inputs characters and either stores them in 
an array as program or executes them as 
commands. This routine will not jump out 
of the loop and will have to be jnterrupted 
to stop. Of course it is possible to create 
another command that will allow you to 
exit from this cycle. 

Now that we have looked at the Pascal 
version of WADUZITDO, the reader should 


refer back to either of the assembly versions. 
The Pascal version performs the same func- 
tion as the assembly versions. 

The assembly language versions need to 
be heavily commented for the reader to 
understand what is happening. Even liberal 
comments will not help when converting 
from one assembly language to another. 
The Pascal version can be easily converted 
into any machine language. It is also self- 
documenting. Notice that even without a 
single comment, the Pascal listing is extreme- 
ly easy to decipher....RGAC# 
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Creating a Chess Player 


Part 1: An Essay on Human 
and Computer Chess Skill 


In a recent Time essay (see references) 
Robert Jastrow, director of NASA’s Goddard 
Institute for Space Studies, predicted that 
history is about to witness the birth of a new 
intelligence, a form superior to humanity’s. 
The pitiful human brain has “a wiring de- 
fect” that causes it to “freeze up’’ when 
faced with “several streams of information 
simultaneously.”’ Jastrow suggests that ‘‘the 
human form is not likely to be the standard 
form for intelligent life’ in the cosmos. 
Even on our own small planet, a new day is 
near at hand: “In the 1990s,... the com- 
pactness and reasoning power of an intelli- 
gence built out of silicon will begin to match 
that of the human brain.” 

We have always been fascinated by the 
idea of a machine that is capable of rational 
thought. Jastrow is neither the first nor the 
last person who is betting on rapid improve- 
ments in machine intelligence. His expecta- 
tion that computers will rival humanity 
within 15 years seems optimistic to anyone 
who has watched half-a-dozen excited tech- 
nicians flutter about for several hours trying 
to bring a crashed system back to life. This 
prophecy seems even more fanciful to those 
who have attempted to program machines 
to cope with pattern recognition, language 
translation or a complex game such as chess. 

The chess environment, in fact, provides 
a particularly good example of the difficult 
problems which still need to be solved before 
silicon intelligence can become a reality. 
More than 20 years ago, Herbert Simon, a 
recognized expert in the field of artificial 
intelligence, predicted that within a decade, 


Peter W Frey 
Larry R Atkin 


the world’s chess champion would be a 
computer. This prognostication has not 
come to pass. Why was an informed scientist 
like Simon so wrong in his assessment of 
computer capabilities? A major factor is that 
computer scientists have often failed to ap- 
preciate the level of knowledge which is 
required to play master-level chess. They 
have also commonly underestimated the 
tremendous information-processing capacity 
of the human brain. Even though chess is a 
game of logic in which all legal moves can be 
precisely specified and in which nothing is 
left to chance, several centuries of intensive 
analysis have not exhausted the perennial 
challenge and novelty of the game. Psycholo- 
gists have been actively studying the human 
brain for several decades and have discovered 
a fascinating mystery wrapped within an 
enigma. The more we learn about the brain, 
the more we are aware of our lamentable 
state of ignorance. 


The Mind of the Chess Player 


At a general level of knowledge, we have 
several provocative insights on the nature and 
structure of human chess skill. We know, for 
example, that the skilled chess player does 
not examine hundreds of possible continua- 
tions before selecting a move. We also know 
that superior chess players are not formidable 
“thinking machines” but in fact display a 
normal range of intelligence scores. Strong 
chess players, as a group, do not even appear 
to have special retention abilities such as 
having ‘photographic’? memories. In most 
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De Groot’s ‘“‘law”’ of chess 
is that Grandmasters play 
better chess simply be- 
cause they pick better 
moves. 


108 


respects, top-flight chess players have the 
same intellectual capacities as the rest of 
the population and, in the technical details 
of move selection, seem to engage in the 
same type of information processing that is 
observed in much weaker players. 

Our knowledge in these matters is based 
on the early work of Binet in France and 
that of de Groot in Holland and on more 
recent investigations by other scientists in 
the USSR and the United States. In the late 
nineteenth century, Binet was surprised 
to discover that masters did not have a vivid 
image of the board when playing blindfolded 
chess. Instead, they seemed to remember 
positions in abstract terms such as by specific 
relations among pieces. Interviews with 
masters clearly indicated that a photographic 
memory was not a prerequisite for being 
able to play many simultaneous games of 
blindfolded chess. In the 1930s and 1940s, 
de Groot worked with a number of strong 
chess players (from Grandmasters to strong 
club players) and had them verbalize their 
thought processes while selecting a move in 
a complicated position. His research indi- 
cated that the Grandmasters’ general ap- 
proach was highly similar to that of weaker 
players. They analyzed a similar number of 
moves (about four) from the initial position, 
a similar number of total moves (about 35), 
made a similar number of fresh starts (about 
six), and calculated combinations to the 
same maximal depth (about seven plies or 
half-moves, where a move is defined as a 
play by one side and a response by the 
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Other). The only clear measurable difference 
was that the Grandmasters invariably chose 
the strongest move while the weaker players 
did not. Thus de Groot concluded that 
Grandmasters play better chess because they 
pick better moves. Unfortunately, this con- 
clusion is not very informative since it is 
obviously circular. The fact that de Groot’s 
extensive study did not uncover any promi- 
nent differences in the move-selection strate- 
gies used by strong and average players im- 
plies that the analysis procedure itself is not 
the critical factor which determines chess 
skill. 

An important clue to the difference be- 
tween skilled and unskilled players was 
discovered by de Groot when he displayed 
an unfamiliar chess position to his subjects 
for a few seconds and then asked them to 
recall the position from memory. He found 
that masters recalled almost all the pieces 
while club players remembered only about 
half of them. Recent work in this country 
by Chase and Simon at Carnegie-Mellon 
University has indicated that novice players 
recall only about a third of the pieces. 
Chase and Simon also added an important 
control procedure. They demonstrated that 
the differences in recall ability completely 
disappear if the pieces are positioned 
randomly. This outcome indicates that the 
Superior memory of the chess master is 
chess-specific and not a general trait. 

Simon and Gilmartin have proposed that 
skilled chess players learn to recognize a 
large number of piece combinations as 


perceptual chunks and perform well in the 
recall task because they remember four or 
five chunks rather than four or five pieces 
like the novice. If the average chunk size is 
three to four, the skilled player will recall 
16 to 18 pieces. 

On the basis of this analysis, skill in chess 
depends on a learned perceptual ability 
which is highly similar to that acquired 
by every schoolchild as he or she slowly 
builds up a large repertoire of words. 
Initially the child learns to read each word 
character by character and often does not 
understand the meaning of the word. The 
novice chess player perceives the chess- 
board in a similar way, assessing a position 
piece by piece and failing to recognize the 
meaning of common piece configurations. 
The adult reader recognizes words and 
phrases as basic units (chunks) rather than 
individual characters and has a recognition 
vocabulary of approximately 50,000 words. 
The skilled chess player, in a similar vein, 
recognizes a very large number of piece 
configurations (chunks) and understands 
what they imply both individually and in 
combination. 

The critical aspect of move selection 
occurs in the first few seconds of the task. 
Based on his assessment of the position, 
the skilled player immediately recognizes 
appropriate long-term and-short-term goals 
and has a good feel for the specific moves 
which are compatible with these goals. For 
this reason, only two to four moves on the 
average are given serious consideration. The 
difference between the Grandmaster and 
the expert lies in the fine distinctions which 
are made in the first few seconds of their 
analysis. Skilled chess players can play a 
remarkably strong game when they are given 
only five seconds for each move. In this 
short time, it is not possible to make a 
careful analysis of many different continua- 
tions. The player must have an “‘instinctive”’ 
feel for the correct move and be able to 
recognize key features and to understand 
both their immediate and_ long-term 
implications. 

Human chess skill, therefore, is based on 
two highly refined capacities, pattern 
recognition and rapid information retrieval. 
The latter ability depends on the fact that 
human memory is content-addressable rather 
than location-addressable like that of a 
computer. Computer systems often have to 
search for a specific item of information in 
memory by conducting an _ exhaustive, 
linear search of an entire file. Human 
memory however is organized in an amaz- 
ingly complex fashion such that most of us 
can easily recall a specific fact on the basis 
of a completely novel retrieval cue. For 
example, name a flower that rhymes with 


nose. \In this case, your quick response 
demonstrates that words are grouped to- 
gether on the basis of their phonetic similar- 
ity (ie: sound). Your ability to quickly recall 
words which are similar in meaning to the 
word fat (such as obese, chubby, rotund, 
flabby, plump and stout) demonstrates 
that human memory is also organized by 
semantic similarity (ie: meaning). When a 
person is given a retrieval cue which does not 
elicit an immediate response, he or she can 
usually find the correct information after a 
brief search of related ideas or concepts. 
This facility contrasts sharply with the 
extremely limited linear searches which are 
generally conducted with large computer 
based storage systems. Even sophisticated 
computer retrieval strategies which arrange 
the data base in multilinked lists with 
elaborate tree structures presently lack 
the large system efficiency displayed by 
their biological counterparts. 

Pattern recognition and rapid information 
retrieval are not only key capacities for 
chess, but are also essential for a wide 
range of important human problem solving 
Skills. Whether your field is medicine, 
engineering, plumbing or computer program- 
ming, you would be a complete failure at 
your job without these essential abilities. 
Jastrow’s claim that machine intelligence 
will soon equal man’s intelligence seems to 
overlook the important points made in 
BYTE by Ernest Kent (see references). Kent 
emphasizes the fact that biological infor- 
mation processors have a vastly different 
architecture than their silicon imitations. 
In fact, he suggests that our lack of success 
in building a thinking machine stems from 
our attempts “to make a wrench do a 
screwdriver’s job.’’ Our modern high-speed 
computers were designed to do important 
tasks which men afe not very good at, 
such as complex mathematical calcu- 
lations. 

The human brain evolved, in contrast, 
on its ability to identify important environ- 
mental events and to quickly recognize their 
significance. Natural selection has never 
placed much emphasis on our ability to 
multiply or our ability to compute the 
inverse of a matrix. Kent also reminds us 
that organic evolution worked with a very 
different kind of hardware than that which 
is available to the modern computer 
engineer. Biological information processors 
have an incredibly slow cycle time, less than 
100 operations per second. The basic unit, 
the neuron, operates in milliseconds 
rather than in nanoseconds. The brain, 
however, makes up in quantity and in 
Structural complexity what it lacks in 
speed. Computers, on the other hand, have 
many fewer components and a much simpler 
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gating architecture, but are orders of mag- 
nitude faster. 

It may be that present machine hardware 
configurations are simply inappropriate for 
efficient pattern recognition or semantic 
recall. An analysis of the history of com- 
puter chess is instructive. Although there 
have been numerous advocates for chess 
programs which imitate human _ playing 
methods, only a few have been attempted, 
and none of these have played reasonable 
chess. The earliest paper on machine chess, 
written by Claude Shannon in 1950 (see 
references), proposed a mechanical algo- 
rithm which was not modeled on human 
chess play. Shannon suggested a workable 
procedure for representing the board and 
piece locations, specified simple mathe- 
matical algorithms for generating the legal 
moves of each piece and gave an example of 
a straightforward technique for evaluating 
a position (see Chess Skill in Man and 
Machine, chapter 3). The key feature of 
Shannon’s proposal was the adoption of the 
minimax technique as described by von 
Neuman and Morgenstern in 1944. The basic 
idea of the minimax technique is to assume 
that the player whose turn it is to play will 
always choose the move which minimizes 
his opponent’s maximum potential gain. 
Hence, the name minimax. 


The Type B Strategy 


One of the difficulties of this approach is 
that a complete analysis of all possible 
continuations (type A strategy) very rapidly 
leads to an overwhelming number of poten- 
tial positions. The look-ahead tree grows at 
an exponential rate and with an average, 


according to de Groot, of 38 legal moves at 
each position, a search involving three 
moves (three half-moves for each player) 
produces over 3 billion (38°) terminal 
positions. You may recall that de Groot’s 
research indicated that human_ players 
regularly searched a tree to seven plies and 
sometimes much deeper. Because of this, 
Shannon concluded that it would not be 
possible for the machine to consider all 
possible legal continuations at each node 
of the game tree. Instead, he proposed a 
type B strategy in which only reasonable 
(ie: plausible) moves are pursued at each 
branching point. If the program considered 
only five continuations at each node in- 
stead of all 38, a 6 ply look-ahead would 
involve only 15,625 (5°) terminal positions. 

The attractiveness of the type B approach 
seems overwhelming when the number of 
terminal positions increases exponentially 
with depth. The fact that skilled human 
players explore only a limited number of 
continuations at each choice point is addi- 
tional evidence which favors the adoption 
of this strategy. It is not surprising, there- 
fore, that most programmers have used 
Shannon’s type B strategy in designing a 
chess program. 

Sometimes our understanding of the real 
world, however, is not always as accurate 
as we presume. In selecting a type B 
Strategy in preference to a type A strategy, 
the programmer does not necessarily sim- 
plify the problem. This approach was 
competently implemented in 1967 by 
Greenblatt at MIT. His program played 
reasonable, and at that time, fairly impres- 
sive chess. The major design problem in a 
Selective search is the possibility that the 
look-ahead process will exclude a key move 
at a low level in the game tree. The failure 
to consider an important move can lead 
to a very serious miscalculation. A chess 
game can be lost by a single weak move. 
For this reason, it is of critical importance 
that a necessary move not be missed. The 
type B programs place a critical dependence 
on the accuracy of their plausible move 
generator. Chess is an extremely complex 
game and In many situations a move which 
at a superficial level seems unlikely, is, in 
fact, the best one. Grandmasters find 
these moves while lesser players, including 
machines, fail to see them. For a decade, 
several dozen individuals have tried to 
Create a plausible move generator that is 
superior to Greenblatt’s. The evidence is 
fairly clear, however, that type B programs 
have improved very little since 1967. 

As strange as it may seem, recent pro- 
gress in computer chess has come by aban- 
doning the type B_ strategy. Shannon’s 
logical analysis was made in a “stone-age”’ 


hardware environment and without know- 
ledge of several important algorithms. 
Today, the type A strategy is not as ridic- 
ulous as it seemed in 1950. In addition, 
very few individuals anticipated the immense 
difficulty involved in constructing a com- 
petent plausible move generator. To become 
a chess master, a man has to study chess 
intensively (20 hrs or more a week) for at 
least 5 years. During this time he acquires an 
immense amount of detailed knowledge 
about the game of chess. Subtle features of 
a particular position are recognized immedi- 
ately and suggest both short-term and long- 
term goals as well as specific moves. This 
kind of knowledge is sufficiently abstract 
that most players find it impossible to 
verbalize the relevant thought processes. 
The one factor which stands out clearly, 
however, is that the chess master has 
acquired a tremendous library of factual 
information which can be retrieved quickly 
and applied in apparently novel situations. 
No chess program has been able to duplicate 
this facility and, without it, the creation of 
a workable plausible move generator is next 
to impossible. 

When a type A Strategy is employed, 
however, this problem can be bypassed. By 
making all the moves p/ausib/e, the program 
never overlooks a subtle but important one. 
In fact, by reverting to a brute force search 
of all possible continuations, the program 
often finds interesting combinations that are 
commonly missed even by strong human 
players. It seems ironic that the brute force 
approach (full width searching) produces 
many more brilliant moves than the smart 
approach (selective searching). This impor- 
tant discovery was made independently by 
Slate and Atkin at Northwestern (the au- 
thors of the current world champion chess 
program, Chess 4.6) and by the Russian 
KAISSA team. 


Minimax and the Alpha-Beta Algorithm 


Slate and Atkin’s work has demonstrated 
that a full width search can be conducted 
considerably more efficiently than anyone 
had previously suspected (including Slate 
and Atkin; see references). There are a num- 
ber of important developments which are 
responsible for this reassessment. The most 
important discovery was made in the late 
1950s by Newell, Shaw and Simon as well 
as by Samuels. Because of the basic logic 
underlying a minimax search, it is not neces- 
sary to search the entire look-ahead tree 
before selecting the best move. Consider a 
simple 2 ply search (one move for you and 
one for your opponent). First you examine 
one of your possible moves and the 38 or so 
terminal positions which result from each 


of your opponent’s legal replies. You select 
the one reply which is best, according to 
your evaluation function, for your opponent 
(ie: the one which minimizes your own 
maximum potential gain). Next, you con- 
sider a second move for yourself and the 38 
or so replies that your opponent can make 
to this move. In considering these moves, 
you discover that the third reply you ex- 
amine would give your opponent a better 
outcome than his best reply to your first 
candidate. Immediately you realize that it 
is a complete waste of time for you to ana- 
lyze any more of his replies to your second 
candidate. Since you are already guaranteed 
a worse position after the second move than 
after the first, it is reasonable to reject the 
second one and turn to your third candidate. 
This decision eliminates the need for eval- 
uating 35 of the. potential replies to your 
second candidate. A very tidy savings. 

Historically, the score for the best move 
so far for White has been designated as a and 
the score for the best move so far for Black 
has been called 8. Thus the name alpha-beta 
(a—8) algorithm. When the tree is both wide 
and deep, this algorithm can reduce the 
number of terminal nodes to a small fraction 
of the number which would be examined by 
a complete minimax search. The beauty of 
this procedure is that it always produces the 
same result as the full minimax search. 

An important factor in determining the 
efficiency of the alpha-beta algorithm is the 
order in which the moves are examined. If 
White’s best moves and Black’s best replies 


N-QB3 
P-K4 
P-Q4 N-KB3 
P-K4 P-K3 
P-QB4 
N-QB3 B-B4 N-KB3 P-04 N-QB3 


Figure 1: Portion of a game tree for the opening game in chess. Square nodes 
indicate that White is to play; round nodes that Black is to play. Techniques 
such as alpha-beta pruning and minimax strategy are used to optimize the use 
of trees like this. 


111 


112 


are considered first at each choice point, the 
search of the uniform game tree of height h 
(number of plies deep) and width d (number 
of successors at each node) will involve ap- 
proximately 2*d4/2 terminal positions in- 
stead of d® (see references, Knuth and 
Moore). The potential magnitude of this 
saving can be appreciated by considering 
our previous example with a 6 ply search: 
386 is more than 3 billion while 2 X 38? is 
about 110,000. Shannon might have given 
more consideration to the type A strategy if 
he had been aware of the alpha-beta algo- 
rithm and some of the other technical im- 
provements which were to follow. 


General Strategy 


To maximize the benefit of the alpha- 
beta procedure, it is necessary to devise an 
efficient strategy for generating the moves 
at each node in an order which is likely to 
produce a cut-off, such that searching 
can be terminated at that node, There are 
several general heuristics which have proven 
their value time and time again. One is 
extremely simple and powerful: try captur- 
ing moves first. Because a full width search 
includes many ridiculous moves, a reply 
which involves a capture will often remove 
a piece which was “‘stupidly’”’ placed en prise 
(ie: attacked and insufficiently defended). 
Captures also have the beneficial effect of 
reducing the number of potential offspring. 
An additional important characteristic of a 
Capturing move is that it will generally have 
to be examined sooner or later in order to 
insure the quiescence of the terminal posi- 
tion. Because of this, every capture that is 
examined early generally reduces the 
amount of work which will have to be done 
later. In practice, investigators have re- 
ported a speed-up in search time of as much 
as 2 to 1 by simply putting all the captures 
at the beginning of the move list. 

In addition to captures, there is another 
class of moves which is also effective for 
producing cut-offs. These are called &i/lers 
because they are moves which have pro- 
duced cut-offs in the immediate past and 
have been specifically remembered for that 
reason. A short list of killers is maintained 
by the program and whenever the legal 
Capturing moves fail to produce a cut-off, 
cach of the killers (if legal in the given 
position) is then examined. This killer 
heuristic is quite effective in producing a 
move order which enhances the probability 
of a quick cut-off. 

The general features of the alpha-beta 
algorithm and its important servants, the 
capture and killer heuristics, were reason- 
ably well-known late in the 1960s. In recent 
years, several important refinements have 


been added to this list. One of the most 
important is the staged or iterative alpha- 
beta search. For example, instead of con- 
ducting a 5 ply search all at once the search 
is done in stages, first a 2 ply search, thena 
3 ply search, then a 4 ply search, and 
finally a 5 ply search. Superficially this 
might appear to be wasteful since the staged 
search requires the full 5 ply search eventu- 
ally anyway. This is not at all the case. As 
each search is completed, the principal 
variation (best moves for each side at each 
depth) is used as the base for the next (1 ply 
deeper) search. The 3 ply search therefore 
starts with a move at ply 1 and a reply at 
ply 2 which has already been proven to be 
reasonable (from the machine’s limited 
perspective). The 4 ply search starts with 
reasonable moves at its first three plies. 
The 5 ply search has the benefit of reason- 
able moves at its first four plies. Because 
the efficiency of the alpha-beta algorithm 
is tremendously sensitive to move ordering, 
the spill-over in information from one 
iteration to the next has a surprisingly 
powerful effect. A single 1 stage 5 ply 
search might require 120 seconds of proces- 
sor time. The last segment of the staged 
5 ply search might require only half as much 
time (ie: 60). Since each iteration requires 
about five times as much processor time 
as its predecessor (the exponential char- 
acter of the look-ahead tree is diminished 
somewhat by the alpha-beta algorithm), the 
staged 4 ply search would take about 12 
seconds, the staged 3 ply search about 3 
seconds, and the 2 ply search about 1 
second. The total time for the iterative 
search would be approximately 76 seconds 
(1 + 3 + 12 + 60) rather than 120 seconds. 

An added benefit of the iterative search, 
and, incidentally, the reason for its discovery 
in the first place, is that it provides a useful 
mechanism for time control. In tourn- 
aments, a move must be calculated within 
a fixed time limit such as 90 to 120 seconds. 
If one decides to do a 5 ply search in a single 
Stage, it is possible to find oneself tied up in 
calculation after 120 seconds with no idea 
of how much more time will be needed to 
complete the search, and without a move to 
make until the search is completed. In some 
complex situations the search might take as 
long as 10 minutes — a disaster for time 
control. An iterative search allows one to 
predict the probable duration of the next 
iteration and to make a decision whether it 
is cost effective to initiate the next one. If 
this decision is a go and the search, for some 
reason, fails to terminate in the anticipated 
time, the machine can abort and play the 
move selected by the last iteration. This 
provides relatively neat and tidy time con- 
trol. The iterative search was first mentioned 


by Scott in 1969 and was apparently dis- 
covered independently several years later 
by Jim Gillogly at Carnegie-Mellon, by 
Slate and Atkin at Northwestern and by the 
Russian KAISSA team. 


Refinements to the Type A Strategy 


Several other refinements have also made 
the type A strategy more manageable. One 
of the time intensive activities involved in 
tree searching is move generation. This can 
be minimized by generating only one move 
at a time and seeing if it produces a cut-off 
before generating the next move. If a cut-off 
occurs and the node is abandoned, one can 
avoid generating a large number of potential 
moves. With the n-best approach, it is cus- 
tomary to generate all moves at each node 
and then invest time attempting to decide 
which ones are worthy of further consider- 
ation. Thus the smaller tree, obtained by 
selective searching, has to be partially paid 
for by an additional time investment in 
plausibility analysis. 

Another time-intensive activity in the tree 
search is the repeated use of the evaluation 
function. Since many thousands of terminal 
nodes have to be evaluated in each move 
selection, any refinement that reduces the 
work of the evaluation function will pay 
rich dividends. There are three important 
techniques which fall in this category. One 
of these is called incremental updating. \n 
order to make an evaluation of a node, it is 
necessary to have certain key facts available, 
such as which squares are attacked by each 
piece, which pieces are present, etc. This 
information can be newly calculated at each 
terminal node or can be_ incrementally 
maintained by updating the appropriate 
tables as the tree is generated during the 
search. This latter procedure is more com- 
plex to program but tremendously more 
efficient in terms of computing time because 
neighboring terminal positions are highly 
similar. They usually differ in respect to 
only a single piece, and therefore the up- 
dating procedure requires about 10 percent 
of the computations that would be ex- 
pended if the evaluation data base were 
recalculated from scratch for each evaluation. 

A second refinement in this category is 
the use of serial organization in the eval- 
uation function. In order to assess the relative 
merit of a chess position, most programs 
place heavy emphasis on the material bal- 
ance (ie: the relative number of pieces for 
each side). This tradition is founded on the 
idea that winning or losing is strongly 
correlated with being ahead or behind in 
material. An additional rationale is that this 
information is readily available and easily 
updated. 
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In most programs material factors are so 
dominant that the other evaluation terms, 
such as mobility, pawn structure, King 
safety, area control, etc, taken together 
almost never account for more than two 
pawns. Because of this, it makes sense to 
compute the material balance factor first 
and then determine if the result is within 
two pawns of the target value. If not, there 
is no need to assess the other factors, 
because the final decision will be independent 
of their value. 

This simple idea encourages one to organ- 
ize the evaluation function in strict serial 
order such that influential (heavily weighted) 
terms are analyzed first and the result ex- 
amined to see if a decision is possible based 
on this initial information. If not, the next 
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most influential term(s) are examined and 
another determination is made. This process 
is repeated until an escape condition occurs 
or until all terms have been examined. In 
most cases, the evaluation will be terminated 
long before the list of potential terms has 
been exhausted. This technical refinement 
can save a significant amount of time. 

A third procedure for speeding the eval- 
uation process is to remember past evalua- 
tions. For instance, one should avoid re- 
assessing the same position two or more 
times. In chess, there are many pathways by 
which one can reach identical positions. Ina 
3 ply sequence in which the middle move 
remains constant, for example, the first and 
third moves can be interchanged and the 
resulting position will be the same. Trans- 
positions such as this occur frequently in the 
end game where the King may have literally 
hundreds of 4 move pathways that end on 
the same square. Rooks, Bishops and Queens 
also have a special facility for reaching a 
particular destination square in multiple 
moves rather than in one or two. 

A full width search (ie: type A strategy) 
greatly accentuates this foolishness. By 
creating a large table of past positions which 
have been already evaluated, and using a 
hashing procedure to check if the present 
position is in the table, the programmer can 
completely eliminate a porticn of the eval- 
uation effort. In most middle game posi- 
tions, this technique will produce a 10 to 50 
percent saving. In certain end game posi- 
tions, however, the transposition table can 
eliminate more than 80 percent of the 
evaluation effort. This idea seems to have 
been implemented first by Greenblatt in 
1967. 

An extension of this idea is to use the 
table to store likely moves as well as 
evaluations. By remembering a move which 
previously produced a cut-off, the table can 
facilitate move ordering decisions. In add- 
ition, the use of the same reply at a familiar 
position may have the added benefit of 
increasing the number of transpositions 
which will be encountered at later nodes. 
Additional details on the use of a trans- 
position table are discussed in chapter 4 of 
Chess Skill in Man and Machine. 

One of the most difficult challenges for a 
chess program is the end game. A machine 
which calculates a move for each position 
has difficulty competing with humans who 
“know’’ the correct move on the basis of 
their own or someone else’s past experience. 
There are a huge number of end game sit- 
uations in which a specific and highly tech- 
nical strategy is required. Strong chess players 
study these intricacies at great length and use 
this knowledge at the chessboard to avoid 
unnecessary calculations. For example, a 


King and a pawn against a lone King is a 
win in some positions, and a draw other- 
wise. The same is true for a King and two 
pawns against a King and a pawn. If a Rook 
or minor piece is added to each side, the 
situation changes dramatically. Unfortu- 
nately our present day programs are obliv- 
ious to these subtleties. For this reason they 
can find the correct move only by engaging 
in prodigious calculations. Their human 
counterpart, on the other hand, “knows” 
the correct move after a cursory glance at 
the position. 

Newborn (see references) has introduced 
a useful technique for reducing this knowl- 
edge gap. The main idea is to categorize 
familiar end game positions as wins or 
draws. Many games end with a King and a 
pawn fighting a lone King. Skilled players 
usually terminate the contest before it runs 
its inevitable course because the outcome is 
not in doubt. Newborn has shown that it is 
feasible, taking advantage of the symmetries 
of the chessboard, to make a bit map that 
indicates either a win (1) or a draw (0) for 
each potential square on which the lone 
King might reside for each of the potential 
locations of the opposing King and pawn. 
This knowledge can be encoded in approx- 
mately 300 bit boards of 64 bits each 
(see chapter 5 of Chess Skill in Man and 
Machine). 

Although a tremendous amount of work 
and chess knowledge is required to complete 
this task, the end result is well worth the 
effort. When a position involving two Kings 
and a pawn js encountered anywhere in the 
look-ahead tree, it can be immediately 
scored with 100 percent accuracy as a win 
or a draw. This extends the look-ahead 
horizon of the program by as much as 12 to 
15 plies for these specific situations, and 
eliminates all the tree searching effort which 
would normally be required. Furthermore, it 
permits accurate evaluations at the end 
points of a deep search, which allows the 
program to select a continuation which leads 
to a favorable end game. If this approach 
were extended to a wider range of situations, 
the machine’s present knowledge deficit 
with respect to the end game would be 
greatly reduced. 

These programming refinements, together 
with rapid hardware advances, have made 
the Shannon type A strategy feasible if not 
particularly elegant. For this reason it is 
possible to program a machine to play a 
game of chess which is free of gross blunders 
and which sometimes even contains an 
innovative move or two. Although this 
approach is clearly not a final solution, it 
does provide a solid base which can be used 
as a reliable starting point for future 
developments.™ 
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Creating Chess Player 


Part 2: Chess 0.5 


Peter Frey 
Larry Atkin 


Part 1 of this series (“Creating a Chess Player,”’ October 1978 BYTE, page 182‘) was an 
essay on human and computer skill. In Parts 2 and 3 we present Chess 0.5, a program written 
in Pascal by Larry Atkin, who is coauthor with David Slate of the world championship com- 
puter chess program Chess 4.6. The program is readily adaptable to personal computers 
having Pascal systems such as the UCSD Pascal project software. Part 4 of the series will con- 


We have attempted to incorporate several 
features which make the search process more 
efficient and others which increase the 
user’s options. Both of these enhancements 
are important. The first set of features 
(incremental updating, iterative searching, 
staged move generation, etc) were described 
in general terms in part 1. These features 
reduce computation to the point where a 
move can be selected in a reasonable amount 
of time even with a full-width search. The 
second set of features (special control and 
print commands, accepting chess moves in 
standard notation) not only add to the 
pleasure of using the program, but also make 
the debugging process much easier. The price 
for these enhancements is a longer, more 
complicated program. We hope the length 
of our listing will not discourage the reader 
from becoming actively involved. 

Pascal was developed to provide a logical 
and systematic higher level language which 
could produce reasonably efficient machine 
code for existing hardware. Computer pro- 
grams can be conceptualized in terms of 
two essential parts, descriptions of data and 
descriptions of actions which are to be per- 
formed on the data. Pascal requires that 


1. Page 107 of this edition. 
2. Page 81 of this edition. 


clude with some thoughts about computer chess strategy. 


every variable occurring in the program be 
introduced by a declaration statement which 
associates an identifier and a data type 
with that variable. The data type defines the 
set of values which may be assumed by the 
variable. Since a chess program involves a 
large number of variables, our program 
begins with a long list of declaration 
statements. 

A constant definition introduces an iden- 
tifier as a synonym for a constant. This is 
very useful since the value of the constant as 
stated in the declaration list can be changed 
at some later date, and this change will then 
be reflected throughout the program in 
every place where the constant is used. In 
the chess program, the values of some of 
the constants depend on the characteristics 
of the user’s hardware. For example, the 
values of ZK (maximum search depth) and 
ZW (move stack limit) will reflect the amount 
of memory which Is available on your sys- 
tem. On personal computers, ZX will gen- 
erally be set at 7 if you have an 8 bit proc- 
essor and at 15 if you have a 16 bit proces- 
sor. Note also that the value of PZX8 
depends on the value of ZX. To implement 
this program on a given computer, it is 
necessary to insert at the beginning of the 
program the appropriate values for these 
constants. 

For the sake of clarity, specific data types 


Note: 7he Pascal subset 
described in “A ‘Tiny’ 
Pascal Compiler’”’ (page 


1822) is not compati- 
able with the more 
sophisticated Pascal 
used here... CM 
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are declared for a number of different chess 
concepts and for certain useful indices. The 
program also takes advantage of the different 
properties represented in  Pascal’s data 
structures: the set, array and record. It is 
unlikely that anyone will immediately 
memorize the names of all the variables. 
Therefore it is useful to have them listed 
at the beginning where they can easily be 
found for later reference. 

There is a comment statement accom- 
panying almost every instruction in the 
program. Although these brief statements 
may not initially be very meaningful, we 
expect them to be helpful when the user 
becomes familiar with the program. Because 
Pascal requires that all procedures and func- 
tions be defined in the serial listing before 
they are called by another portion of the 
program, the procedures and_ functions 
which are first defined tend to be primitives. 
The main part of the program is concen- 
trated at the end of the listing. 

The most important part of the variable 
declaration list in terms of understanding the 
program is the portion which specifies the 
global data base. This includes the current 
board (BOARD, a record) and a number of 
important arrays. The look-ahead board 
(NBORD) is an array listing the piece 
occupying each square. The attacks emanat- 
ing from each square are represented by 
ATKFR, an array which lists an 8 by 8 bit 
board for each of the 64 squares. The 
attacks to each square are represented by 
a similar array, ATKTO. The combined 
attacks for each side are represented by a 2 
item array of 8 by 8 bit boards called 
ALATK. 

The location of all pieces by type is 
represented by an array of 12 8 by 8 bit 
boards, TPLOC. The location of all pieces 
by color is represented by an array of two 
8 by 8 bit boards, TMLOC. The moves are 
stored in an array (MOVES) of records. 
Each record (RM) contains information 
about the from square, to square; whether 
a capture is involved and the type of piece 
captured, whether the move affects castle 
Status, involves check or mate, involves a 
piece promotion, and whether the move 
has been searched yet. Additional arrays 
provide information on castling squares, 
en passant squares, the location of all pieces, 
the location of pawns, etc. To be successful, 
a chess program must organize the data base 
in a logical manner and be able to manipu- 
late it efficiently. 

For reasons of efficiency, the program 
often stores the same information in two or 
more different ways. Because of this, it is 
necessary to be able to translate from one 
form to the other. These activities are han- 
dled by special arrays. For example, the 


XTPC array allows one to use a piece desig- 
nator (LP, LQ, LK, DQ, etc) as an index and 
returns the corresponding character (1 thru 
6 for Black pieces and A thru F for White 
pieces) which is used when a board represen- 
tation is printed on the terminal. 

There are several general purpose routines 
which are needed by the program. Two func- 
tions, MIN and MAX, provide the smaller 
or larger of two numbers upon request. A 
third function, SIGN, applies the sign of 
one number to the absolute value of another 
number. A general purpose sort routine, 
SORTIT, is also provided. 


Manipulating the Bit Boards 


There are a number of primitive opera- 
tions which involve the manipulation of 
information represented in bit board form. 
A bit board is one or more computer words 
which have a bit set in specific locations to 
represent the occurrence or nonoccurrence 
of a particular event. For example eight 
8 bit words can be used to represent the 
eight rows of a chessboard. Each bit corres- 
ponds to one square. To represent the loca- 
tion of all White pawns, a bit is set (ie: 1) 
in the proper locations and all other loca- 
tions remain clear (ie: 0). This method for 
representing and manipulating information is 
very useful in chess programming. For this 
reason, the first actions defined by our 
chess program are a set of procedures and 
functions for manipulating bit boards. 

The actions represented are: 


(1) the intersection of two bit boards 
(ANDRS): 

(2) the union of two bit boards 
(IORRS): 

(3) the complement of a bit board 
(NOTRS): 

(4) setting a bit in a bit board (SETRS); 

(5) removing a bit from a bit board 
(CLRRS); 

(6) counting the number of bits that are 
set on a bit board (CNTRS); 

(7) making a copy of a bit board 
(CPYRS); 

(8) setting all bits toO (NEWRS); 

(9) shifting all bits in a particular direc- 
tion (SFTRS); 

(10) determining whether a particular bit 
is set (INRSTB); 

(11) determining whether a bit board is 
empty, ie: has no bits set (NULRS); and 

(12) finding and reporting integer value 
for a location where a bit is set (NXTTS). 


Since these routines are used repeatedly 
by the program, you can decrease the 
move calculation time quite a bit by imple- 
menting these primitives in assembly lan- 


guage. You will note that the function 
NXTTS is written in two ways: machine 
independent code, and code which is com- 
patible only with the Control Data 6000 
series machines. There are a number of 
places in the program where execution time 
can be enhanced by substituting machine 
dependent code which takes advantage of 
one or more special features of the hard- 
ware you are using. It would be helpful, 
also, if functions in Pascal could return an 
array or record instead of just a single 
value. There are many places in the pro- 
gram where this type of function would be 
more logical and more efficient than using a 
procedure (ie: subroutine). If one were to 
consider the best of all possible worlds, 
it would be especially nice if the bit map 
manipulations could be compiled in line. 
With the Pascal arrangement, many of the 


procedure calls take as much time as the 
execution of the procedure. 


Initial Steps 


It is also necessary at the beginning of the 
program to provide values for the variables 
which define the chess environment, such as 
piece characteristics. For example, a White 
pawn is represented as LP for some purposes 
and as the letter A for other purposes. It 
has the color LITE, is not a sweep piece, 
and moves only in certain directions. It is 
necessary to initialize the translation tables, 
the constant and variable 8 by 8 bit boards, 
and a number of other tables. The three 
routines which are called to do this when the 
program is first activated are INISYN, 
INIXTP and INICON. A fourth procedure 
(INITAL) is called by the main program 
to get ready for a new game. It will be called 
more than once if the user wishes to play 
more than one game. 

During the development of the program, 
it is necessary to determine whether the 
individual procedures are functioning prop- 
erly. To do this, it is helpful to have a few 
primitive print routines which can provide 
information about the internal workings in 
a form which is understandable to the pro- 
grammer. These same routines are also called 
by the main input/output (IO) routine 
(READER) which appears later in the 
program. 

One of these routines (PRIMOV) prints 
an internal representation of the machine’s 
move. Another prints an 8 by 8 array 
representing the board (PRINTB). This 
consists of numbers for Black’s pieces 
(Black pawn = 1; Black King = 6) and letters 
for White’s pieces (White pawn = A; White 
King = F) with empty squares represented 
by a —. The PRINBB routine prints an 
8 by 8 array representing a bit board. In 


this case an asterisk (*) stands for a square 
where a bit is set and a minus sign (—) 
stands for a square where a bit has not 
been set. An attack map is printed by 
PRINAM and this consists of 64 (one for 
each square) 8 by 8 bit maps in which an 
* stands for a bit which is set and a — stands 
for a clear bit. 

Other useful print routines include one 
which permits a user controlled pause during 
printing (PAUSER) and one which informs 
the programmer of the status of particular 
control switches (PRISWI). Because of 
Pascal’s serial requirement (ie: every proce- 
dure must be defined before it can be called 
by another procedure), these routines appear 
early in the program so that they can be 
used to test the procedures and functions 
which follow. 

In part 1 we mentioned incremental up- 
dating as an important feature of an effi- 
cient chess program. It is necessary to 
apply an evaluation function to the terminal 
nodes of the look-ahead tree. These evalua- 
tions, if they are at all sophisticated, require 
a substantial amount of detailed information 
about the position. Although it is possible 
to calculate this information separately for 
each evaluation, this is not a very efficient 
procedure, because adjacent nodes are 
almost identical. Most of the information 
which would be calculated each time would 
be redundant. A more efficient alternative 
is to ‘‘update’”’ and ‘‘downdate”’ the relevant 
data base incrementally as the program 
moves about in the look-ahead tree. This 
capability requires quite a bit of special 
programming. 

Several primitive routines are very useful 
for this. If the move involves a capture, it 
is necessary to change the material balance 
function. The actual scoring itself is handled 
by MBEVAL. This routine is called either 
by MBCAPT or MBTPAC when a piece is 
lost (update) or gained (downdate); or by 
MBPROM or MBMORP when a pawn is 
promoted (update); or when a newly pro- 
moted pawn is demoted (downdate). There 
are other changes which are required in the 
data base for both capture and noncapture 
moves. The new squares which are attacked 
by the piece need to be added to the attack 
maps (ATKFR, ATKTO, ALATK). This is 
done by ADDATK. The new square for the 
piece is added to the data base by ADDLOC. 
The attacks of sliding pieces which are 
blocked by the newly moved piece are 
recomputed by CUTATK. The attacks of 
sliding pieces which are unblocked by 
vacating the former square are recomputed 
by PRPATK. The attacks which emanated 
from the piece on its former square are 
deleted by DELATK. These primitive 
routines are called by LOSEIT when a cap- 
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ture is involved or by MOVEIT otherwise. 
If the move affects castling status, the 
necessary data base changes are made by 
PROACA and PROACS. If a pawn promo- 
tion is involved, PROMOT makes the neces- 
sary adjustments. 


Move Generation 


A major part of any chess program is the 
move generation module. Because of the 
complexity of the game, many programs 
simply ignore some of the more unusual 
moves, such aS Queenside castling, en pas- 
sant pawn captures, or promotion of a pawn 
to a piece other than a Queen (ie: underpro- 
motion). This arrangement will suffice to 
play legal chess, but it may be costly if one 
of the omitted move types is highly desirable 
in a specific game situation. In addition, an 
incomplete move generation facility prevents 
the machine from checking the legality of 
its opponent’s moves. 

Rather than being satisfied with an 
approximate solution, we have heeded the 
old maxim, “If a job is worth doing, it is 
worth doing well,” and have implemented 
a move generator which permits the pro- 
gram to play a complete game of legal 
chess. As you can see from the listing, this 
requires extensive programming. 

The first step in move generation is to 
Create the data base for the important 
features of the existing board configuration. 
This is done by CREATE. Once a move has 
been selected, it is necessary to change the 
data base. This is done by UPDATE which 
makes use of the routines which were just 
described (eg: ADDATK, CUTATK, 
ADDLOC, CLSTAT, PRPATK, DELATK, 
MOVEIT, LOSEIT). The move is placed on 
the move stack by GENONE. Special rou- 
tines exist for generating moves which involve 
the promotion of a pawn (PWNPRO) and 
for generating the standard pawn moves 
(GENPWN). When a move is tried and 
produces an a-G cutoff, the program backs 
down the look-ahead tree and begins to 
explore moves at a different node. Several 


procedures are employed to downdate the 
data base. These include the main routines 
RTRKIT and DNDATE, which are essen- 
tially the complement of MOVEIT and 
UPDATE. Two other procedures are also 
needed, one to unpromote a pawn (PAWNIT) 
and one to resurrect a captured piece 
(GAINIT). This set of routines permits the 
program to move about the look-ahead tree 
and incrementally update or downdate the 
data base. 

The executive routines which are respon- 
sible for move generation are GENFSL, 
which generates all legal moves from a set 
of squares, and GENTSL, which generates 
all legal moves to a set of squares. The 
rationale for having two routines is that we 
wish to generate the moves in stages. For 
example, captures should be searched first 
at each node (ie: the capture heuristic). 
To do this, we identify the square locations 
of the opponent’s pieces, and then call 
GENTSL to generate all capturing moves. 
These moves are searched before any other 
moves are generated. If one of these pro- 
duces a cut-off the rest of the moves need 
not be generated at all. A third executive 
routine (GENCAS) generates all castling 
moves. These moves are generated after 
the captures if castling is still legal. 

A fourth executive routine for move 
generation is GENALL. This procedure 
generates all legal moves and is used by the 
program to check the legality of the oppo- 
nent’s move. It is called by LSTMOV which 
makes a list of all the legal moves and each 
of these are compared with the opponent’s 
move by YRMOVE (presented later). If 
the opponent’s move is not on the list, the 
machine prints “illegal move.” If the oppo- 
nent’s move is compatible with more than 
one of the moves on the list (eg: P-R3 
could be either P-QR3 or P-KR3), the 
machine prints the message, “ambiguous 
move.’’ When the machine has completed 
its own move selection or has determined 
that the opponent’s move is legal and not 
ambiguous, the move is actually made by 
THEMOV.= 


Listing 1 (opposite): The first half of Chess 0.5, written in Pascal. The second half of the pro- 
gram will be presented in part 3 (December 1978 BYTE }8 of this series. The portion of the 
program presented here covers initialization of the program, variable declaration, manipulation 
of the “bit boards” (used to represent positions on the chessboard), user print routines and 
move generation. The second half of the listing will include procedures for evaluation of ter- 
minal positions, the look-ahead procedure, and user commands. 
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PROGRAM CHESS (INPUT OUTPUT) 3 


LABEL 
i» 
2° 

3 

CONST 
AA z= 123 ZA = 103 
ac 2 “ams zc z 7-5 
AO = -213 ZO = #213 
AJ = 03 Zy 2 738 
AK 2 O03 7K = 163 
AKM2 = -23 
2KP4 = 173 
AL = O63 ZL = 1193 
AZL = ©1193 ZAL = 119% 
AN = 13 2N = 303 
AS = 0% ZS = 633 
AY z= -13 ZT = 633 
Av = 327673 ZV = #327678 
Aw = 43 24 = SCCS 
Ax = 03: ZK = 313 
Ay = 03 ZY = i 
LPP = 20% 
PZ2K8 = 167772163 
SYNCF = 13 
SYNCL = 363 
SYNME = 378 
SYNML = &7% 

TYPE 


SIMPLE TYPES *) 


IMITIALIZE FOR A MEM GAME °) 
EXECUTE MACHINES ROVE °) 
ENO OF PROGRAM °) 


CHARACTERS IS A WORD ©) 
CHARACTER LIMITS 9) 
OLRECTION LIMITS %) 
CHARACTERS IN A STRING ©) 
SEARCH DEPTH LIMITS ©) 

AK-2 ©) 

ZKeo, %) 

LARGE BOARO VECTOR LIFITS ©) 
LARGE BOARD OIFFERENCES 
LIMITS 9) 

MESSAGE LIMITS °) 

BOARD VECTOR LIMITS ©) 

BOARO VECTOR LIMITS AND 
ANOTHER VALUE °) 

EVALUATION LIMITS 9°) 

MOVE STACK LIMITS ©) 

SUBSETS OF SQUARES °) 

ARRAY OF SUBSETS TO FCRM A SET 
OF ALL SQUARES ON BOARD *) 


LINES PER PAGE °) 
27C2K27) 9) 


FIRST CAPTURE SYNTAX ©) 
LAST CAPTURE SYNTAX ©) 
FIRST MOVE SYNTAX ©) 
LAST MOVE SYNTAX ©) 


INOEX TO WORPOS OF CHAR ©) 
TRUE OR FALSE °) 

SINGLE CHARACTERS *) 
OIRECTIONS ©) 


NUMBER OF OIRECTIONS °) 
FILES °) 
PROMOTION PIECES ©) 


TREE SEARCH MOOSS *) 
WUMBERS ©) 

INOEX TO STRINGS *°) 
PLY INDEX ©) 

LARGE (10X12) BOARD *) 
SIOES ©) 

INDEX TO MESSAGES ©) 


PIECES: 
ROOK, 
SQUARE °) 

QUADRANTS °) 

RANKS ©) 

SQUARES *) 

SQUARES, ANO AMOTHER VALUE *) 
TYPESS PAWN. ROOK, coe 2 

KING 9) 

EVALUATIONS °) 

MOVES IMOEX °) 

SOME SQUARES *°) 

NUMBER OF TX°S IN A BOARD ©) 
FLOATING POINT NUMBERS *) 


LIGHT PAWN, LIGHT 
eco 9 OARK KING, EMPTY 


SEV OF CHARACTERS ©) 

SET OF FILES 9) 

SEY OF CASTLING TYPES °) 
SET OF RAMKS ©) 

SET OF SOME SQUARES ©) 


BOAROS °) 

SIOE TO MOVE °) 
ENPASSANT SQUARE *) 
MOVE NUMBER °) 
CASTLE FLAGS °) 


INDEXED BY SQUARE °) 
INDEXED BY RANK ANO FILE °%) 


WOROS OF CHARACTERS ©) 
BOARD VECTORS °) 
MESSAGES *) 

STRINGS ©) 


SYNTAX OESCRIPTOR FOR 
SINGLE SQUARE °) 
PIECE °) 

4%) 

K OR Q 9) 

Re Ne OR B 

RANK %) 


KLUOGE TO FINO NEXT BIT °) 
BITS °) 


Ta = AALTZAS (¢ 
TB = BOOLEANS (® 
TC = CHARS qe 

To = A0.-703 q* 

TE = €924¢872 B33, Bw rS1LeS2oeSTeSHeN1 eoNZeN3 eNoeNS NG NT NB) 

qs 

TF = (FL,F2,F3,F OFS, FO,F7, FEDS (s 

TG = (PQ,PP,PN,PB)S (° 

TH = CHO eH M2 HS Hae HS, HOHT) § 

(¢ 

TI = INTEGERS (* 

TI = Adee ZS (s 

TK = AKL. ZKS find 

TL = ALL ZL (* 

TM = (LITE, DARK NONE) 3 fd 

TN = AN. ZN hd 

TP = CLP LReALN,LB,L0,LK.0P,0R.0N,08,0Q,0K, MTD 3 

qs 

TQ = (LSeLL.0S,0L)3 (id 

TR = (RIRZ,RS, RO RSE, RE, RT RG) 3 t fad 

TS = AS.22S83 q® 

TT s&s AT.e2T3 qs 

TU = (EP, ER, EN, EB, EQ, EK) 3 tid 

Yv =z AVeeZV3 td 

Te = AW, ZM3 qs 

TX 3 AK ZXE q® 

Ty = AY.-ZY3 qe 

TZ = REALS | fd 

(® SETS ®) 

SC = SET QF AC..2C3 fad 

SF = SET OF TFS i fg 

$Q = SEY OF TQ’ | find 

SR = SET OF TR} i fg 

Sx = SET OF TX q® 

(® RECOROS °) 

RB = RECORD (* 
ROTM a TM; qe 
RBIS « TTS (* 
ROTI : TI id 
RBSQ 2s S$Q3 q 
CASE INTEGER OF 

Os ¢ RBIS# ARFAY (TS) OF TPIS th 
is ( RBIRFs ARRAY (TR, TF) OF TPI3(® 
ENOs 

RA = PACKED ARRAY (TA) OF TC? (6 

RC = ARRAY (TS) OF TP | fd 

RN = PACKED ARRAY (TN) OF TCE qs 

RJ = PACKED ARRAY (TJ) OF TC3 i id 

RO = PACKEO RECORD q* 
ROPC ¢« TBt «* 
ROSL ¢ TBS fig 
ROKQ : TB; t fg 
RONB § TBS thd 
RORK ¢ TBS fd 
ENDS 

RK = RECORD thd 
CASE INTEGER OF 

Ge CRKTBt SET OF O.. 4793 qs 
18 ERKTZS T7293 q® 


ENO: 


FLOATING POINT NUMBER *%) 


RM = PACKED RECORO 


RMFR 


RMTO 8 


RACP 
RWCA 
RMAC 
RCH 
RMNT 
RMIL 
RMSU 
Case 


a TS3 
TS3 
TPS 
TO3 
Te3 
Te3 
TB3 
Te% 
Tes 
RHPR ¢ TB OF 


FALSEs ( 
CASE RMOO & TA OF 


FALSEs (RMEP ¢ 178)3 
TRUE & (RMQS 8 TOD3 


TRUE ¢ (RHPP 2 TED: 


RS = RECORD 


CASse 
0¢ 
it 

ENO: 


RX = 


INTEGER OF 


(RSSSt ARRAY (TY} OF SK) 
(RSTIs ARRAY (TY) OF TID? 


RY = PACKED RECORO 


RYLS ¢ RO? 

RYCH : YTC$ 

RYRS # ROS 

ENOs 
RE = ARRAY (TW) OF Tvs 
RF = ARRAY (TW) OF RMS 

VAR 

(* OATA BASE ©) 
BOARD #8 WBS 
NBORD t= ARRAY (7S) OF TP 
ATKFR 3 ARRAY (TS) OF RS3 
ATKTO 8 ARRAY (TS) OF RS3 
ALATK : ARRAY (TM) OF RS? 
TPLOC ¢ ARRAY (TP) OF RS? 
TMLOC &s ARRAY (TM} OF RS3 
MOVES & ARRAY (TW) OF RMS 
VALUE ¢ ARRAY (TM) OF Tvs 
ALLOC & ARRAY (TK) OF RS? 
BSTMV 8 ARRAY (TK) OF Tws 
BSTVL « ARRAY 
CSTAT ¢ ARRAY (TK) OF RSS 
ENPAS & ARRAV (TK) OF RS3 
GENPN ¢ ARRAY (TK) OF RS3 
GENTO & ARRAY (TK) OF RSS 
GENFR &¢ ARRAY (TK) OF RS3 
MBVAL s ARRAY (TK) OF TV3 
MVSEL 8 ARRAY (TK) OF TIS 
INOEX & ARRAV (AK..2KP1) OF Tus 
KILLER ¢ ARRAY (TK) OF RMS 
LINOX & ARRAY (TK) OF Tus 
SRCHM & ARRAY (TK) OF THS 
GOING ¢ TI3 
LSTMV & RMS 
MAXPS 8 TV¥3 
MOLTE ¢ Tv3 
MOP WN & ARRAY (TH) OF TI3 
mOTOT ¢«¢ TV3 
NODES 8 TI? 
JSINTK 8 TK 
JSMTK 88 TKS 
JNTM 68 TMS 
JINTW 0s Thy 
«* LETS 9) 
FKPSHO 3 TI? 
FKSANQ 8 TI3 
FRAXMT ¢ TI3 
FNOOEL 3: TI? 
FPAOCR ¢ ARRAY (TF) OF TI 
FPBLOK 3s TI3 
Feconmm s TI% 
FPFLNX 8 TI3 
FROUBL ¢« TI3 
FRKTTH 8 TI 
FYRAOE ¢ TI3 
FTROSL 3 TI3 
FTRPOK 3: TI 
FYRPWN 8 TIS 
FMKING 9 TIs 
Fumaum s I$ 
FuMIne ¢ TIS 
FuPawn ¢ TI3 
FWROOK 38 TIS 
wInNoOw s TI$ 


(* SWITCHES ©) 


SWEC 
SMPA 
SwWPS 
SWRE 
Susu 
SWTR 


(* COMMAND PROCESSING DATA *) 


TCARO 
ILINE 
JNTJ 
JNTJ 


TB3 
TB3 
T83 
TB$ 
T83 
TBs 


RUS 
RJ3 
TJ 
TJ} 


ARRAY (TS) OF RS 


(AKmM2..Z2KP1) OF Tv3 


MOVES °) 

FROM SQUARE °) 

TO SQUARE ©) 
CAPTURED PIECE *) 
CAPTURE ©) 
AFFECTS CASTLE STATUS °) 
CHECK ©) 

MATE ©) 

TULEGAL °%) 
SEARCHED %) 
PROMOTION °) 


CASTLE °) 
ENPASSANT %) 
QUEEN SIOE ©) 


PROMOTION TYPE °%) 


BIV BOAROS °) 


ARRAY OF SETS *%) 
ARRAY OF INTEGERS °) 


ATTACK MAPS °) 


MOVE SYNTAX DESCRIPTOR ©) 
LEFT SIDE DESCRIPTOR *%) 
MOVE OR CAPTURE °) 

RIGHTY SIOE DESCRIPTOR *) 


ARRAY OF VALUES ®°) 
ARRAY OF MOVES °) 


THE BOARD ©) 

LOOK-AHEAD BOARD *) 

ATTACKS FROM A SQUARE ©) 
ATTACKS TO A SQUARE *) 
ATTACKS BY EACH COLOR *) 
LOCATIONS OF PIECE BY TYPE °) 
LOCATIONS OF PIECE BY COLOR ©) 
MOVES *) 

VALUES °) 

ALL PIECES °) 

BEST MOVE SO FAR ®) 

VALUE OF BEST MOVE °) 
CASTLING SQUARES *) 

ENPASSANT SQUARES ©) 

PAWN ORIGINATION SQUARES °) 
MOVE OESTINATION SQUARES *) 
MOVE ORIGINATION SQUARES °) 
MATERIAL BALANCE VALUES °) 
COUNT MOVES SELECTED BY PLY °) 
CURRENT MOVE FOR PLY *%) 
KILLER MOVES BY PLY *) 

LAST MOVE FOR PLY °%) 

SEARCH MODES °) 

NUMBER OF MOVES TO EXECUTE °) 
PREVIOUS MOVE °) 

MAXIMUM POSITIONAL SCORE °) 
MATERTAL BALANCE LITE EDGE °) 
NUMBER OF PAWNS BY SIDE *) 
TOTAL MATERIAL ON NBORD °) 
NUMBER OF NODES SEARCHED °) 


PLY INOEX °) 

ITERATION ©) 

SIOE TO MOVE °) 

MOVES STACK POINTER °) 


KING PAWN SHIELO CREOIT °) 
KING IN SANCTUARY CREOIT *) 
MAXIMUM MATERIAL SCORE °) 

MODE LIMIT FOR SEARCH °) 

PAWN AOVANCE CREDIT BY FILE ©) 
PAWN BLOCKED PENALTY *%) 

PAWN CONNECTED CREOIT °) 

PAWN PHALANX CREDIT °) 

DOUBLED ROOK CREOIT °) 

ROOK ON SEVENTH CREOIT °) 
TRADE-DOWN BONUS FACTOR *) 
TRADE-DOWN TUNING FACTOR °) 
PAWN TRADE-DOWN RELAXATION °) 
PAWN TRADE-DOWN FACTOR ©) 

KING EVALUATION WEIGHT °) 
MAJOR PIECE MOBILITY WEIGHT *) 
MINOR PIECE MOBILITY WEIGHT *%) 
PAWN EVALUATION WEIGHT °) 

ROOK EVALUATION WEIGHT ©) 

SIZE OF ALPHA-BETA WINOOW °) 


ECHO INPUT ©) 

PAGING ©) 

PRINT PRELIMINARY SCORES °) 
REPLY WITH MOVE °) 

PRINT STATISTICS SUMMARY *°) 
TRACE TREE SEARCH *%) 


INPUT CARO IMAGE *) 

CURRENT COMMAND °) 

CURRENT INPUT LINE POSITION °) 
CURRENT COMMAND POSITION °) 
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Listing 1, continued: 


MOVMS & RNG 
(* TRANSLATION TABLES °) 
xSPB e 


XFPE 8 
XLLO 8 


ARRAY 
ARRAY 
ARRAY 


CTP) OF TBs 
(TP) OF TES 
CAZL.eZAL) OF TOS 


XLPE 
XRF S 
XRRS 
XNFS 
XNRS 
XRSS 
xRQH 
xsQs 
xSSx 
xTec 
XTEO 


ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 


(TP) OF TES 
(TF) OF RSS 
CTR} OF RS3 
CTF) OF RSS 
CTR} OF RS? 
(TS) OF RS% 
ARRAY (TQ) OF RME 
ARRAY (TQ) OF RS3 
ARRAY (TS) OF SX3 
ARRAY (T8) OF TC3 
ARRAY (TE) OF TO3 


XTGC 8 
XTGMPs 


ARRAY 
ARRAY 


(7G) OF 
CTG TM) 


C3 
OF TP3 


XTLS 
XTMA 
XxTnQ 
XTMV 
xTePC 
KTP 
xTPuU 
XTPYV 
KTQA 
xT@s 
XTRFS 
XTSF 
XTSL 
XTSR 
xTSx 


ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 


CTL) OF TT? 
cTM) OF RAY 
(TM) OF Tas 
(TH) OF Tv3 
CTP) OF TC 
(TP) OF THE 
(TP) OF TUS 
CTP} OF Tv3 
(TQ) OF RAS 
(TQ) OF TS3 
CTR,»TE) OF TS3 
(TS) OF TES 
(TS) OF TL 
(TS) OF TR} 
CTS) OF TX 


XTSV 2 ARRAY (TS) OF Tr3 


xTUC 8 
XTUMPs 


ARRAY 
ARRAY 


(TU) OF TC$ 
CTU,TM) OF TRY 
KRQSO?# ARRAY 


(TQ) OF RS3 


MRQSAt ARRAY (TQ) OF 


ENGE ¢ 
CORNRE 
NMULMVe 
OTHERS 
SYNTX8 


ARRAY 
RS$ 
RNs 
ARRAY (TM) OF TMS 
ARRAY(SYNCF..SYNML) OF RY$ 


(TE) OF 


FUNCTION MAX(A,GsTID STI; 


BEGIN 
IF A» B THEN 
MAX t= A 
ELSE 
MAX e= B3 


ENDS (5 MAX *) 


FUNCTION MIN(A,88TId8TI$ 


BEGIN 
IF aA < 6 THEN 
MIN sz A 
ELSE 
MIN t= B3 


EMO; (° MIN ©) 


FUNCTION SIGNCA,BSTIDeTrs 


BEGIN 
SIGN t= TRUNC(6/ABS(8)) © ABSCADS 
ENO3 (° SIGN ©) 


PROCEDURE SORTIT 
(VAR ASRES 
VAR BsRF3 
Cetus 


VAR 
INTs 
INT 
Intr 
Intv 
INRM 


783 
Tus 
TI3 
Tv3 
RAE 


BEGIN 
FOR INTW t= AWe2 TO C 00 
BEGIN 
INV t= INTW = 13 
INTV 82 ALINTW)3 
IWRM sz BCINTW)3 
INTO t= TRUE? 
WHILE CINTI > AW) AND INTB OO 
IF INTV < ACINTI) THEN 
BEGIN 
ACINTI¢1) t= ACINTIDS 
BCINTI¢2) e= OC INTI)D: 
INTI s2 INTI - 13 

ENO 

ELSE 
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(* MOVE MESSAGE *) 


(® TRUE FOR SWEEP PIECES °) 

(* FIRST OIRECTION ©) 

(* OITRECTION FOR LARGE BOARD 
SQUARE OIFFERENCES °) 

(* LAST OIRECTION ©) 

(* BIT BOARD FOR FILES ©) 

(* BIT BOARD FOR RANKS *) 

(* COMP BIT BOARD FOR FILES *) 

(° COMP BIT BOARD FOR RAMKS °) 

(* BIT BOARD FOR OXG INDEX ©) 

(* MOVES FOR CASTLE TYPES ©) 

(* BIY BOARD FOR CASTLE TYPES *) 

(® SET ELEMENT FOR OXG INDEX ©) 

(® CHARACTERS FOR BOOLEANS *) 

(® OJRECTION NUMBER TO 16X12 
SQUARE OIFFERENCE ©) 

(> CHARACTERS FOR PROMOTION *) 

(* PIECE FOR PROMOTION TYPE 
ANO COLOR °) 

(* 6X8 INDEX FOR 10X22 INOEX ©) 

(* WOROS FOR COLORS °) 

(* CASTLE TYPES FOR SIDE ©) 

(* SCORE FACTOR FOR SIDE °) 

(* CHARACTERS FOR PIECES ©) 

(® SIOES FOR PIECES °) 

(* TYPE FOR PIECE *) 

(* VALUES OF PIECES °) 

(* WOROS FOR CASTLES °) 

(* TO SQUARES FOR CASTLE TYPES °) 

(* 6x6 INDEX FOR RANK AND FILE °) 

(* FILES FOR SQUARES °) 

(* 20X22 INDEX FOR OXE INDEX *%) 

(*® RANKS FOR SQUARES °) 

(* ELEMENT MUMNBER FOR 6X6 
INDEX 9) 

(* ARRAY SUBSCRIPT INTO BIT BOARO 
FOR OX8 INDEX °) 

(* CHARACTER FOR TYPE *%) 

(* PIECE FOR TYPE ANDO SIDE ©) 


(© UNOCCUPIED SQUARES FOR 
CASTLING ©) 

(® UNATTACKED SQUARES FOR 
CASTLING °) 


(* EOGES IN VARICUS OIRECTIONS °) 
(* KING SANCTUARY ©) 

(* MULL MOVE ©) 

(* OTHER COLOR °) 

(* MOVE SYNTAX TABLE *%) 


(® LARGER OF TWO NUMBERS °) 


(* SMALLER OF TWO NUMBERS *) 


(* SIGN CF B APPLIED TO 
ABSOLUTE VALUE OF A ®) 


(> SORT PRELIMINARY SCORES ©) 
(© ARRAY OF SCORES *) 

(® ARRAY OF MOVES °) 

(° NUMBER OF ENTRIES *) 


(* LOOP EXIT FLAG %) 
(*° OUTER LOOP INDEX *) 
(° INNER LOOP INDEX °) 
(* HOLD SCORE °) 

(* WOLD MOVE *°) 


INTS® t= FALSE 
ACINTI¢1) t= INTV$ 
BCINTI¢1) s= INRMS 

ENDS 


ENOS ¢€* SORTIT ©) 


PROCEOURE ANORS 


(VAR C8RS3 
Ay BsRS)3 


VAR 
INTY 3 Tv¢3 


BEGIN 
FOR INTY s2 AY TO ZY 00 


(* EXIT ©) 


(* INTERSECTION OF TWO BIT 
BOAROS ©) 


(* RESULT *%) 


(* OPERANDS °) 


(* BIT BOARO WORD INDEX *°) 


CoRSSSCINTY) 82 A.RSSSCINTY) © B.RSSSCINTYI$ 


ENOS ¢*° ANORS ©) 


PROCEOURE CLRRS 
(VAR CERSS 
AeTS)3 


BEGIN 
CoRSSSCXTSV(A}) 
ENOS (€* CLARS 9%) 


PROCEOURE CPYRS 
(VAR C8RS3 
AGRS)$ 


VAR 
InTvy ¢ TY 


BEGIN 
FOR INTY 82 AY TO ZY 00 
CeRSSSCINTY) t= A.RSSSCINTY)$ 


ENO3 (© CPYRS ©) 


PROCEDURE IORRS 
(VAR CERS$ 


Ae BeRS)3 
VAR 

INTY 3 Tr3 
BEGIN 


FOR INTY s= AY TO ZY OO 


ENDS (* TORRS *) 


PROCEDURE NEWRS 
(VAR AERSDS 


VAR 
INTY ¢t TY$ 


BEGIN 
FOR INTY t= AY TO ZY 00 
A-RSSSUINTY) = 095 


ENDS (9 NEWRS *) 


PROCEDURE NOTRS 
(VAR CERS 3 
AsRS)3 


VAR 
INTY 3 Tr3 


BEGIN 


FOR INTY ss AY TO ZY 00 


sz CeRSSS(XTSV(A})) - 


(* REMOVE SQUARE FROM BIT 
BOARD °) 

¢* BIT BOARD °) 

(* SQUARE TO REMOVE *) 


XSSXCA}3 


(* COPY OF A BIT BOARD *) 
(* RESULT ©) 
(* OPERANOD *) 


(* BIT BOARD WORD INDEX °) 


(* UNION OF TWO BIT BOAROS *) 
(* RESULT %) 
(* OPERANOS *%) 


(* BIT BOARO WORD INDEX °) 


¢ BeRSSSCINTVIS 


(* CLEAR BIT BOARD ©) 
(* BIT BOARO TO CLEAR *) 


(* BIT BOARD WORD INDEX *%) 


(> COMPLEMENT OF A BIT BOARD *) 
(* RESULT °) 
(* OPERAND *°) 


(* BIT BOARD WORD INDEX °) 


CeRSSSCINTV) Sz CAX..ZKPOA.RSSSLINTY IS 


ENO? (* NOTRS *%) 


FUNCTION NXTTS 
(VAR AtRSE 


VAR OsTS 


2763 


LABEL 
113 


VAR 
INTX 9 TK 
INTY ¢: TY$ 
X 8 RKE 


BEGIN 
FOR INTY t= ZY DOWNTO AY DO 
IF AeRSTICINTY) <> 0 THEN 
BEGIN 


(#99 BEGIN COC 
(*** FOLLOWING CODE REQUIRES THE 
(99° THE EXPONENT FROM A FLOATING 
(eee 
(oe JUSTIFIED IN A WORD, 
(99° A WORD. °%) 

i KoRKTZ ee ARSTICINTV)S 


6000 OEPENOANT COOE *) 


e —ExPo° 


POINT NUMBER. 
THAT FLOATING POINT NUMBERS HAVE &©8 BIY COEFFICIENTS RIGHT~- 
ANO THAT SETS 


(* MEXT ELEMENT IN BIT BOARD *%) 

(* BIT BOARD TO LOCATE FIRST 
SQUARE, AND THEN REMOVE °) 

(* SQUARE NUMBER OF FIRST SQUARE 
IN BIT BOARD *) 

(° TRUE IFF ANY SQUARES WERE SET 
INITIALLY °) 


(* RETURN ©) 


(* BIT BOARO BIT INOEX *) 
(* BIT BOARO WORD INDEX *%) 
(* KLUOGE WORD *) 


(* LOOP THRU BIT BOARD WORDS *) 


FUNCTION TO RETURN 
IT ALSO ASSUMES 


ARE RIGHT-JUSTIFIEO IN 
(* FLOAT WORD °) 


fad OB sz EXPOCX.RKTZ) © INTY © (2K01)3 


(> CONVERT TO SQUARE NUMBER *) 


Listing 1, continued: ce END; 
(*Set BEGIN 


cs FOR INTY t= AY TO ZY 00 (> SHIFT WORDS *%) 

(9 KeRKTB sa X.RKTB - (4733 (> REMOVE MOST SIGNIFICAAT BIT %) ce BEGIN 

qs ARSTICINTY] 82 TRUNCEX.RKTZ)3 (® INTEGERIZE °) Td B.RSSSCINTY) t= BLRSSSEINTY) © EQGELSe) RSSSTINTYDS 

qe NXTTS ss TRUES (® RETURN A OIT SET °) fd INRS.RSSSCINTY) 8# BoRSSSCINTY) © CAN cAXO7T}3 

qe GOTO 113 (> RETURN ®) qe ARSTITINTY) t2 BeRSTILINTY) DIV 2563 

(#95 EwO COC 6000 OEPENDANT CODE °) ce Enos 

q* FOR INTY ss AY TO ZY-i 00 (° CARRY BETWEEN wOoRODS *) 

(8 BEGIN MACHINE INOEPENOENT CODE °) ig ARSTICINTY) 82 A.RSTICINTY) © INRS.RSTICINTVO1) © PZ2x83 

FOR INTX 8# ZX DOWNTO AX 00 (* LOOP THROUGH BITS IN WORD OF e END’ 
SEY °) (°Bie BEGIN 
IF INTX IN A.RSSSCINTY) THEN qe SFTRSCINRS,B,S193 
BEGIN id SFTRS (A, INRS»S2)$ 
B tz INTXOINT VS (ZK 6133 (® RETURN SQUARE NUNBER °) «6 END; 
ARSSSCINTY} s2 ARSSSCINTY) = CINMTX)3 (9823s BEGIN 
(* REMOVE BIT FROM WORD °) id SFTRSCINRS,8.S82)3 
NXTTS ea: TRUE (* RETURN A BIT SET *) i a SFTRS (A, INRS,S3)3 
GOTO 113 (* RETURN °) i Bd ENO: 
ENO$ (9638 BEGIN 
(*** END MACHINE INDEPENDENT CODE °%) (¢ SFTRSCINRS,8,S3)8 
fd SFTRS (A, INRS,S&) 3 
ENO? qs ENOS 
WXTTS ec FALSE3 (* ELSE RETURN NC BITS SET *) (*Be:e BEGIN 
118 (* RETURN *) (¢ SFTRSCINRS,B,S4) 3 
ENOS (* NXTTS ®) if SFTRS CA, INRS S198 
ce ENO} 
( omis BEGIN 
«¢ SFTRSCINRS, 8,81) 3 
FUNCTION CNTRS (® COUNT MEMBERS OF A BIT fd SFTRS CA, INRS,S2) 3 
BOARO *) (e ENO? 
CAERSDSTSS (* BIT BOARD TO COUNT ©) (°N28 BEGIN 
qe SFTRSCINRS» 8,82) 3 

VAR i hd SFITRS CA, INRS.S2) 8 

INTY ¢ TY (* BIT BOARD WORD INOEX °) qs END: 

INTS 2 TS3 (* TEMPORARY *) (°n3s BEGIN 

IMRS ¢ RS3 (® SCRATCH ®) ce SFTRSCINRS,6,82)3 

Imts ¢ TS3 (® SCRATCH ®) qe SFTRSCA,IMRS,S3)3 
qs ENO’ 

BEGIN (°Nes BEGIN 
INTS 82 03 qe SFTRSCINRS,6,83) 3 

qe SFTRSCA,INRS.S3)3 

(99° BEGIN MACHINE INDEPENDENT CODE ®) qe ENOs 
CPYRS (IMRS ADS (°nSs BEGIN 
WHILE NXTTSCIMRS, IMTS) DO (* SFTRSCINRS,.B,83)3 

IMTS te INTSe1$3 (* COUNT SQUARES *°) qe SFTRSCA,INRS,S4) 3% 

(#9* ENO MACHINE INOEPENDENT COOE °) qs ENO: 

(*m68 8 6BEGIN 

(*** BEGIN COC 6600 OEPENOENT CODE °) (6 SFTRSCINRS, B, 84) 3 

(%*° FOLLOWING CODE REQUIRES THE °CARO® FUNCTION TO qe SFTRS (CA, INRS»S4) 3 

(#9 COUNT THE MEMBERS IN A SET. *) thd Eno?’ 

(FOR INTY s8= AY TO ZY OO (°N78 BEGIN 

(® INTS t= INTS ¢ CARDIAL. RSSSCINTY IDS qe SFTRSCINRS » 8,84) 3 

(*** ENO COC DEPENDENT COOE ®) (¢ SFTRS CA, INRS,S1)3 

c¢ ENO? 
CNTRS t= INTS$ (* RETURN SUM ®) (*N8e BEGIN 
ENOs (¢€* CNTRS 9) qe SFTRSCINRS,8,81)8 
q¢ SFTRS (A, INRS.S1) 3 
(hd END; 
(ENDS 
PROCEDURE SETRS (® INSERT SQUARE INTO BIT (** ENO COC 6000 OEPENDENT CODE °) 
BOARD *) 
(VAR CaRSs (* BIT BOARD °°) ENO? (9° SFTRS 9) 
ateTysd; (* SQUARE TO INSERT ®%) 

BEGIN 
CeRSSSCKTSYV(A)) = CeRSSSEXTSY( AD) © XSSKCAIDS FUNCTION INRSTB (* SQUARE IN BIT BOARD BOOLEAN *) 

ENOS (* SETRS %) CARRS3 (* BIT BOARD °) 

BsTSpsTss (® SQUARE IN QUESTION 9) 
BEGIN 

PROCEOURE SFITRS (* SHIFT BIT BOARD *) INRSTB 8= XSSKCIBI <= ARSSSEXTSV(BI13 

(VAR ASRSS (® RESULT ©) ENDS (* INRSTB %) 
BrRss (* SOURCE ®°) 
CsTé&); (* OIFRECTION *%) 

VAR FUNCTION NULRS (* NULL BIT BOARD °) 
INRS #2 RS3 (* SCRATCH ®) (ASRS) (* BIT BOARD TO CHECK *%) 
INTS ¢ S$ (> SCRATCH *) ¢TBs (® TRUE IF BIT BOARO EMPTY *) 
INTY ¢ TY$ (* BIT BOARO WORD INOEX *) 

VAR 
BEGIN INTV 8 TY$ (* BIT BOARO WORD INOEX °) 
INTS ¢ TB3 (* TEMPORARY VALUE °%) 

(**9* BEGIN MACHINE INDEPENDENT CODE *%) 

NEWRS (ADS (® CLEAR NEW BIT BOARD *) BEGIN 

WHILE NXTTS(B.INTS) OO INTO sz TRUES 

IF XTULSCXTSLOINTS)*¢XFEO(C)) >» O THEN FOR INTVY sz AY TO ZY O00 
(* SHIFT EACH BIT *) INTB t= INTB AND (CA.RSTICINTY) = 095 
SETRS(ASXTLSUXTSLOINTS J OXTEO(CI I) $ NULRS es INTBS 

(*** END MACHINE INOEPENDENT CODE °) ENOS ¢* NULRS ©) 

(*** BEGIN COC 6000 OEPENOENT CODE *) 

(*** FOLLOWING CODE ASSUMES THAT MULTIPLICATION OR OIVISION 

(25° BY A CONSTANT POWER OF 2 IS DONE WITH A SHIFT INSTRUCTION. ©) 

(*CASEe C OF FUNCTION NULMVB (* NULL MOVE BOOLEAN *) 

(*Sis BEGIN (AsRM) (* MOVE TO TEST ®°) 

hd FOR INTY @= AVY TO ZY 00 (* SHIFT OME PLACE %) 1763 (* TRUE IF WULL MOVE °%) 

qe BEGIN BEGIN 

qe BeRSSSCINTY) ez BeRSSSCINTY) = EOGECSLIRSSSCINTY)3 WITH A OO 

id ARSTICINTY) t= BRSTICINTY) OLV 23 NULNVB 82 RMAC AND RHPR ANDO (NOT RACA)D3 

qs END$ ENO 3 (® NULMAVB °°) 

qe ENO; 

(*S28 BEGIN 

qc FOR INTY s= ay TO ZY 00 (* SHIFT WORDS *) 

qs BEGIN PROCEDURE INICON (® INITIALIZE GLOBAL CONSTANTS *) 

qc BeRSSSCINTY) t2 BRSSSCINTY) = ENGECSZI-RSSSCINTVIS 

qs INRS .RSSSTINTVY) ea BeRSSSCINTV) © (2X7. .2X33 VAR 

qs AcRSSSCINTY) 82 BeRSSSCINTVI = CZ2K°7..2KI3 INYO & TO? (® OIRECTIONW INDEX *) 

(* ARSTICINTY) 82 AcRSTICINTY) *& 256 INTE ¢ TES (* OITRECTION 5) 

(* ENO? INTF ¢ Ts (® FILE INOEX °) 

cs FOR INTY sz AYei TO ZY 00 (> CARRY BETWEEN WORDS °) INTI ¢ TI3 (> SCRATCH *) 

cs ARSTICINTY) 2 ARSTICINTV) © INRS .RSTICINTY=-1) OLV PZX83 INTL 8&8 TL (* LARGE BOARD INDEX *) 

(4 END? IMTQ s TQ (* CASTLE TYPE INDEX *) 

(*S$3s BEGIN INTR & TR3 (> RANK INDEX ©) 

qe FOR INTY s= AY TO ZY 00 (® SHIFT ONE PLACE %) INTT 8 TT3 (® SQUARE INOEX ©) 

qs BEGIN INTX ¢ Tx3 (* SEV ELEMENT INDEX *) 

qe ARSSSCINTV) 82 B.RSSSLINTV) - ENDGECSSI-RSSSCINTYV 33 Inty s fv3 (> BIT BOARD WORD INDEX *%) 

qe ARSTILINTY) sa ARSTICINTY) * 23 ImTI 8 T28 (> SCRATCH 9) 

q* ENDS INRS « RS3 (® SCRATCH *3 
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Listing 1, continued: XTRESCINTRyINTF) a2 INTTS (® SET MATRIX TO VECTOR 
TRANSLATION ©) 


MVLSCINTL) 82 INTTS (*® SEY LARGE BOARD TRANSLATION 
PROCEOURE INISYN (® INITIALIZE MOVE SYNTAX TAGLE WITH SMALL BOARD 
TAGLE ENTRY *) IMOEX °) 
CAGRADS (® MOVE SVMTAX °3 KTSLOCINTT) e= INTL? (° SET SMALL BOARD TRANSLATION 
TABLE WITH LARGE BOARD 
BEGIN IMOEX *) 
WITM SVMTXCINTI) OO XTSROINTT) 82 INTRE (* SEY RANK OF SQUARE °) 
BEGIN XTSFCINTT) s2 INTES (* SET FILE OF SQUARE °) 
WITH RYLS 00 IMTL t= INTL 013 (* AOVANCE LARGE BOARD INDEK *) 
OEGIN ENDS 
ROPC s2 TRUE? INTL es INTL O23 (> ADVANCE LARGE BOARD INOEX TO 
ROSL t= AL AACO} <> * “3 SKIP BOROER *) 
ROKQ sa AC AAC1) <> 7 3 ENO; 
ROMO 82 AC AACZ) <> * 3 
RORK as AL AACS) <> * 3 (9° INITIALIZE 6X6 TO BIT BOARD TABLES °) 
ENO: 
RYCH e2 AC AACH)3 InT?T e2 -33 
WITH RYRS DO FOR INTY s= AY TO ZY 00 
BEGIN . BEGIN 
ROPC 2s AL AACS] <> * “3 FOR INTX se AX TO Zx 00 
ROSL 82 AC AACH} <> * “3 BEGIN 
ROKQ sa AC AACT}) <> 7 “3 INTT ea INTT 013 
RONB #2 AC AACE) <> * “S XVSXCINTT) e= INTXS 
RORK gs AC AAC9}) «> * 8 KTSVCINTT) sz INTYV3 
END: XSSXCINTV) 82 CIMTX3S 
ENO: WEWRS(KRSSCINTT 9) 3 
INVTI e@= INTI¢1L3 XRSSCINTTI.RSSSCINTV) 82 CINTKIS 
ENDS (® INISYN %) ENO 3 
ENO? 
PROCEOURE INIXTP (* INITIALIZE PIECE TRANSLATION (®* INITIALIZE CONSTANT BIT BOAROS °) 
TABLES °%) 
(A t TRS (* PIECE TO BE TRANSLATEO *) FOR IWTR tz R1 TO RB OO 
8 s TCs (* OISPLAY EQUIVALENT °) NEWRS (XRRSCINTRIDS 
Ce TMs (*® COLOR OF PIECE *) 
os TUS (® TYPE OF PIECE °) FOR INTE t= Fi TO FB OO 
E s T83 (* TRUE IF SWEEP PIECE °) NEWRS CKRESCINTE DDS 
€F ¢ YES (® FIRST OIRECTION OF MOVEMENT °) 
Gt TES (© LAST DIRECTION OF MOVEMENT °) FOR INTR te Ri TO RB 00 
Hoe Tyd3 (* VALUE OF PIECE *) Eon Tare tz F1 TO F8 00 
N 
BEGIN SETRSCXRRSCINTRI, XTRESCINTR, INTE DDS 
XTPCCA) e= 83 SETRSCKRFESCINTE )  XTRESCINTR, INTE 3) 3 
XTPMC A) 82 C3 ENO; 
XSPB(A) t= E3 
XFPEC A) es Fe FOR INTF s2 Fi TO FB OO 
XLPECA) 82 G3 NOTRS CXNFSC INTE), XRESC INTE )D3 
XTPUCA) t= 03 
XTPVCA) sz M3 FoR INTR 8= RL TO RB OO 
If A <> MT THEN NMOTRS (XNRSCINTRI,XRRSCINTR)D3 
XTUMPI0O,C) 8° AS 
ENMOs (9 INIXTP ©) (9° INITIALIZE EDGES °) 
CPYRS CEOGE( SI), KRESCFIIDS 
BEGIN (° INICON °) CPYRS CEDGE(S2 3, XRRSCRO)D) S 
CPYRS (ENGELSS 1, XRFES(FR)) 3 
(°° INITIALIZE PIECE CHARACTERISTICS °) CPYRS(EOGE(S6}, XRRSCRIID $ 
TORRS (E0GE(81),E0GE(S1),E0GEC(S2))3 
INIXTP(LP, PAT VLITE EP FALSE BL 98291964) 3 TORRS (EOGE( 82}, EOGE(S2),E0GE(SS))3 
INIXTPCLR, WB LITE,ER, TRUE 1S15S0e5*64)3 TORRS (ENGE(B3}, EOGE(S3) ENGEL S&))3 
INIXTPULN» “C7 oLITE pENs FALSE NL NO, 3°64) $ TORRS (E 0GE(B4), E0GE(S&), EOGE(S1)93 
INIXTP(LB, 70" LITE EB, TRUE »81.84,3%66)3 TORRS (EOGE (NZ }, EO0GE( B1), XRRSIR71)3 
INIXTP(LO, "EM LITE SEQ, TRUE »B1,S%, 9°64) $ TORRS (EOGE( NZ}, EOGE( 82), XRRSC R713 
INIXTPULK WF LITE SEK FALSE B1eS608) 3 TORRS (ENGE (NS ), E0GE( 82), xXRFSCF71)3 
INIXTP (OP, 727 DARK FEP FALSE» B83, B84, 91°64) 3 TORRS CEOGEC WG), EDGEC BS), XRFSCF7IDS 
INI XTP (OR, 727 DARKER, TRUE 1510S 4°5%66)3 TORRS CEOGE( NS 1, EOGE( OS), XRRSC R293 
INIXTP CON, 73" DARK SEN FALSE N1yNBe-3%64) $ TORRS (EDGE( NG J, E0GE( BS), KRAS(R2903 
INIKTP(0B, 76" DARK EB, TRUE ,815B4,°3°66) 3 TORRS (EOGEC NT), EOGE( BH), XRFSCF2Z)93 
INIXTP(0Q, "5" DARK EQeTRUE 181.5 %.-9%66)3 TORRS (EOGE (NG ),EOGE (B81), xXRFSCF2393 
INIXTO(OK, 6" DARK, EK, FALSE,861.8%.00 3 
INIXTPCHT, "=" NONE DEP FALSE, 82,8140) 8 (9 INITIALIZE CORNER MASK ©) 
XTGMPCPQ,LITE) t= LQ XTIGMPLPQ,OARK) #2 O0Q3 XIGCIPQ) sz “Q™§ TORRS CINRS,XRRSCR1I), KRRSTCRZI) 8 
XTGMPCPR,LITE) 82 LR KIGMPCPR,OARK) t= OR$ XYGCIPR) tz “R™S TORRSCINRS,INRS,XRRSC RII) 3 
XTGMPCPN,LITE) sz LN$ XTGMPCON,OARK) sz ONS XTYGCOIPN) tz “NMG TORRS CI NRS, INRS» XRRS( RODD 
XTGMPCPB,LITE) t= LBS XTGMPLPB,DARK) t= 083 XYGCEPB) t= “BS TORRS (CORNR, XRFSC FL), XRESCF2998 
TORRS (CORNR,CORNR, XRFSCF73)3 
MTUCCEKD de “K"S TORRS (CORNR, CORNR, XRFSEF BIDS 
KXTUCCEQ) 82 "Q"3 ANORS (CORNR,CORNR, INRS) S 
MTUCCER) ga “R™3 
XTUCCEN) t= "NS (°° INITIALIZE OIRECTION TAME 9) 
XTUC(EB) ss “B%3 
XTUCLEP) t= “=p%s XTEO(CNI De? 193 XTEOCNZ)es 213 
XTEOCNOD8= BSXTEOCGLIe= YBIIXVTEO(SZIt= AOSXTEDCBSds= LASKXTEOC NSIe= 128 
(9% INITIALIZE OTHER CONSTANTS ©) MTEOCSL}0= -35 MTEOCS3S)e= 13 
XTEOCN7 Dezel 2sxXTEO( Be dseseL AS XTEO(SeItz-i OS KTEOLBSI8= -9SXTEO( Ne) =z 83 
XTBCCFALSE) gt “o%s KTEOCN6)8 F-22158 XTEDINS )82-1938 
XTBCE TRUE ) sa "OS 
(®° INITIALIZE SQUARE OIFFERENCE TO OIRECTION YABLE °°) 
OTHER(LITE} 22 OARK 3 XTMVCLITE) ss 13 
OTMERCOARK) @2 LITES XTMVEDARK) 82 -13 FOR INTI ¢2= AZL TO ZAL OO 
OTHER( NONE) 82 NONES XLLOCINTI)D t= 03 
FOR INTE sz Bi TO S& O09 
XTMACLIVE) ts * WHITE “3 BEGIN 
XTMATOARK) ts ° BLACK “3 INTO t= XTEOCINTE)S 
XTMACNONE) ss * NO ONE “3 FOR IMTI #2 1 TO 7 00 
XLLOCIMTISINTO) es INTOS 
XTQACLS) es “WHITE KING?3 ENOS 
KTQACLL) 82 “WHITE LONG@3 FOR INTE 8= Ni TO NB OO 
XTQACOS) es “BLACK KING™3 MLLOCXTEOCINTE)) s= XTEOCINTE)3 


XTQACOL) 82 “BLACK LONG™$ 


(** INITIALIZE CASTLING TRANSLATION TABLES °) 
(O° INITIALIZE 16x22 TO OXG AND OX8 TO 10X32 TRANSLATION TAQLES °) ; 


TORRS (CXSQSELS 1, XRSSLXTRESC RL FO) 1 XRSSCKTRFESCRA FSIII3 
FOR INTL s= AL TO Zt 00 (* LOOP THROUGH LARGE BOARD °) TORRS (XSQSELL Dy XRSSCKIRFESERL, FL) Do RRSSENTRES( RI FS) 
MTLSCINTL) t= o23 (* PRESET ARRAY TO OFF BOARD °) ITORRS (XSQSCOS 3, XASSEXTRESERE, FO) D, RRSSEXTRFSC RG FSI3)8 
TORRS CXSQSL OLD, XRSSLNIRFSE ROFL) Do XRESCXTRESE RO FSI393 
IMTL 2 223 (* INDEX OF FIRST SQUARE ON LARGE 
BOARD °) TORRS (XRASOLLS) o XRSSL KTRESE RA FEI) oRRSSEXTRESCRIF7IID 
INTT 83 033 (* INOEX OF FIRST SQUARE ON SMALL TORRS CXRQSOLCLL) o XASSCXTRESE RA o FOI)  XRSSCXTRESECRIFSIINS 
BOARD *) TORRS (CXRQASALLS) oXRSSCXTRESCRE o FS 1) XRQSOLLS ID 3 
FOR INTR t= Ri TO RO 00 (* LOOP THROUGH RANKS *) TORRS (KRRASACLL) o XRSSCXTRESC RE FS 1). XRQSOLLLID 2 
BEGIN TORAS CXRQSOLLL) - XRSSENTRESC RAL F293» XRQSOELLIDS 
FOR INTE 82 F1 TO FB 00 (* LOOP THROUGH FILES ©) 
BEGIN TORRS (KRASOL OS) o XRSSLXTRFSC AG FEI) NARSSENTRESCROF7IIIS 
INTY t= INTY O33 (® ADVANCE SMALL BOARD INOEX °) TORRS (KRASOLOL) o XRSSCNTRESE RO FOI) XRSSCKTRESCROE F3II93 
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Listing 1, continued: 


TORRS (XRQSALOS) oXRSSCKXTRFS (ROW FS 3) oXRQSOLOSID 3 
TORRS (KRASAL OL) XRSSC KTRESCROFS)).XRQSOELOL)) 3 
TORRS (XRASOLOL Do XRSS( XTRES( ROF 213 .XRQSOCOL }) 3 


FOR INTGQ 82 LS TO O& 00 
WITH KRQNC INTQ) OO 


BEGIN 


RNCP 8s NTL 
RNCA os FALSE 
RMAC t= TRUES 

RNCH 8= FALSE 
RANT ce FALSES 
RNIL 82 FALSES 
RNSU t= FALSE 
RMPR sa FALSE? 
RMOO t= TRUES 


KRQMILS)RMFR 
XRQMILL I. RMFR 
XRQN(OS )RMFR 
XRQMLOL I RMFR 


KRQMCLS).RMQAS 
KXRQMILL ) RNQS 
KRQNCOS 1. RNAS 
MRQMNC OL. RNAS 


XTMQCLITE) es 
XTMQCOARK) ¢2 


Ls 


XTRFESTRI,FSIS 
KTRFSCRI FSIS 
KTRES(ROFSIS 
XTRESCRBEWFSIS 


FALSE$ 
TRUES 
FALSE3 
TRUE? 


OSs3 


KMTQSC(LS) 82 XTRFS(R1,F 8): 
XTQS(LLI Se XTRESCR1IFLIINS 
XTQS(OS} t= KTIRFSC(RE,FBIS 
XTQSCOL) es KIRES(ROFI 23 


(* INITIALIZE MULL MOVE ©) 


WITH NMULMY 00 
BEGIN 
RMFR ga AS? 
RNTO t= AS? 
RMNCP ss NT3 


RNCA se FALSE3 
RMAC te TRUES 

RACH t= FALSE’ 
RMT ez FALSE? 
RAIL 82 FALSES 
RMSU t= FALSES 
RMPR se TRUES 


RNPP t= PBS 
ENO? 


XRQMTLS).RATO 
XRQMTLL I RATO 
KXRQN(OS). RTO 
XRQMT OL). RTO 


(9° INITIALIZE COMMAND PROCESSING VARIABLES °) 


JNTI 22 253 


ICAROC ZI) b= M33 
ILINECZJ) tz “33 


(°° INITIALIZE MOVES SYNTAX TABLE ©) 


INTI #2 SYNCF3 


INISVN(™. *e "ys 
INISYN(™ Ps 1798 
INTSYNG"s 1°°P “)3 
INISYN(@ oP/ RMS 
IMISVN("sS R FP “3 
INISVN(™ *P/s RiM“)$ 
INISYN(°/ RIP bea 3 
InIsyne@ P/KR “8 
INISYN("/KR 9P “")3 


InIsvnc™ SP/KRIMDS 
IMISVM("/KRI OP “3 
INISVN("4) 8 19PS) = 17)3 


IMISVNC("S R OPS 
IWISYNC"S §61°P/ 
INISYM("°s R °P/ 
INISYNC™7 RIP 
IMISYNC?S §61°°7/ 
INISYNC?7 R1I9P/ 
INISYN(%7 R 9P7 
INISVN(*/KR 9P/ 


bed 
17)3 
ave 
RiMd3 
Rms 
RiW)3 
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INISYNC"S = 1°P/KR “D3 
INISVNC"SKR 8P7 R “MDS 
INISYN("7 R SPSKR “D3 
INISYNCTS §619P/KRI™%)S 
INISYNC°/KRIFPS 1723 
IMISVNC™ R SP/KRI™M)S 
INISVN("/KRIFPS R M)5 
INISYN("7 R19P7 RIMS 
INISYN("/KR FPS R1IM)3 
INISYN("/ R1IFPFKR MOE 
INISYNC*/KR SP/KR “D8 
INISYN(@/KRIEPS RI7)S 
INISYN(7/ R1IFPSKRI)S 
INISYN(M/KRIFP/KR M)$ 
IMISVNC"SKR FPSKRIMDS 
INISYN(°/KRIFPSKRINM) 


INISYNC® = 
INISVN(® = 
INISVYN(%/ 12 
INISYN("s R 
INISYNG?S Le 
INISYN("/ R © 
IWISYN("/ Rie 
INISYNE°/KR - 
IMISYN("/ Rie 


R1i")$ 
KRIAMDS 
RIMS 
R193 
KRIMD3 
KRIMI3 
Ri")3 
RiW)3 
KR1IM) 3 


INISYNC"/KR © 
INISVN(°/KRie 


KRAMD3 
KRIM) 3 


C9 ZMZTIALIZE LETS 


FKPSHO 82 103 


FKSANQ te 15863 


MTRFSCRIGF7IS 
XTRFESCRLIF S338 
RTRFSCRE FIDE 
XTRESCREF IIS 


FHAXMHT ¢= 296% 
FMODEL ss 183 
FPAOCRIF1I) t= 8% 
FRPAOCRIF2) t= 63 
FPADCRIFS) sa S3 
FPAOCREIFR) es 188 
FPAOCRI FS) t= 153 
FPAOCRIFE) ss 53 
FPAOCRIFT) 82 03 
FPAOCRIF EG) 82 63 
FPOLOK es 263 
FPCONN ss Sz 
FRPELMX w= 123 
FROUBL s= 683 
FRK7TH t= 126% 
FYRADE t= 363 
FTROSL ea $1563 
FIRPOK s2 23 
FIRPUN 82 63 
FUKING e= S03 
FUMAIN 82 13 
Fwunine e= 2003 
FUPAWN es 1086 
FWUROOK t= 23 
wINOOW 82 303 


(99 IWITIALIZE SWITCHES ©) 
SWEC e2 TRUES 
SWPA 82 TRUES 
SwPS ts FALSES 
SWRE ge TRUES 


SWSU t= FALSES 
SWTR sz FALSE$ 


€°° INITIALIZE MAIN LOOP CONTROL VARIABLES °) 
GOING «2 03 


ENOS ¢*° INICON ©) 


PROCEOURE INITAL(VAR AsRB) 3 (* INITIALIZE FOR A NEW GAME °) 
VAR 
INTF 9 TFS (* FILE INOEX ©) 
INTR & TRE (* RANK INDEX *%) 
BEGIN 
WITH A 00 
BEGIN 
ROTM sz LITES (* SIOE TO MOVE *) 
RBTS t= 13% (* NO ENPASSANT SQUARE ©) 
ROTI t= 0% (® GAME HAS WOT STARTED °) 
RBSQ se (LSoLL.0S,0L)3 (* ALL CASTLING MOVES LEGAL °) 
FOR INTE sz F1 TO F8 00 (* LOOP THROUGH ALL FILES *) 
BEGIN 
RBIRF(R2,INTF) s= LPS (* SET LIGHT PAWNS ON BOARD °) 
FOR INTR #2 RI TO RO DOO ¢* LOOP THRU MIOOLE OF BOARD ©) 
RBIRFCINTRINTF) t= MTS (* SET MIOOLE OF BOARD EMPTY *%) 
RBIRF(R7,INTF) s= OP3 (* SET DARK PAWNS ON BOARO °) 
END$ 
ROIRFCRIFL} t= LRE (* SET REMAINOER OF PIECES ON 
BOARO *) 


RBIRFCRI,F2) t= LLNS 
RBIRF(RI,F3) 82 LBS 
RBIRF(RL FH} sz LQ3 
RBIRFIRL,FS) sz LKS 
RBIRFIRI,F6) 8 LBS 
RBIRF(RIF7) s= LUNE 
RBIRFCRL,FS) sz LRE 
RBIRF(RGE,FL) &= ORE 
RBIRF(RE,F2) sz ONS 
RBIRFCRE,F3)} &8= OBS 
RBIRF(RE,Fo) t= OOS 
RBIRF(RBOBFS) s= OK3 
RBIRFCRB,FE) &8= 083 
RBIRF(RB,F7) &= ONS 
RBIRFCIRS,FB) t= ORS 


MOVMS #2 “ ENTER MOVE CR TYPE GO. “s 
WRITELNCMOVMS)$ 
LSTMV ss NULMVS 

END? 
ENOS ¢* INITAL ®) 


(* INITIALIZE PREVIOUS MOVE °%) 


ENDS 


BEGIN 


IF SWPA THEN 
BEGIN 


WRITELN(™ PAUSING “D8 


REAOLNS 
ENOS 


BEGIN 


WITH A DO 
BEGIN 


PROCEQURE PAUSERS 


(* PAUSER ®) 


PROCEDURE PRIMOV(ASRM) § 


(* PAUSE FOR CARRIAGE RETURN *) 


(> PRINT A MOVE *) 


WRITE(™ FROM “,FMFRE2,” TO *,RMTO82)3 
THEN 


IF NULMVBO(A) 


WRITE(™, NULL MOVE™) 


ELSE 
BEGIN 


IF RMCA THEN 


WRITE(", CAPTURE “,XTPC(RMCPI),7,™) 
ELSE 
WRITEC™, SIMPLE,") $8 
IF NOT RMAC THEN 
WRITEC™ NOM)$ 
WRITEC™ ACS™)$ 
IF RACH THEN 
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Listing 1, continued: 


WRITEC™, CHECK™D$ 
IF RMMT THEN 
WRITE(™, MATE™) 3 
IF RMIL THEN 
WRITEC™, ILLEGAL™) 3 
IF RMSU THEN 
WRITEC™, SEARCHED”) 3 
CASE RMPR OF 
FALSEs (* NOT PROMOTION *) 
CASE RMOO OF 
FALSE: (¢(* NOT CASTLE *) 
IF RMEP THEN 
WRITE (™, ENPASSANT™)$ 
TRUES (* CASTLE *) 
BEGIN 
WRITEC™, CASTLE “D3 
IF RMQS THEN 
WRITE ("LONG™) 
ELSE 
WRITE C"SHORT™) 3 
ENDS 
ENDS 
TRUES (* PROMCTION °) 
BEGIN 
WRITE(%, PROMOTE TO “)3 
CASE RMPP OF 
PQs WRITE (“QUEEN™) $ 
PRe WRITE (WROOK™) § 
PBs WRITEC“BISHOP™)s 
PNS WRITE C°KNIGHT™) § 
ENO: 
ENDS: 
ENO 
ENO: 
ENO: 
WRITELN(7.7)$ 
END3 (¢€* PRIMOV ©) 


PROCEDURE PRINTBCAERC)$ 


VAR 
INTR 8 TRS 
INTF 2 TFS? 


BEGIN 
WRITELNS 
FOR INTR #2 R&B OOWNTO R1 OO 
BEGIN 


WRITE (7 “,OROCINTRIGLE1—”™ “D$ 


FOR INTF g= F1 TO F8 00 


WRITE (XTPCCALCXTRESCINTR, INTED ID) 


WRITELNS 
ENDS 
WRITELN (* W RNBQKBNR™) § 
ENDs (* PRINTB 4) 


PROCEDURE PRINBBC(ASFS) § 


VAR 
INTR 3 TRS 
INTF ¢ TFS$ 


BEGIN 
WRITELNS 
FOR INTR s= RB OOWNTO R1 DO 
BEGIN 


WRITE (™ “,OROCINTRIO1292,7 “28 


FOR INTF sz F1 TO F8 DOO 


(* PRINT A BOARO *) 


(* RANK INOEX *) 
(* FILE INDEX *) 


(* WRITE A BLANK LINE *) 
(* LOOP DOWN THROUGH RANKS *) 


(* OUTPUT RANK LABEL %) 
(* LOOP ACROSS THROUGH FILES *) 


(* OUTPUT CONTENTS OF SQUARE *) 
(* WRITE OUT A RANK *) 


(* WRITE OUT BOTTOM LABEL *) 


(* PRINT A BIT BOARD *) 


(* RANK INOEX *) 
(* FILE INDEX *%) 


(* WRITE OUT A BLANK LINE ©) 
(* LOOP OOWN THROUGH RANKS ©) 


(* OUTPUT RANK LABEL *) 
(* LOOP ACROSS THROUGH FILES °) 


WRITE (XTBCCINRSTBCA,XTRESCINTR, INTE DD 30S 


WRITELNS 
ENO 
WRITELN (° W RNBQKBNR™) 3 
ENOS (¢* PRINBB *) 


PROCEOURE PRINAMCASEX) § 


VAR 
INTR, JNTR ¢« TRE 
INTE, JNTF 8 TFS 


BEGIN 
WRITELNS 
FOR INTR t= RB DOWNTO R1 OO 
BEGIN 
FOR JNTR t= RB DOWNTO R1 00 
BEGIN 
FOR INTF s= F1 TO FB OO 
BEGIN 
WRITEC™ “25 
FOR JNTF t= F1 TO F& DO 
BEGIN 


(* OUTPUT CONTENTS OF SQUARE *) 
(* WRITE OUT A RANK ©) 


(* WRITE OUT BOTTOM LABEL °) 


(° PRINT ATTACK MAP ©) 


(* RANK INOICES *) 
(* FILE INOICES °) 


WRITE (XTBCCINRSTBCACX TRE SC ENTREINTE ) De XTRESCINTRe INTE JD DS 


cNODS 
WRITEC™ “DS 
END? 
WRITELNS 
ENOS 
WRITELNS 


IF INTR IN (R1isk3,R5,R7) THEN PAUSERS 


ENDS 
ENOS (* PRINAM *) 


PROCEDURE PRISWICASFA363TB)3 


BEGIN 
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(* PRINT A SWITCH *) 


WRITEC™ “, AC AAD, AT AAG1)) § 
IF 8 THEN 
WRITELN(™ ON) 
ELSE 
WRITELN(™ OFF™) § 
ENO? (* PRISWI *) 


PROCEDURE MBEVAL3 (* EVALUATE MATERIAL BALANCE °) 
VAR 
INTI 8 TI3 


BEGIN 
IF MBLTE <> @ THEN 
IF MBLTE > O THEN 
INTI 8= MOPWNILITE) 
ELSE 
INTI t= MBPWNI DARK) 
ELSE 
INTI sz 03 


MBVALECINTK) 8= SIGNCIMINGMIN(IF MAXMT ABS (MBLTE)) 
+FTRADE® ABS (MBLTE) SC FTROSL-MBTOT) & (GF INT I ¢F TRPOK) 
OIV (&*INTICFTRPWN) DIV 262144,16320) MBLTED$ 


END$ (* MBEVAL *) 


PROCEDURE MBCAPT (® EVALUATE MATERIAL AFTER 
CAPTURE *%) 
CASTP)s (* PIECE CAPTURED *) 
BEGIN 
MBYTOT s= MBTOT - ABS(XTPV(A})$ (* TOTAL MATERIAL ON BOARD *) 


IF XTPUCA) = EP THEN 
MBPWNEOXTPM(CA)) 8= MBPWNEXTPM[A}}) = 18 
(* REMOVE PAWN IF NECESSARY *°) 
MBLTE t= MBLTE - XTPVIADS (* LITE AOVANTAGE *) 
MBE VAL? (* EVALUATE MATERIAL *) 
ENDS (* MBCAPT *) 


PROCEDURE MBTPAC (* REMOVE CAPTURE FROM 
MATERIAL BALANCE OATA. THIS 
IS THE INVERSE OF MBCAPT °) 
(ASTPD)S (* PIECE UNCAPTURED °) 


BEGIN 
MBTOT t= MBTOT © ABS(XTPVIAIDS 
TIF xTPUCA) = EP THEN 
MBPWNCXTPM(A)) 8= MBPWNCXTPM(A)) @¢ 13 
MBLTE t= MBLTE ¢ XTPVIA)D$ 
ENOS (* MBTPAC *) 


PROCEDURE MBPROM (* EVALUATE MATERIAL BALANCE 
CHANGE DUE TO PAWN 
PROMOTION *) 
CASTP)S (* PIECE TO PROMOTE TO *) 


BEGIN 
MBTOT t= MBTOT + ABSCXTPVLA)-XTPV(XTUMPCEP XTPM(A}}))3 
(* TOTAL MATERIAL ON BOARD *) 
MBPWNEXTPML[A])) t= MBPWNEXTPMCAD) - 130% COUNT PAWNS ®) 
MBLTE t= MBLTE ¢ XTPVCA)-XTPVCXTUMPLEP,XTPMCADID3 


MBEVALS (* EVALUATE RESULT *) 
ENDS (* MBPROM ©) 


PROCEDURE MBMORP (* REMOVE PAWN PROMOTION 
FROM MATERIAL BALANCE DATA. 
THIS IS THE INVERSE 
OF MBPROM ©) 
CASTPDS (* PIECE PROMOTED TO *) 
BEGIN 
MBTOT t= MBTOT = ABS(XTPVT AD“ XTPVIXTUMPCEP,XTPMCAIII)$ 
MBPWNEXTPM(A)) &2 MEPWN(XTPMCA)) © 13 
MBLTE t= MBLTE = (XTPVIAJ“XTPVIXTUMPLEP,XTPMCAIIID$ 
ENOS (* MBMORP *) 


PROCEDURE AODATK (* AOO ATTACKS OF PIECE TO DATA 
BASE *%) 
(ASTS)S (* SQUARE OF PIECE TO ADD 
ATTACK *%) 
VAR 
INTB ¢s TBS (* LOOP CONTROL BOOLEAN *) 
INTO 8 TOS (* CURRENT OIRECTION OFFSET ©) 
INTE 8 TES (* CURRENT OIRECTION INDEX ©) 
INTM ¢ TM3 (* COLOR OF CURRENT PIECE *) 
INTP 8 TP$ (* CURRENT PIECE *) 
INTT 8 TT$ (* RUNNING SQUARE *) 
BEGIN 
INTP t= NBORDIA)$ (* PIECE OF INTEREST *) 
INTM ¢= XTPMCINTP) 3 (* COLOR °) 
FOR INTE 8= XFPELINTP) TO XLPELINTP) 00 
BEGIN 
INTT t= AZ (* INITIALIZE RUNNING SQUARE ®) 
INTB t= XSPBLINTP)$ (* TRUE IF SWEEP PIECE *) 
INTO t= XTEOCINTEDS (* OFFSET *) 
REPEAT 


INTT t= XTLSEXTSLOINTT) © INTOI$ (* STEP IN PROPER OIRECTION *%) 
IF INTT >= 0 THEN 
BEGIN 

SETRSCATKFROADLINTT) § 

SETRSCATKTOCINTT) »Ad§ 

SETRSCALATKCINTMJ,INTT) $ 

IF NBOROLINTT) <> MT THEN 

INTB t= FALSES 


(> COUNT PAWNS OF WINNING SIDE 9%) 


Listing 1, continued: 


END 
ELSE 
INTS t= FALSES 
UNTIL NOT INTB3 
ENDS 
ENO? (* AODDATK *) 


PROCEDURE ADOLOC 
CaeTss 
BsTP)$ 


BEGIN 
CLRRS(TPLOCECMT),AD 3 
SETRS(TPLOCIB},AD 3 
SETRS(TMLOCE XTPM(B)3,A)$ 
SETRSCALLOC(E INTK 35 ADS 
NBOROCA) 82 B$ 

ENOS (¢* AOOLOC *) 


PROCEOURE CLSTATS$ 


BEGIN 
WITH BOARD 00 
BEGIN 
ROTM sz LITES 
RBTS sz -13 
RBSQ s= (93 
ENDS 


ENDS (* CLSTAT *) 


PROCEDURE CUTATK 


qaeTsns 
VAR 
INRS 3 RSS 
Ints « TS3 
IMRS 2 RS3 
INTO ¢ TOS 
INTM 3 TMS$ 
INTL & TL? 
INTY 2 TT3 
BEGIN 


CPYRS(INRS,ATKTOCAID$ 

WHILE NXTTSCINRS,INTS) 00 
IF XSPBCNBOROCINTS)) THEN 
BEGIN 


INTO 82 XLLOOXTSLOIAI-XTSLOINTS I$ 
INTM ge XTPMCNBOROE INTSII3 


INTL t= XTSLEAJOINTO$S 
INTT = XTLSCINTLIS 


WHILE INTT > AT DO 
BEGIN 


CLRRSCATKFRCINTSDS INTT) § 
CLRRSCATKTOCINTTI,INTS) $ 


(6 
[ od 
qs 


ADO PIECE TO DATA BASE *) 
SQUARE WITH NEW PIECE ON IT *%) 
NEW PIECE TO ADO *) 


BIT BOARO OF EMPTY SQUARES *) 
BIT BOARD OF ALL SAME PIECE *%) 
BIT BOARD OF ALL SAME COLOR *) 
BIT BOARD OF ALL PIECES *) 

SET WEW PIECE ON BOARD *) 


CLEAR POSITION STATUS *%) 


WHITE TO MOVE *%) 
NO ENPASSANT *°) 
NO CASTLING LEGAL *) 


CUT ATTACKS THROUGH SQUARE *) 
SQUARE *%) 


ATTACKING PIECES ®) 
ATTACKING PIECE SQUARE *) 
SCRATCH *) 

STEP SIZE %) 

ATTACKING PIECE SIOE °) 

NO LONGER ATTACKED SQUARE *°) 
NO LONGER ATTACKED SQUARE *) 


ALL PIECES ATTACKING SQUARE *%) 
IF SWEEP PIECE *) 


STEP SIZE ON 10 X 12 BOARD *) 
SIOE OF ATTACKING PIECE *) 
FIRST SQUARE BEYONO PIECE ©) 
FIRST SQUARE BEYONO PIECE ON 
6X8 BOARD *) 

WHILE ON BOARO *) 


CLEAR ATTACK MAP *) 


ANORSCIMRS ATKTOCINTTI,TMLOCCINTM)) $ 


IF NULRSCIMRS) THEN 


CLRRS CALATKCINTM) SINT) § 
IF NBOROCINTT) = MT THEN 


BEGIN 
INTL t= INTL¢INTOS 
INTT s= XTLSCINTLIS 

END 

ELSE 
INTT s= ATS 

ENOS 
ENO; 
ENO$S (* CUTATK ©) 


PROCEOURE DELATK 
CASTS)? 


VAR 
INRS 3 RS5 


IMRS # RSS 
INTS 3: TS; 


INTM 2 TMS 


BEGIN 
CPYRSCINRS »ATKFROAD)§ 


NEWRSCATKFRIADDS 
INTM 82 XTPMUINBORDIAD}S 
WHILE NXTTSCINRS,INTS) 00 


BEGIN 
CLRRSCATKTOCINTS JAD 


ANDORSCIMRS, ATKTOCINTS) »TMLOCEINTM)) 


IF NULRSC(IMRS) THEN 
CLRRSCALATKCINTMD,INTS) § 

CLRRS(TPLOCINBORO(A)), AD 3 

CLRRS (CTMLOCOINTM) ADS 

CLRRS (CALLOCCUNTK),ADS 

SETRSCTPLOC(MT),ADS 

NBORD(A] 8= MT§ 

ENOS 
ENDS (* DELATK *%) 


(4+ 
qs 


[ 


[ 


OTHER ATTACKS ON SQUARE BY 
SAME SIDE *) 

IF NO ATTACKS BY THAT SIOc *) 
CLEAR ATTACKS BY SIDE *) 


STEP BEYOND SQUARE *) 


STOP SCAN *%) 


DELETE ATTACKS FROM SQUARE *) 
SQUARE TO REMOVE PIECE ©) 


SQUARES ATTACKED BY PIECE ON 
SQUARE °) 

SCRATCH *) 

SQUARE ATTACKEO BY PIECE ON 
SQUARE *) 

SIOE OF PIECE ON SQUARE *) 


SQUARES ATTACKEO BY PIECE 
ON SQUARE *) 

CLEAR ATTACKS FROM SQUARE *) 
SIOE OF PIECE ON SQUARE *) 
LOOP THROUGH ALL ATTACKS BY 
PIECE *) 


CLEAR ATTACK TO OTHER 
SQUARE °) 


OTHER ATTACKS BY SAME SIDE °) 


CLEAR ATTACKS BY SIDE *) 

CLEAR PIECE *) 

CLEAR PIECE FROM SIDE *) 

CLEAR PIECE FROM ALL PIECES *) 
SET EMPTY *%) 


PROCEDURE PRPATK 


CAsTS)$ 
VAR 
INRS 3: RS3 
INTS # TS3 
INTO 2 103 
INTM 3 TMS 
INTL & TLS 
INTT 8 TT$ 
BEGIN 


CPYRSCINRS sATKTOL AI) $ 

WHILE NXTTSCINRS,INTS) 00 
IF XSPBCNBOROCINTS)) THEN 
BEGIN 


INTO ¢= XLLOEXTSLEIAI“XTSLCINTS))$ 


INTM 8= XTPMCNBOROCINTS))S 


INTL sz XTSLCAJOINTOS 
INTT ¢= XTLSCINTLIS 


WHILE INTT »>2z 0 DOO 
BEGIN 


SETRSCATKFREINTS), INTT) $ 
SETRSCATKTOCINTT), INTS) 3 
SETRSCALATKCINTM) INTT) $ 
IF NBOROCINTT) = MT THEN 


BEGIN 
INTL 8= INTLOINTOS 
INTT #2 XTLSCINTLIS 

END 

ELSE 
INTT sz 33 

ENO: 
ENOS 
ENOS (* PRPATK *) 


PROCEOQURE GAINIT 
CASRM)DS 


BEGIN 
WITH A 00 
BEGIN 
ADOLOC (RMFR,NBORO(RMTO))$ 


ADOATK(RMFRDS 
CUTATKI(RMFRD3 
DELATKCRMTOD$ 


ADDLOC(RMTO.RMCF) 3 
ADDATK(RMTO)$ 
MBTPAC(NBORD( RMTO))§ 
END; 
ENDS (° GAINIT ®*) 


PROCEOURE LOSEIT 
CASRMDS 


BEGIN 

WITH A 00 

BEGIN 
MBCAPT (NBOROL[ RMTOI) $ 
DOELATK(RMTO) $ 
ADOLOC(RMATO,NBORO(RMFRID § 
DELATK(RMFR) § 
PRPATK(IRMFR) § 
AODATK(RMTO)DS 


ENDS (* LOSEIT ®) 


PROCEDURE MOVETT 
(AtRMds 


BEGIN 

WITH & 00 

BEGIN 
ADOLOC(RMTO»NBOROLRMFRID 
CUTATK(RMTOD$ 
DELATKI(RMFRD$ 
PRPATK(RMFR) $ 
ADDATKI(RMTOD$ 


ENDS 
ENOS (* MOVEIT %) 


PROCEDURE RTRKIT 
CASRMDS 


BEGIN 

WITH A 00 

BEGIN 
AODLOC (RMFRNBORO(RMTO})) 3 
CUTATK(RMFR)§ 
OELATKI(RMTO)§ 
PRPATK(RMTO); 
ADDATKIRMFR)§ 


ENOS 
ENOS (* RTRKIT *) 


qs 


qs 
i 
«(4 


qs 
(4 


qs 
(4 


qs 


PROPAGATE ATTACKS THROUGH 
SQUARE *) 
SQUARE *) 


ATTACKING PIECES *) 
ATTACKING PIECE SQUARE *) 
STEP SIZE *) 

ATTACKING PIECE SIDE *°) 
NEW ATTACKED SQUARE *) 
NEW ATTACKED SQUARE *) 


ALL PIECES ATTACKING SQUARE *) 


IF SWEEP PIECE *) 


STEP SIZE ON 10 X 12 BOARD *) 
SIOE OF ATTACKING PIECE °) 
FIRST SQUARE BEYOND PIECE *) 
FIRST SQUARE BEYOND PIECE ON 
6X8 BOARD *) 

WHILE ON BOARO *) 


SET ATTACK MAP *%) 


SET ATTACKS BY SIDE °) 


STEP BEYOND SQUARE °) 


STOP SCAN *) 


UNPROCESS CAPTURE MOVE *) 
CAPTURE MOVE *) 


PuT PIECE ON ORIGINAL 
SQUARE *) 


STOP ATTACKS AT THIS SQUARE ®) 
REMOVE THEM FROM 

DESTINATION SQUARE *) 

REPLACE CAPTURED PIECE *) 


UPOATE SCORE *) 


PROCESS CAPTURE MOVE *) 
CAPTURE MOVE *) 


UPOATE SCORE *°) 

DELETE ATTACKS OF CAPTURED 
PIECE °) 

AOO PIECE TO DESTINATION 
SQUARE *°) 

OELETE ATTACKS OF MOVING 
PIECE *) 

PROPAGATE ATTACKS THROUGH 
FROM SQUARE *) 

AOO ATTACKS OF MOVING PIECE 9) 


PROCESS ORDINARY MOVE *) 
OROINARY MOVE °) 


AOO PIECE TO NEW SQUARE *) 

CUT ATTACKS THROUGH NEW 
SQUARE *%) 

OELETE ATTACKS FROM OLO 
SQUARE *°) 

PROPAGATE ATTACKS THROUGH OLD 
SQUARE *%) 

AOD ATTACKS FROM NEW SQUARE ®°) 


UNPROCESS ORDINARY MOVE ©) 
THE MOVE TO RETRACT ©) 


PuT PIECE ON ORIGINAL 

SQUARE °) 

CUT ATTACKS THROUGH ORIGINAL 
SQUARE *) 

OELETE ATTACKS FROM 
DESTINATION SQUARE *) 
PROPAGATE ATTACKS THROUGH 
DESTINATION SQUARE *) 

AOO ATTACKS FROM ORIGINAL 
SQUARE *) 
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Listing 1, continued: 


FOR INTS t= AS TO ZS 00 
IF RBISCINTS) <> MT THEN 
BEGIN 
ADOLOCCINTS,RBISCINTS)) $ 
MBTPACC(RBISCINTSID S$ 


END 
PROCEDURE PAWNIT (* UNPROMOTE A PAWN *) ELSE 
CASRMDS (* PROMOTION MOVE °) SETRS(TPLOCI MT) ,INTS)3 
BEGIN MBEVALS (* EVALUATE MATERIAL *%) 
WITH & DO 
BEGIN CPYRSCINRS,» ALLOC[ INTK))3 (* COPY BIT BOARD OF ALL 
MBMORP (NBORO[RMTO}) 3 (* UPOATE SCORE *) : : ms PIECES °) 
NBOROCRMTO) 8= XTUMPLEP, XTPMINBORDE RMTO}I)3 WHILE NXTTSCINRS,INTS) 00 
ENDS ADDATKCINTS) 3 (* ADD ATTACKS OF ALL PIECES *) 
ENO: (* PAWNIT #*) 
NEWRS(CSTATCUNTKIDS (* INITIALIZE CASTLING SQUARES *) 
FOR INTQ t= LS TO DL DO 


PROCEOURE PROACA (* PROCESS CASTLE STATUS 
CHANGES *) 
CATS) (* SQUARE ®°) 
VAR 
INRS 8 RS3 (* SCRATCH *) 
IMRS # RS§ (* SCRATCH *) 
BEGIN 


CLRRS(CSTATLINTKI, ADS (* CLEAR THIS SQUARE *) 
ANORS CINRS sCSTAT(C INTK J} o XRRSCXTSRIAIIDS 


(* CASTLE BITS FOR THIS SIDE *) 
IF NOT INRSTBCINRS »XTRESCXTSRIAD FSI) THEN 


(* IF KING MOVE ©) 
ANORS (CSTATCUNTK) »CSTATEC INTK) » XNRSE XTSRIAI IDS 


(* CLEAR ALL CASTLE MOVES FOR 


SIOE °) 
ANORS CIMRS,INRS,XRFESI FSI) § (* KING ROOK SQUARE °) 
ANORS CINRSSINRS »XRFSCFLID$ (* QUEEN ROOK SQUARE °) 
TORRS CINRS, INRS» IMRS) $ (* BOTH ROOK SQUARES °) 
IF MULRSCINRS) THEN (* IF BOTH ROOKS GONE *) 


ANORS(CSTATCUNTK I SCSTATLUNTK) » XNRS(XTSRIAI I) 3 


END$ (* PROACA *) 
PROCEOURE PROACS (* PROCESS MOVES AFFECTING CASTLE 
STATUS *%) 
CASRN) (* MOVE WITH RMAC *) 
BEGIN 
WITH A 00 
BEGIN 


IF INRSTBICSTATCUNTK) RMFRD THEN (* FROM SQUARE *) 
PROACAC(RMFR) 3 
IF INRSTBI(CSTAT(C UNTK) »RMTOD 
PROACA(RMTO) $ 
ENO; 
ENO$ 


THEN (* TO SQUARE *) 


(* PROACS *) 


PROCEOURE PROMOT (* PROCESS PROMOTION *) 
CASRM) 5 (* PROMOTION MOVE *) 


BEGIN 
wWITwH A 00 
BEGIN 
MBPROM(XTGMP[ RMPP,INTM)D $ (* UPDATE SCORE *) 
NBORO(RMFR) s= XTGMPLRMPP, INTE): 
ENOS 


ENOS (* PROMOT *) 


PROCEOURE CREATES (* CREATE GLOBAL OATA BASE *) 
VAR 
INRS 3 RS3 (* SCRATCH BIT BOARD *) 
INTM & TM (* COLOR INDEX *) 
INTP 8 TP? (* PIECE INDEX *%) 
INTQ 8 TQ3 (* CASTLE TYPE INDEX %) 
INTS ¢ TS3 (* SQUARE INDEX *) 
BEGIN 
WITH BOARO OO 
BEGIN 
JNTW t= AWels (* INITIALIZE MOVES STACK 
POINTER *) 
JNTK s= AK (* PLY INOEX *) 
JNTM t= RBTMS (* SIOE TO MOVE *) 
NODES e= 03 (* INITIALIZE TOTAL NOOES °) 
LINOXCJUNTK) &= JNTWS (* MOVES ARRAY LIMIT °) 
SRCHMC INTK}) a= HO3 (* SEARCH MODE *°) 
FOR INTS #2 AS TO ZS 00 
BEGIN 
NEWRS CATKFROINTS I$ (* CLEAR ATTACKS FROM *) 
NEWRS CATKTOCINTS))$ (* CLEAR ATTACKS TO ®) 
NBOROCINTS) sz MT3 (* CLEAR LOOKAHEAD BOARD *) 
ENOS 
NEWRS CALLOC( UNTK))3 (* CLEAR ALL PIECE LOCATIONS *) 
FOR INTP sz LP TO MT OO 
NEWRS(TPLOCL INTP))3 (* CLEAR PIECE LOCATIONS *) 
FOR INTM t= LITE TO NONE 00 
BEGIN 
NEWRS (CTMLOCOCINTMDD$ (* CLEAR COLOR LOCATIONS *) 
NEWRS CALATKCINTM))$ (* CLEAR COLOR ATTACKS *°) 
ENO? 
MBTOT t= 0 
MBPWNCLITE) = C3 
MBPWNCT DARK) t= 03 
MBLTE #2 03 
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IF 


INTQ IN RBSQ THEN 


TORRSI(CSTATCUNTKI sCSTATOCUNTK) »XSQSCINTQ)) $ 


NEWRS (CENPASTINTK))$ 
IF RBTS >= 0 THEN 
SETRSCENPAS( JINTK},RBTS) 3 


INITIALIZE ENPASSANT SQUARE %) 


CPYRS (GENPN( JNTK),TPLOCE XTUMPL EP, INTM) )) § 
NOTRS(GENTOCUNTK 2. TMLOC( INTM)) 
NOTRS CINRS, GENPNUINTK IDS 

ANORS (GENFRCINTK],TMLOCE JNTM), INRS) § 


END? 
ENDS (° 


CREATE *) 


PROCEDURE ONDATE 


OOWNOATE OATA 
OUT A MOVE *) 


BASE TO BACK 


CASRMDS (* THE MOVE TO RETRACT *) 
VAR 
InTS ¢ TS3 (* SCRATCH *) 
INTR & TRE (* ROOK RANK FOR CASTLING °) 
INTF 3 TF (* ROOK FILE FOR CASTLING *) 
RKFR & TS$ (* ROOK FROM SQUARE *) 
RKTO s TS3 (* ROOK TO SQUARE *) 
BEGIN 
WITH A 00 
BEGIN 
CASE ORO(RMCAD*%& © OROCRMAC)®2 + ORDERMPR) OF 
Os (* OROINARY MOVE *%) 
RTRKITCADS 
18 (9 PAWN MOVE ANO PROMOTE *°) 
BEGIN 
PAWNITCAD$ 
RTRKITCADS 
ENO: 
2% ¢€° MISCELLANEOUS ACS %) 


IF RMOO THEN 


BEGIN (*® CASTLE °) 
IF RMQS THEN 
: INTE t= FA (* ROOK ON QUEEN ROOK FILE *) 
L 
INTF t= F83 (* ROOK ON KING ROOK FILE *) 
INTR = XTSRCRMERI$ (* ROOK FILE *) 
RKFR t= XTRESCINTRAINTF)3  (* ROOK FROM SQUARE *) 
RKTO t= (RMFRERMTO) OIV 23 ¢(* ROOK TO SQUARE *) 


ADDL OC (RKFR»NBOROLRKTO))$ 
DELATKIRKTOD: 
PRPATK(RKTOD$ 
ADDATKIRKFR) $ 
RTRKITCADS 

ENO 

ELSE (* NOT CASTLE *) 
RTRKITCAD3 


323 (* NULL MOVE *) 


4 


(* CAPTURE *) 
IF RMEP THEN 
BEGIN 

INTS 

ADDLOCCINTS,RMCP) 3 

CUTATKCINTS) § 

AODATKCINTS)$ 

RTRKITCA)S 

MBTPAC (NBOROCINTS))$ 
ENO 
ELSE 

GAINITCAD § 

(* CAPTURE AND PROMOTE *) 
BEGIN 

PAWNITCAD$ 

GAINITCAD$ 
ENO}; 


(* CAPTURE ENPASSANT *) 
8= XTRESOXTSROIRMFRISXTSFUERMTO) 23 


(* CAPTURE NOT ENPASSANT *) 


REPLACE ROOK *) 


RETRACT KING MOVE *) 


RETRACT PAWN MOVE *) 
AOO PIECE TO SCORE *) 


UNPROMOTE °) 
UNCAPTURE *) 


6¢ ¢€* CAPTURE ACS ®*) 
GAINIT(AD$ (* UNCAPTURE *) 
7s «(*% CAPTURE ROOK ACS, PROMOTE *) 
BEGIN 
PAWNIT(AD$ 
GAINIT(A) 3 
ENDS 
ENDS 
JNTW sz LINOXCUNTK)$ (* RESET MOVE GENERATION 
POINTER *%) 
JNTK 8= JNTK=15 (* BACK UP PLY INDEX *) 
JNTM gz OTHER( JINTMD$ (* SWITCH SIOE TO MOVE °) 
ENDS 
ENOS (* ONDATE *) 
FUNCTION UPDATE (* UPOATE DATA BASE FOR A MOVE °) 
(VAR AtRM) (> THE MOVE *) 
T7685 (* RETURNS TRUE IF MOVE IS 
LEGAL °) 
VAR 
INRS 3 RS3 (* SCRATCH *) 
IMRS & RS$ (* SCRATCH *) 
INTS # TS$ (* SCRATCH *) 
INTF 3 TF (* ROOK FILE FOR CASTLING ©) 


Listing 1, continued: 


INTR 8 TRS (* ROOK RANK FOR CASTLING ©) 
RKTO #8 TS$ (* ROOK DESTINATION SQUARE ©) 
RKFR 3s TS3 (* ROOK ORIGIN SQUARE °) 
BEGIN 
WITH A 00 
BEGIN 
JNTK @3 JNTKe1$ (* AOVANCE PLY INDEX °) 
NEWRS CENPAS(UNTK)) § (* CLEAR ENPASSANT BIT BOARD ©) 


CPYRS(CSTATCUNTKI,CSTATLUNTK=1 IDS 8 6¢9 
ys 


INITIALIZE CASTLE STATUS *) 


CPYRS CALLOCCINTK) ,ALLOCE INT K=1 (* INITIALIZE ALL LOCATICNS *%) 
PBVALCJNTK) ¢= MOVALC INT K-1)5 (* INITIALIZE MATERIAL SCORE ©) 
LINOXCUNTK) 8= JNTWS (* MOVES ARRAY LIMIT ®) 


CASE ORO(RMCA)*4S + ORDIRMACI®2? *¢ OROC(RMPR) OF 


te (* OROINAPY MOVE ©) 
IF RMEP THEN 
BEGIN ad 
SFTRSCINRS » XRSS(RMT0}2S1)3 
SFTRSCIMRS, XRSSCRMTOI,S3)$ 
TORRSCINKS s INRSs IMRS) § 


IF NOT NULRSCINRS) THEN 


PAWN MOVE 2 SPACES °) 


(* SQUARES NEXT TO DESTINATION %) 
ANORSCINRS, INRS,TPLOC( XK TUMPCEP, 


OTHER( JINTM))))8 
INTERSECT WITH ENEMY PAWNS ®) 


SETRSCENPAS(CINTK)», (RMTO*RMFR)D DIV 233 


qe 
MOVEITOCADS qe 
ENO 
ELSE 
MOVEIT(AD$ fig 


1s (€° MOVE ANDO PROMOTE *°) 


BEGIN 
PROMOT(AD$ (* 
MOVEIT(AD$ * 
ENDS 


23 (* MISCELLANEOUS ACS °) 


BEGIN 
IF RMOO THEN 
BEGIN (* CASTLE *%) 
If RMQS THEN 


SET ENPASSANT SQUARE °) 
MOVE PAWN ©) 


MOVE PIECE *) 


PROMOTE PAWN °) 
MOVE PROMOTED PIECE ©) 


INTF sz Fi (* ROOK ON QUEEN ROOK FILE °) 
ELSE 

INTF as F863 (* ROOK ON KING ROOK FILE °%) 
INTR t= XTSRORMFRI (* ROOK ON KINGS RANK ©) 


RKFR 82 XTRESCINTR,INTFIS (9 
RKTO az (RMFRERMTOD OV 23¢° 


ROOK ORIGIN SQUARE °) 
ROOK OESTINATION SQUARE *) 


ANORS(CSTATEINTKISCSTATCUNTK) XNRSCINTRID $ 


ADOL OC (RKTO,NBOROCRKFRIDS (9% 
ADDATKCRKTO) $ fd 
OELATKIRKFRD § 


OISALLOW FURTHER CASTLING 
BY THIS SIOE *%) 

PUT ROOK ON NEW SQUARE °) 
AOO ITS ATTACKS *) 


(* OELETE FROM ORIGINAL SQUARE *) 


MOVEIT (ADS (® MOVE KING ©) 

ENO 

ELSE (* NOT CASTLE °) 

BEGIN 
PROACS (ADS (* PROCESS CASTLE STATUS MOOS °) 
MOVEITCADS (* MOVE TO OR FROM KING OR 200K 

SQUARE °) 
ENO$ 
ENDS 


3#3 €* NULL MOVE *) 
&t (* CAPTURE *) 


IF RMEP THEN 
BEGIN (* CAPTURE ENPASSANT °%) 


INTS 82 XTRESCXTSRIRMFRISXTSFCRMTOD 23 


CAPTURED PAWN SQUARE *) 


MBCAPT (NBOROCINTS))$ (* UPDATE SCORE °) 
OELATKCINTS) $ (* DELETE CAPTURED PAWN 
ATTACKS °) 
PRPATK(INTS) & (* PROPAGATE ATTACKS THROUGH 
PAWN ©) 
MOVEIT(ADS (* MOVE CAPTURING PAWN *%) 
END 
ELSE (* CAPTURE NOT ENPASSANT ®) 
LOSEIT(AD3 (* PROCESS CAPTURE °) 
5 (° CAPTURE ANDO PROMOTE ©) 
BEGIN 
PROMOT(AD 3 (* PROMOTE PAWN *%) 
LOSEIT(AD$ (* PROCESS CAPTURE WITH PROMOTED 
PIECE *) 
END 3 
6# (* CAPTURE ACS ©) 
BEGIN 
PROACS(AD§ (* PROCESS CASTLE STATUS MOOS °) 
LOSEITCADS (* PROCESS ROOK CAPTURE *) 
ENDS 
7: #(*% CAPTURE POOK ACS, PROMOTE °°) 
BEGIN 
PROMOT (ADS (* PROMOTE PAWN °%) 
PROACS(AD$ (* CHANGE CASTLE STATUS *) 
LOSEITCAD$ (* PROCESS ROOK CAPTURE *) 
ENDS 


END: 


(® INITIALIZE MOVE GENERATION *) 


JNTM tz OTHERC UNTM) § fd 
CPYRS(GENPN( UNTK)»TPLOCE XTUMPL EP, INTM) DD $ 
NOTRS(GENTO(C UNTK J}, TMLOCE UNTM) D3 
NOTRS CINRS,GENPN( INTK J) $ 

ANORS (GENFRCINTK} » TMLOC( UNTM), INRS) 3 


SWITCH SIDE TO MOVE ®) 


(* DETERMINE IF MOVE LEAVES KING IN CHECK. OR MOVES 
KING INTO CHECK °) 


ANDRS CINRS, TPLOC(XTUMPLEK, INTM ID ALATKCOTHERC INTM) 3) 8 

RMCH s=z NOT NULRS(INRS) § 

ANORSCINRS, TPLOC(IXTUMPLEK,OTHEREC INTMI)) ,ALATK( INTMDD 8 

RMIL t= NOT NULRSCINRS)$ 

UPOATE as NOT RMIL3 

IF NOT RMIL THEN (*® COUNT LEGAL MOVES °) 
MVSELCINTKo1) 82 MVSELCUNTK-1) ¢ 13 


(* INITIALIZE MOVE SEARCHING ©) 


SRCHMCINTK) 32 H13 


NODES t= NODES¢13 
ENOS 


ENO3 (*° UPDATE *) 


PROCEDURE GENONE 
CASTTs 
BelS)3 


VAR 
INRS 2 RS 


BEGIN 

WITH MOVES(JNTW) OO 

BEGIN 
RMFR t= AS 
RMTO s= 83 
RMCP t= NBORDIB)$ 
RMCA 8= (NBORO(B) <> MT)D$3 
TORRS CINRS »XRSS(AD,XRSS(B)) 8 
ANORSCINRS, INRS,CSTATECUNTKIDS 
RMAC t= NOT NULKSCINRS)S 
RMCH e2 FALSES 
RMMT ¢= FALSE? 
RMIL t= FALSE3 
RMSU s= FALSES 
RMPR t= FALSES 
RMOO t= FALSES 
RMEP sz FALSES 

ENOS 

VALUECJNTW) 82s Of 

IF JNTW < ZW THEN 
JNTMW 82 JNT Wels 


ENOS (¢* GENONE ®) 


PROCEOURE PWNPRO; 


VAR 
INTG 8 TG3 


BEGIN 

MOVESCE INT W-1).RMPR 82 TRUES 

MOVESET INTH-1).RNPP tz PQ’ 

FOR INTG ss PR TO PB OO 

BEGIN 
MOVESC INTW) 82 MOVESC INT W138 
MOVES(C INTW) RMPP es INTG3 
JNTM C2 JNT Wel $ 

ENO? 


ENOs3 (° PWNPRO °) 


PROCEDURE GENPWN 
(ASRS3 
BsRS)8 


VAR 
INRS, IMRS 2 RS3 
INTS & TS$ 


BEGIN 
IF JNTM = LITE THEN 
BEGIN 
SFTRS CINRS, AyS2) 3 
ANORS CINRS, TPLOCTMT), INRS)$ 
CPYRS(IMRS, INRS) 3 
ANORS CINRS» B, INRS) § 


WHILE NXTTSCINRS,INTS) 00 
BEGIN 


(* COUNT NODES SEARCHED *) 


(° STACK ONE GENERATED MOVE %) 
(* FROM SQUARE *) 
(* TO SQUARE *°) 


(* SCRATCH *) 


(* FROM SQUARE *) 

(* TO SQUARE ©) 

(* CAPTURED PIECE *) 
(* CAPTURE °) 


(* AFFECTS CASTLE STATUS %) 
(* CHECK %) 

(* MATE ®) 

(* ILLEGAL %) 

(* SEARCHED *) 

(* PROMOTION *) 

(* CASTLE *%) 

(* ENPASSANT *) 


(* CLEAR VALUE *) 


(* AOVANCE MOVES STACK POINTER °) 


(* GENERATE ALL PROMOTION 
MOVES *) 


(* PROMOTION TYPE *) 


(> SET PROMOTION °) 
(° PROMOTE TO QUEEN FIRST °) 
(* GENERATE OTHER PROMOTIONS °) 


(* COPY LAST MOVE °) 
(° CHANGE PROMOTE TO PIECE *) 
(* AOVANCE MOVE INOEX °) 


(* GENERATE PAWN MOVES °) 
(° PAWNS TO MOVE °%) 
(* VALIO DESTINATION SQUARES °) 


(* SCRATCH °%) 
(* DESTINATION SQUARE °) 


(* WHITE PAWNS ©) 

(*° AOVANCE ONE RANK ®©) 

(* ONLY TO EMPTY SQUARES *%) 

(* SAVE FOR 2 SQUARE MOVES *) 

(° ONLY VALIO DESTINATION 
SQUARES °) 


GENONE (XTLSEXTSLEINTSI<XTEOC S21), INTS)3 


IF INTS >= XTRES(RB,FI1) THEN 


PWNPROS 
ENO$ 
ANORS CINRS, IMRS, XRRS(R3D) 3 
SFTRSCINRS, INRS,S2) 3 
ANORS (INRSSINRS,TPLOCIMT D3 
ANORS CINRS, INRS, 8) ¢ 


WHILE NXTTSCINRS,INTS) 00 
BEGIN 


(* GENERATE SIMPLE PAWN MOVES °) 
(* PROCESS PROMOTION *) 


(* TAKE ONLY PAWNS ON THIRO ©) 

(* ADVANCE ONE MORE RANK *%) 

(* ONLY TO EMPTY SQUARES *%) 

(* ONLY VALIO DESTINATION 
SQUARES ©) 


GENONE (XTLSUXTSLCINTS e2°XTEOCS2ZI) 2 —INTS) $ 


MOVES( JINTW-1).RMEP sz TRUE? 
END? 


SFTRSCINRS, A, Bi) 3 


(* GENERATE OOUBLE PAWN MOVES *) 
(* FLAG AS TWO SQUARES *) 


(* TRY CAPTURES TO THE LEFT *) 


TORRS (CIMRS, THLOCLCOTHERE JINTMI ) » ENPAS( UINTK)) $ 


ANORS (CIMRS, IMRS,B) 3 
ANORSCINRS,» INRS» IMRS) 3 
WHILE NXTTSCINRS,INTS) OO 
BEGIN 


(* OPPONENT PIECES * EP SQUARE *%) 
(* VALIO OESTINATION SQUARES °) 
(* CAPTURE MOVES TO LEFT *%) 


GENONE CXTLSUXTSLCINTSI“XTEO( B11), INTS) 3 


MOVES( UNTWe1} RMCA t= TRUES 


(* GENERATE CAPTURE MOVE ©) 
(* FLAG CAPTURE °%) 


MOVEST INT Wei). RMEP t= INRSTBCENPASCINTKI > INTS)3 


IF MOVES( INT W-1).RMEP THEN 
MOVEST INT W-1).RMCP 82 OP} 


(* FLAG ENPASSANT CAPTURE ®) 


(* SET CAPTURED PIECE TYPE *) 


IF INTS >= XTRFSCRB,F1L) THEN 
PUNPROS 
ENO$ 


(® PROCESS PROMOTION ©) 


SFTRS CINRS, Ay 62) 3 (* TRY CAPTURES TO THE RIGHT °%) 
TORRS (IMRS,» THLOCE OTHERE JNTM) 1, ENPAS( INTKID $ 

(> OPPONENT PIECES ¢ EP SQUARE °) 
(® VALIO DESTINATION SQUARES °) 
(* CAPTURE MOVES TO LEFT °%) 


ANORS (IMRS, IMRS,B) 3 
ANORS CINRS» INRS» IMRS) $ 
WHILE NXTTSCINRS,INTS) 00 
BEGIN 
GENONE (XTLSCXTSLEINTSIXTEO(82))_ INTS)S 
(* GENERATE CAPTURE MOVE °) 
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Listing 1, continued: 


MOVES{ INT HW21).RMCA sz TRUES (* FLAG CAPTURE ©) 
MOVEST INTW-1).RMEP 8= INRSTBCENPAS( INTK)» INTS)$ 

(* FLAG ENPASSANT CAPTURE *) 
IF MOVES( UINTW-1).RMEP THEN 


MOVEST JINTW-1)3.RMCP 82 OP} (* SET CAPTURED PIECE TYPE °) 
IF INTS >= XTRFS(R8,F1) THEN 
PWNPRO$ (* PROCESS PROMOTION ©) 
ENOS 
ENO 
ELSE 
BEGIN (* BLACK PAWNS *) 
SFTRS CINRS »AySh) 8 (* AOVANCE ONE RANK ©) 
ANORS CINRS, TPLOCC MT J, INRS)3 (* ONLY TO EMPTY SQUARES °) 
CPYRSCIMRS, INRS) § (* SAVE FOR 2 SQUARE MOVES °) 
ANORS (INRS,8,INRS)S (* ONLY VALIO DESTINATION 
SQUARES °) 


WHILE NXTTSCINRS,INTS) 00 
BEGIN 
GENONE (XTLSCXTSLOINTS P-XTEO( S43), INTS) 3 
(® GENERATE SIMPLE PAWN MOVES *°) 
IF INTS <= XTRFSCRIF8) THEN 


PWNPROS (* PROCESS PROMOTION *) 
ENOS 
ANORS CINRS» IMRS» XRRSCREDDS (* TAKE ONLY PAWNS ON THIRD ©) 
SFTRS CINRSs INRS,S4) § (* ADVANCE ONE MORE RANK °%) 
ANORSCINRS» INRS, TPLOCCMT IDS (* ONLY TO EMPTY SQUARES °) 
ANORS CINRS, INRS,B) S$ (* ONLY VALIO DESTINATION 
SQUARES °) 


WHILE NXTTSCINRS,INTS) DO 
BEGIN 
GENONE(XTLS(XTSLOINTS P29 XTEOCS& JD SINTS) § 
(* GENERATE OOUBLE PAWN MOVES °) 
MOVESET INTW-1).RMEP 8= TRUES (* FLAG AS TWO SQUARES ©) 


ENO; 


SFTRSCINRS, A, B3) $ (* TRY CAPTURES TO THE LEFT *) 
TORRS(CIMRS» THLOC( OTHER( JNTM)) > ENPAS( UINTKI) § 

(* OPPONENT PIECES * EP SQUARE °) 
(* VALIO DESTINATION SQUARES *) 
(* CAPTURE MOVES TO LEFT °) 


ANORS (IMRS, IMPS 18) 
ANORS CINRS,» INRS, IMRS) § 
WHILE NXTTSCINRS,INTS) DO 
BEGIN 
GENONE (XTLSEXTSLCINTS )=XTEDEB3))e INTS) 3 
(* GENERATE PAWN CAPTURE MOVE ®°) 
MOVESC(UNTW-1).RMCA t= TRUE (* FLAG CAPTURE *) 
MOVES( JNTW-1).RMEP sz INRSTB(ENPAS(JNTK)INTS)$ 
(* FLAG ENPASSANT CAPTURE ®) 
IF MOVESEJNTW-1).RMEP THEN 
MOVES( JNTW-2).RMCP sz LP; 
IF INTS <= XTRFSCR1,F8) THEN 
PWNPROS 
END} 


(* SET CAPTURED PIECE TYPE ©) 
(* PROCESS PROMOTION °) 


SFTRS CINRS » Ay BG) § (*® TRY CAPTURES TO THE RIGHT *) 
TORRS (IMRS, TMLOC COTHER( JINTM} }p ENPAS( INTK)) 3 

(® OPPONENT PIECES ¢ EP SQUARE °) 
(* VALIO OESTINATION SQUARES *) 
(* CAPTURE MOVES TO LEFT *) 


ANORS CIMRS, IMRS 8) § 
ANORS CINRSSINRS,» IMRS) 3 
WHILE NXTTSCINRS,INTS) 00 
BEGIN 
GENONE (XTLSCXTSLOINTSJ-XTED( B& dd, INTS) 3 
(* GENERATE PAWN CAPTURE MOVE *) 
MOVESCINTW-1).RMCA 8= TRUES (* FLAG CAPTURE ©) 
MOVES( INTW-1).RMEP t= INRSTBCENPAS( INTK} gS INTSD3 
(* FLAG ENPASSANT CAPTURE *) 
IF MOVESC UINTW-1).RMEP THEN 
MOVES({ INTWe1).RMCP sz LP3 
If INTS <= XTRESC(R1F6} THEN 


(* SET CAPTURED PIECE TYPE *) 


PUNPROS (* PROCESS PROMOTION *°) 
END; 

END? 
ENOS (° GENPWN ®%) 
PROCEOURE GENFSL (* GENERATE ALL MOVES FROM 

A SET OF SQUARES ®°) 

CASRSDS (* ORIGIN SET OF SQUARES *) 
VAR 

INRS ¢ RS$ (* OUTER LOOP BIT BOARD *) 

IMRS 2 RSS (* INNER LOOP BIT BOARD *) 

IPRS & RS§ (* PAWN ORIGIN BIT BOARD *) 

INTS 38 TS$ (* OUTER LOOP SQUARE NUMBER *) 

IMTS 3s TS3 (* INNER LOOP SQUARE NUMBER °%) 
BEGIN 

ANORS CINRS,A,GENFRE INTKDD § (* ONLY VALIO FROM SQUARES *) 


NOTRSCIMRS,ADS 

ANORSI(GENFRE JINTK) »GENFROINTKI SIMRS)S (* REMOVE ORIGIN SQUARES °) 
ANDRS (TPRS, A, GENPN(UNTK)) § (> VALIO PAWN FROM SQUARES *) 
ANORS(GENPNE JNTK) ,GENPNC JNTKISIMRSIS (* REMOVE PAWNS ©) 


WHILE NXTTSCINRS»INTS) 00 (* LOOP THROUGH ORIGINS *) 


BE 


GIN 
ANORS CIMRS ,ATKFROINTS) »GENTOCINTK)) § 
(* GET UNPROCESSED DESTINATION 


SQUARES *) 
WHILE NXTTSCIMRS, IMTS) 00 (* LOOP THROUGH DESTINATIONS ®) 
GENONECINTS, IMTS) $ (* GENERATE MOVE *) 
ENO? 
GENPUN(IPRS,GENTOL JNTKID $ (* GENERATE PAWN MOVES *) 
ENOS (* GETFSL %) 
PROCEDURE GENTSL (* GENERATE ALL MOVES TO A 
SET OF SQUARES *) 
CAERSD? (* TARGET SET OF SQUARES *) 
VAR 
INRS # RS? (* OUTER LOOP BIT BOARD *) 
IMRS § RS} (* INNER LOOP BIT BOARD *) 
IPRS 8 RS3 (* PAWN BIT BOARD *) 
INTS 3 TS3 (* OUTER LOOP SQUARE NUMBER *) 
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IMTS ¢ TS$ 


BEGIN 
ANORS CINRS A, GENTOCUNTKID§ 
NOTRS CIMRS ADS 


ANORS (GENTO( UNTK } »GENTOC UNTK) » IMRS) § 


CPYRS(IPRS,INRS)$ 


WHILE NXTTSCINRS,INTS) 00 
BEGIN 


ANDRS (IMRS,ATKTOLINTS) »GENFROEINTKID 


WHILE NXTTSCIMRS, IMTS) DO 
GENONE CIMTS,INTS) S$ 
END; 
GENPWN(GENPN[ JNTK) » IPRS) §$ 
ENDS (¢* GENTSL *) 


PROCEDURE GENCAP; 


VAR 
INRS 8 RS 


BEGIN 


(> INNER LOOP SQUARE NUMBER *) 


(* ONLY VALIO TO SQUARES *°) 


(® REMOVE DESTINATION SQUARES *) 
(* SAVE FOR PAWN MOVES °) 


(* LOOP THROUGH DESTINATIONS °) 


(* GET PIECES OF SIDE TO MOVE ©) 


(* LOOP THROUGH ORIGINS *%) 


(* GENERATE MOVE ®) 


(* GENERATE PAWN MOVES *) 


(* GENERATE CAPTURE MOVES *) 


(® DESTINATION SQUARES *) 


TORRS(INRSSENPAS( INTK), TMLOCE OTHER( INTM) D3 


GENTSLCINRS) § 
ENDO3 (% GENCAP *) 
PROCEOURE GENCASS$ 
VAR 

INTQ # TQ3 

INRS 2 RS3 

IMRS 32 RS3 


BEGIN 


(* GENERATE MOVES TO 
ENEMY SQUARES °) 


(® GENERATE CASTLE MOYES *%) 


(® CASTLE TYPE INOEX *) 
(© OCCUPIED SQUARES TEST °) 
(* ATTACKED SQUARES TEST ®) 


FOR INTQ se XTMQ(JNTM) TO SUCC(XTMQ( UNTM)) DO 
IF INRSTB(CSTATCUNTK) »XTQSCINTQI) THEN 


BEGIN 


(* IF CASTLING IS LEGAL 9%) 


ANORS CINRS» XRQSOLINTQ) -ALLOC(INTK)) $ 


(* CHECK OCCUPIED SQUARES °) 


ANORS (IMRS ,XRQSACINTQ) ,ALATK(COTHER( JNTM))) 3 


IF NULRSCINRS) AND NULRSCIMRS) 


BEGIN 
MOVESCJUNTW) s= XRQMCINTQ)$ 
VALUECJUNTW) f= GS 
JNTW t= JINTWEls 
ENO; 
ENOS 


ENOS (* GENCAS *) 


PROCEOURE GENALL; 


BEGIN 
GENFSLCALLOC( INTK)D§ 
GENCAS$ 

ENOS ¢° GENALL ©) 


PROCEDURE LSTMOV3 


VAR 
INTMW ¢ Tes 


BEGIN 
CREATE3 
GENALLS 
FOR INTW s= AWet TO JNTW-1 00 
BEGIN 
IF UPDATE (MOVES( INTWI) 
ONDATECMOVEST INTW)) § 
END: 
ENO$ 


THENS 


(* USTMOV *%) 


PROCEOURE THEMOV 


(CASRN): 
VAR 

INTB 3 TB3 

INRS & RSS 

INTQ ¢ TQ3 

INTS 3 TS5 
BEGIN 


LSTMV s= A$ 
INTB s= UPDOATECAD$ 
WITH BOARO DOO 


BEGIN 

ROTM t= INTMS 

CPYRS CINRS sENPAS( UNTK}D§ 

IF NXTTSCINRS,INTS) THEN 
RBTS tz INTS 

ELSE 
RBTS t= ATS 

IF JNTM = DARK THEN 
RBTI sz RBII¢13 

FOR INTQ t= LS TO OL OO 


IF INRSTBICSTATCUNTK I, XTQSCINTQ)) 


RBSQ sz RBSQ¢*CINTQ) 
ELSE 
RASQ t= RBSQ-(INTQ)$ 
FOR INTS s= AS TO ZS 00 
RBISCINTS) t= NBOROCINTS)§$ 
ENOS 


ENDS (* THEMOV *) 


(* CHECK ATTACKED SQUARES ©) 


(* IF CASTLING IS LEGAL ANO 
POSSIBLE °) 


(* GENERATE CASTLING MOVE *) 


(® GENERATE ALL LEGAL MOVES °) 


(* GENERATE SIMPLE MOVES °) 
(* GENERATE CASTLE MOVES °) 


(* LIST LEGAL PLAYERS MOVES °) 


(* MOVES INOEX °) 


(* CREATE DATA BASE °) 
(* GENERATE ALL MOVES ©) 


(® SET ILLEGAL FLAG ©) 


(* MAKE THE MOVE FOR REAL ©) 
(® THE MOVE TO MAKE *) 


(* SCRATCH ®) 
(* SCRATCH ©) 
(* CASTLE TYPE INOEX ©) 
(* SCRATCH ®) 


(* SAVE AS PREVIOUS MOVE °) 

(° UPOATE THE OATA BASE *) 

(* ANDO COPY ALL THE RELEVANT OATA 
BACK DOWN *%) 

(* SIDE TO MOVE *) 


(* FINO ENPASSANT SQUARE *) 


(® ADVANCE MOVE NUMBER *) 


THEN 
(* CASTLE LEGAL °) 


(* CASTLE NOT LEGAL *) 
(* COPY POSITION *) 


Creating Chess Player 


Part 3: Chess 0.5 (continued) 


In Part 3 we conclude the listing and 
commentary of Chess 0.5 begun in Part 2. 
The program was written by Larry Atkin, 
who is coauthor with David Slate of the 
world championship chess program, Chess 


4.6. The program is readily adaptable to 
personal computers having Pascal systems 
such as the UCSD Pascal project software. 
Part 4 concludes the series with a discus- 
sion of chess strategy and tactics. 


Evaluating Terminal Positions 


Another important aspect of any chess 
program is the function which provides a 
Static evaluation of terminal positions in the 
look-ahead tree. In the present program, this 
routine also doubles as a preliminary scoring 
function for sorting moves at the first ply, at 
the beginning of the look-ahead search. 
Since the evaluation function is used repe- 
titively in the search, efficiency demands 
that it be carefully engineered. We have left 
this task as an exercise for the reader. Our 
function presently includes only a few basic 
essentials. 

The most important feature is material. 
We employ essentially the same function for 
this that is used by Chess 4.5. A trade-down 
bonus is also incorporated, ie: trade pieces 
but not pawns when ahead in material. A 
second feature which is considered is piece 
mobility. The mobility of Knights and 
Bishops is weighted more heavily than that 
for Rooks and Queens. Special credit is 
given to a King which is located in one of 
the four corner squares in each corner of 
the board, ie: 16 squares total. This encour- 
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ages early castling. Pawn structure is con- 
sidered by providing a bonus for advancing 
the pawns in the four center files, for hav- 
ing a pawn near the King, and for having a 
pawn adjacent to or defended by another 
pawn. This indirectly penalizes isolated or 
backward pawns. There is a direct penalty 
if the square in front of a pawn is occupied. 
The position of the Rooks is considered by 
providing a bonus for placing a Rook on the 
seventh rank and for attacking another Rook 
of the same color (ie: doubled Rooks). The 
executive routine for these assessments is 
EVALU8. 


The Look-Ahead Procedure 


The look-ahead procedure is controlled 
by an executive routine called SEARCH. 
Several subprocedures are also defined 
which handle specific tasks. NEWBST 
keeps track of the move which is currently 
thought to be best, and dynamically re- 
orders the moves at the first ply level each 
time a new best-move is selected. MINMAX 
determines whether the move under con- 
sideration will produce an a-B cutoff. 
SCOREM is called into action when the 
program can find no legal moves at a node. 
It determines whether the position should 
be scored as a checkmate or as a stalemate. 
SELECT is responsible for move ordering at 
each node. It determines whether there are 
any more moves to be searched and if so, 
makes sure that they are generated in the 
correct order (ie: captures, killers, castling 
moves, and then the remaining moves). 

SEARCH incorporates a number of im- 
portant features which make the look-ahead 
search more efficient. These include staged 
move generation, preliminary ordering 
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scores, setting a narrow a-6 window at the 
beginning of the search, conducting the 
search in an iterative fashion, and dynami- 
cally recording moves at the first ply as 
the search proceeds. Because of these fea- 
tures, the full-width search takes a long time 
instead of taking forever. 


User Commands 


For the user’s convenience, the program 
should be able to respond to a few simple 
commands. Inputs to the program are pro- 
cessed by a lengthy routine, READER, 
which has many component subprocedures. 
The translation of the input string is handled 
by agroup of routines: RDRERR, RDRGNT, 
RDRSFT, RDRCMP, RDLINE, RDRMOV 
and RDRNUM. Each of the commands is 
executed by a separate routine. 

When the human player wishes to termi- 
nate the game before it has reached its con- 
clusion (eg: when he is hopelessly lost and 
does not want to stay around to be crushed), 
he can simply type an END command and 
the ENDCMD routine will terminate the 
program. If the user simply wishes to start a 
new game, he can type INIT and the 
INICMD routine will set up for a new game. 
If the user would like to set up a specific 
position from the previous game or some 
other game, he can call the BOACMD rou- 
tine, which will set up any position he de- 
sires. To use this instruction, the pieces are 
designated in the standard way (eg: K, Q, 
R, B, N and P) and the colors are designated 
by L for light and D for dark. The board is 
described by starting at the lower lefthand 
corner and listing, row by row, the 64 
squares. Numbers are used to represent con- 
secutive empty squares. The command to 
set up the position after 1. P-K4, P-K4, 2. 
N-KB3, N-QB3 is: BOARD, LRNBQKB1 
RPPPP1PPPS5N24P34DP33N4PPPP1PPPR1B 
QKBNR. 

If the human player is lazy or simply 
wishes to test the program, he or she can 
type GO and the machine will select a 
move. By repeatedly typing GO the user 
can sit back and watch the machine play 
against itself. The routine that handles 
this is GONCMD. To specify a value for 
selected program parameter variables, the 
player can use LETCMD. For example, the 
amount of time the machine spends calcu- 
lating a move can be controlled by specify- 
ing a limit for the number of nodes to be 
searched. The command LET FNODEL = 
1000 will cause the machine to set a target 
value of 1000 for the number of nodes to 
be searched. In this case it will not start an- 
other iteration if it has already searched 
1000 nodes. If the user is confused about 
the current board configuration, the com- 


mand PRINT will activate PRICMD which 
calls PRINTB for a representation (8 by 8 
array) of the board. For diagnostic purposes 
the user can also ask for other information. 
The routine PAMCMD is activated by PB 
and provides an 8 by 8 attack map for each 
of the 64 squares. The routine POPCMD is 
activated by PO and gives information con- 
cerning the side to move (White or Black), 
the en passant status after the last move, the 
present castle status and the move number. 
If the user types PM, the routine PMVCMD 
will provide a list of all moves which are 
legal for the side to move in the current posi- 
tion. The command PL activates PLECMD 
which prints the value of a designated vari- 
able; for example, the user can determine 
the present limit for the number of nodes to 
be searched by typing PL FNODEL. 

The user also has control over several 
switches. He can ask the machine to repeat 
(echo) each entry, to pause after 20 lines of 
output, and to reply automatically each 
time the opponent enters a move. These 
switches are set by the switch commands 
(eg: SW EC OFF), and are processed by 
SWICMD. If the user wishes to manually 
alter one or more of the status conditions 
(eg: side to move, move number, en passant, 
castling), this can be done by activating 
STACMD. 


Notes on Notation 


The program also processes standard 
chess notation. This is not strictly necessary. 
Many programs use their own convention for 
entering and reporting moves. A common 
procedure is to denote the squares using a 
number (1 through 8) for each row and a 
letter (A through H) for each column. A 
move is defined by listing the present square 
of the piece and then the destination square. 
For example, the common opening move, 
P-K4, would be E2E4. Moving the White 
Knight on the kingside from its original 
square to KB3 would be G1F3. This con- 
vention works nicely but it forces an ex- 
perienced chess player to learn a new sys- 
tem. Most would prefer standard chess 
notation. 

Because there are multiple ways to ex- 
press the same move in standard notation, 
the translation routine needs to be fairly 
sophisticated. Consider a _ position § in 
which the White Queen’s Rook is on its 
original square and the neighboring Knight 
and Bishop have been moved. A move which 
places the Rook on the Queen Bishop file 
can be designated as R-B1, R-QB1, R/1-B1, 
R/1-QB1, R/R1-B1, or R/R1-QB1. It is im- 
portant that the program recognize that each 
of these character strings represents the same 
move. How is this done? 


One way is to have the machine generate 
a list of all legal moves and then compare 
each of these with the move entered by the 
player. If his move matches one on the list, 
that move is noted. The rest of the list is 
then checked and if no more matches are 
found, the noted move is assumed to be the 
correct one. If no match is found, the ma- 
chine prints “illegal move.” If a second 
match is found (eg: P-B3 matches both 
P-KB3 and P-QB3), the machine prints 
“ambiguous move.” The process of trans- 
lating the opponent’s move into machine 
compatible form and checking its legality 
or ambiguity is done by YRMOVE. The 
process of translating the machine’s move 
into standard notation is handled by 
MYMOVE. Both of these procedures call 
MINENG, which is responsible for con- 
structing the appropriating character strings. 


Final Thoughts 


This completes our listing of our dem- 
onstration chess program. Despite the pro- 
gram’s length, there are many desirable fea- 
tures which have been omitted. The reader 
with an interest in chess and programming 
should use this listing as a starting point for 
developing a program. The time required 
for move calculation can be reduced by 
writing machine dependent code for some 
of the frequently used routines. There are 
also features which can be added to improve 
the level of play. 

One useful addition would be an opening 
library. An effective technique for this is de- 
scribed by Slate and Atkin in their chapter 
in Chess Skill in Man and Machine (P W 
Frey, editor, Springer-Verlag, New York, 
1977). An opening library provides the user 
with a challenging set of opening moves and 
directs the game into situations which are 
familiar to the experienced chess player. By 
including various options at the early choice 
points and using a random selection pro- 
cedure, the programmer can insure that the 
machine will not always select the same 
move sequence. The programmer can also 
give the user the option of specifying a 
particular opening against which he would 
like to practice. For important matches, the 
programmer can prepare surprise openings 
for the machine in order to gain a psycho- 
logical edge on the opponent. 

A second and somewhat more challenging 
project would be to develop a transposition 
table for the program. This requires the 


availability of unused memory (at least 8 K 
bytes and preferably 16 K or 32 K bytes), 
an efficient hashing scheme, and a set of 
decision rules to select among positions 
when a collision occurs (ie: two positions 
hash to the same address in the table). 
Another problem is that the use of a staged 
evaluation process and the a-6 algorithm 
often provides an imprecise evaluation score 
(ie: the machine has determined that a posi- 
tion was not optimal’ but has not invested 
the time to find out exactly how bad it was). 
If the programmer succeeds with the trans- 
position table, however, move calculation 
will take 30 to 50 per cent less time in most 
middle game positions and 60 to 90 per cent 
less time in many end game positions. 

A third area for improvement is the eval- 
uation function. Our program presently has 
only a rudimentary function. The reader 
should compare it with the one used by 
Chess 4.5 which is described in detail by 
Slate and Atkin. Their evaluation function 
provides an excellent starting point for re- 
vising our present function. In part 4 we will 
discuss the advantages of using a conditional 
evaluation function, ie: one that changes de- 
pending on the stage of the game and on the 
presence of special féatures. One implemen- 
tation of this strategy is the special end game 
program described by Monroe Newborn in 
Chess Skill in Man and Machine. 

It is appropriate for us to add two impor- 
tant disclaimers at this juncture. Although 
we have carefully tested each of the rou- 
tines in the program and played several chess 
games, it is still possible that there are a few 
minor bugs in the program. If you find one, 
a letter to one of us or to BYTE would be 
appreciated. Secondly, our chess program 
was written primarily for pedagogical pur- 
poses. For this reason it is not a production 
program and does not run very efficiently. 
If you are the competitive type, our program 
should provide many useful ideas, but you 
should not expect it to compete successfully 
in tournament play unless you make exten- 
sive modifications and additions. 

A chess program has a tendency to grow 
and change its personality as the program- 
mer becomes more familiar with each of its 
many limitations. It provides a constant 
challenge for those of us who are too com- 
pulsive to tolerate obvious weaknesses. In 
fact one must be careful not to become 
totally obsessed with this project. We do not 
wish any of you to lose your job or your 
Spouse because of a chess program.® 
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Listing 1: The second half of Chess 0.5, written in Pascal. This portion of the 
program covers evaluation of terminal nodes, the look-ahead procedure and 


user commands. 
PROCEDURE EVALUB$ C® EVALUATE CURRENT POSITION %) 
VAR 
Intv 3s V3 (* SCORE °%) 
FUNCTION EVKING (® EVALUATE KING °%) 
CAaRS3 (*® KING BIT BOARO *) 
BsRSVUTVS (® FRIENOLY PAWN BIT BOARD *) 
VAR 
In?’s 3: TS? «® SCRATCH *) 
INRS 8 RSE (® SCRATCH *%) 
INTYV 2 Tv3 €* SCRATCH *) 
BEGIN 
ANORS (INRS, Ap CORNR? 3 
TE MULRSCINRS) THEN €* KING MOT IM CORNER °) 
INTYV ss @ 
ELSE 
INTV 8s FKSANQ?’ (> KING SAFELY IM CORMER *) 
IWRS 38 AZ 
IF MXTTSCIMRS,INTS) THEN 
BEGIN 
ANORS CINRS, ATKFRCOINTS 3.8) 3 (> FINO PAWNS NEXT TO KING ©) 


IMTV 82 INTV © CNTRSCIMRS) OF KPSHOS 
(*® CREOIT EACH CLOSE PAWN ©) 
ENO; 


EVKING 8= INTVS (® RETURN KING SCORE °) 
ENO3; (9° EVKING *) 


FUNCTION EVMOBL (* EVALUATE MOBILITY °) 
CA, BsTPrItvs (* PIECE TYPES TO EVALUATE °) 
VAR 
INRS & RSS (* SCRATCH *) 
INTS ¢ TS3 (* SCRATCH *) 
INTV & TVv3 (* SCRATCH *) 
BEGIN 
TORRS CINRS, TPLOC(A),TOLOCIBI) $ (*® MERGE PIECE TYPES °) 
INTV 82 0% (® INITIALIZE COUNT ©) 
WHILE NXTTSCINRS,INTS) 00 (* COUNT ATTACKS *%) 
INTV t2 INTV ¢ CNTRSCATKFROINTS)) § 
EVMOBL 32 INTVS (* RETURN TOTAL ATTACKS *) 


Enos; (° EvMOBL °) 


FUNCTION EVPAWN (* EVALUATE PAWNS ©) 
CARRSS (* LOCATION OF PAWNS ©) 
OsTE; (* PAWN FORWARO OIRECTION ©) 
CeTRoetvs (* PAWN HOME RANK °) 
VAR 
IWRS ¢ RS3 (* SCRATCH 9) 
IMRS ¢ RS} (* SCRATCH ©) 
Ints 8 TS3 (* SCRATCH %) 
InTy & Tv3 (> SCRATCH ©) 
BEGIN 
SFTRS CINRS,A,S108 
ANMORS CINRS » INRS, AD 3 (* BIT SET FOR SIDE BY SIDE *%) 
INTV @2 CNTRSCINRS) OF PFLNXS (* SCORE PHALANX ©) 


SFTRSCINRS,A,Bi)d 3 
ANORS CINRS, INRS,AD$ (* BIT SET FOR PAWN DEFENSE °°) 
INTV t= INTV © CNTRSCINRSDPFPCONNS (© CREOITT CONNECTED PAWNS ©) 


SF VRS CIMRS, A, B2)8 
ANORS (INRS. INRS,AdD3 
INTV sa INTV © CNTRSCINRSD®FRPCONN: (° ANO OTHER CONNECTED PAWNS °) 


SFTRSCINRS yA, 8) 3 (* MOVE FORWARD *) 
NOTRSCIMRS, TPLOCEIMT}D3 (* OCCUPIED SQUARES °) 
ANORS CINRS, INRS,IMRS) 3 (* BLOCKED PAWNS °) 


INTV t= INTV = CNTRSCINRSDPFPBLOKS (* PENALIZE BLOCKED PAWNS ©) 


CPYRSCINRS. ADS 
WHILE NXTTSCINRS,INTS) 00 (* FOR EACH PAWN ©) 
INTV sa INTV © (ABS (ORD (C) -ORDIXTSREINTS 3) Dd SF PADCRE XTSFCINTSI 3 
(® CREDIT PAWN ADVANCEMENT *) 


EVPAWN sa INT V3 
EwOs (° EVPAWN %) 


(> RETURN PAWN SCORE °) 


FUNCTION EVROOK (® EVALUATE ROOKS °) 
(ASRS? (* ROOK LOCATIONS °) 
OeRSP stv; (® SEVENTH RANK °) 
VaR 
Inty ¢ Tv3 (* SCRATCH ©) 
ImvI s TI3 (* SCRATCH °) 
ImvS 8 TS3 (* SCRATCH ©) 
IWMRS & RS3 €® SCRATCH °) 
BEGIN 
INTY t= 03 (® INITIALIZE °) 
IWRS sa AZ 
IE WXTTSCINRS,INTS) THEN (* LOCATE FIRST ROOK °) 
BEGIN 


ANORSCINRS, Ap ATKERCINTS DD? 
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IF NOT NULRSCINRS) THEN 
INTV t= INTV @ FROUBLS 
ENO$ 


(* ROOK ATTACKS FRIENOLY ROOK °) 
(*® GIVE OOUBLED ROOK CREOTT °) 


ANORS (INRS,A,8)$ 

INTI ¢2 CNTRSCINRS) 3 

EVROOK t= INTV © INTISINTISFRK7THS (° CREDIT ROOKS ON SEVENTH ©) 
ENOS (° EVROOK ©) 


(* ROOKS ON SEVENTH *) 


BEGIN 
IF XTMVCUNTM) SMBVALCUNTK) © MAXPS <= BSTVLEINTK<2) THEN 
(® MOVE WILL PRUNE ANYWAY ©) 
IMTV sa XTMVCJNTMND © MBVALEC INTK) 


ELSE 
BEGIN 
INTY 82( FHMPAUN® (CEVPANNCTPLOC(L®) .S2,R2)-EVPAUNCTPLOCE OP), S& R79) 
© FWMINM® (EVNOOL (LBL ND ~EVMOBL (06,0) ) 
@ FUMAIN® (EVNOBL (LRLQ) -Evnoes (08,00) i 


© FUROOK® CE VROOK (TPL OCCUR) » KARST R72) 


~EVROOK (TPLOC CORD , XRRSC R23) ’ 
© FMKING® CEVKINGCTPLOCCLK DD, TPLOC(L PD) 
“EVK ING (TPLOC(OK) » TPLOCEOP)) d 


» OFV 643 
MAXPS ez MAXCMAXPS, ABS CINTYVD) 3 
INTV 85 XTMVC JNTHID® CHOVALCUNTK DOIMT yd $ 
ENO’ 
TF SWTR THEN 
BEGIN 
WRITE (™ EVALUB™, INTK,INTM INDE XC INTK DD INT YD $ 
PRIMOVIMOVES( INDEX( INTKIDD3 
END? 
VALUECINOEXC UNTK}) 8= INTVS 
EWO3 (° EVALUS °) 


(© RETURN SCORE °) 


FUNCTION SEARCH (*° SEARCH LOOK-AMEAD TREE ©) 
sus (° RETURNS THE BEST MOVE °) 
LABEL 
iis (* START NEW PLY °%) 
12, (* TRY OIFFERENT FIRST MOVE °) 
13. (® FLOAT VALUE BACK UP *%) 
1a, (* FINO ANOTMER MOVE ©) 
156 (* BACK UP A PLY ©) 
163 (* EXIT SEARCH ©) 
PROCEDURE NEWBST (® SAVE BEST MOVE INFORMATION °) 
CAstKs (* PLY OF BEST MOVE °) 
VAR 
INTW @ Tig (° MOVES INOEX °) 
INRM 8 RMS (* SCRATCH %) 
BEGIN 
BSTMVCA) 8= INDE KC AC1)$ (* SAVE BEST MOVE °) 
IF A = AK THEN (* AT FIRST PLY °%) 
BEGIN 


IMRM 82 MOVES(CBSTMVIA}}3 (*° SAVE BEST MOVE °) 
FOR INTW &= BSTMVIA}-1 OOWNTO AWei 00 
MOVESCINTWO1) sz MOVESCINTWIS (* MOVE OTHER MOVES DOWN *) 
MOVES(AMO1) 82 INRMS (* PUT BEST AT BEGINNING ©) 
BSTMVC AK] s= AWels (* POINTS TO BEST MOVE °) 
ENO 
ELSE 
IF NOT MOVES(BSTMV( A} })RMCA THEN 
KILLROIJNTK) 8= MOVESCBSTMVIAI}3 (° SAVE KILLER MOVE °) 
ENOS (* NEWBST ©) 


FUNCTION MINMAX (> PERFORM MINIMAX OPERATION °) 


(Actes (° PLV TO MINIMAX AT °) 
1763 (* TRUE IF REFUTATION ©) 
BEGIN 


MIMMAX se FALSES (© DEFAULT IS MO PRUNING ©) 
IF SUTR THEN 


URITEC™ MIMMAX™ A, -BSTVLE And) ,OSTVLEA) --OSTVLCA02108 
IF -OSTVLC ACL) > BSTVLCA) THEN 


OEGIN 
BSTVLEAD 82 -BSTVLC A233 
WENBSTCADS (> SAVE BEST MOVE °) 
MIMMAX ea BSTVLCACL) <a BSTVL( A> 33 
(© RETURN TRUE IF REFUTATION ©) 
IF SUTR THEN 


WRITEC™ MEW BEST. PRUMEs “,BSTVLC ACL) <a BSTVLC Amin): 


Enos 
IF SuUTR THEN 
WRITELNS 
ENOs ¢€° MINMAX ©) 


C® PRINT TRACE LINE ©) 


PROCEDURE SCOREN; (> SCORE MATE °) 


GEGIN 
MOVESCIMOEX(C UNTK DD RANT ea TRUES (° ZNOICATE MATE °) 
IF MOVESE INDE KE INTKDD RACH THEN (> CHECKMATE °) 
VALUECINOEX(C UNTK)) ¢2 Ge°UNTK - ZV 


ELSE (° STALEMATE °) 


VALUECIMOEXC UNTKID 82 6% 


IF SuUTR THEN 


EMOs (* SCOREM *) 
FUNCTION SELECT (* SELECT NEXT MOVE TO SEARCH *) 
tTB% (*° TRUE IF MOVE RETURNED °) 
LABEL 
21+ (* MEW SEARCH MODE ©) 
223 (© ExIv SELECT °%) 
VAR 
Inve ¢ TB83 (® RETURN VALUE °) 
IMTK @ TK3 «* SCRATCH °%) 
ImTw 8 Tue (? MOVE INDEX %) 
Inte s Tes (* SCRATCH ©) 
Intyv s Tv3 (* SCRATCH °%) 
PROCEDURE SELOON (® SELECT EXIT = OOME. 
CALLED WHEN NO FURTHER 
MOVES ARE TO BE SEARCHED 
FROM THIS POSITION. 
THE CURRENT POSITION MUST 
MAVE BEEN EVALUATED. °%) 
BEGIN 
INTB sz FALSE$ (* RETURN NO MOVE SELECTED °) 


WRITELMEC™ SCORENM, INTK, ITM, INDEX ( INTK I, VALUE CINDEX( JNTK) 393 


IF SWTR THEN 
WRITELN(@ SELECT@, INTK,@ ENO.) 3 
GOTO 223 (® EXIY SELECT ©) 


Emo: ¢* SELOON 9) 


PROCEDURE SELMOV (* SELECT EXIT - SEARCH. 


CALLEO WHEN A MOVE TO 
OE SEARCHED WAS BEEN 


FOUND. °) 
CAsTw)s (° INDEX TO SELECTED MOVE °) 
BEGIN 
IMTS sa TRUE? (* RETURN MOVE SELECTED ° 
INDEXC UNTKO1} sz AS (® POINT TO SELECTED MOVE °) 
MOVESCAD.RMASU t= TRUES (* FLAG MOVE AS SEARCHED °) 
IF SWTR THEN 
OEGIN 
WURITEC™ SELECT™, INTK,OROI SRCMME JNTKID DADS 
PRIMOVIMOVES(A))3 
Eno’ 
GOTO 223 (* EXIT SELECT 9) 
EwOz (° SELMOV 9) 
PROCEDURE SELNXT (® SELECT EXIT - NEM MODE. 


CALLEO WHEN A NEW SEARCH 
MOOE IS TO BE SELECTED °) 


(ASTM) § (° NEM SEARCH MODE °) 
BEGIN 

INDEXCUNTKe1) 8 LINOXCUNTK)<1$ (© RESET MOVES POINTER ©) 

SRCHMCIINTK) sz AS (® CHANGE SEARCH MODE °) 

GOTO 213 (* EXECUTE NEXT MODE °) 


EMOS (° SELNXT ©) 


PROCEOURE SELANYS (*® SEARCH ALREADY GENERATED 
ANO NOT ALREADY SEARCHED °) 
VAR 
INTW ¢ Ths (® MOVES INOEX °) 
BEGIN 


FOR INTW ss INDEX( JNTKO1)¢1 TO JNTH-1 00 
IF MOT MOVESTINTW).RMSU THEN 
SELMOVCINTW)S 


ENO3; (° SELANY °%) 


BEGIN 
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(* NEW SEARCH MODE °) 


CASE SRCHMC INTK) OF 


HOs (¢° INITIALIZE FOR NEW MOVE ©) 
BEGIN 
MVSELCINTK) t= 05 
INTV 82 BSTVLCUNTK=2)8 
BSTVLC UNTK=2) sa -2V3 


(* CLEAR MOVES SEARCHED °) 
(* SAVE ALPHA °) 
(° INNIOIT PRUNING IN EVAUS °) 


MAXPS se 03 (® INITIALIZE MAXIMUM POSITIONAL 
SCORE °) 
GEMALLS (* GENERATE ALL MOVES ©) 
FOR INTW s= AWOL TO JNTHo1 00 
GEGIN 
IF UPOATECMOVESEC INTHI) THEN 
BEGIN 
INDEXC UNTK) sa INTMS (© POINT TO CURRENT MOVE ©) 
EVALUGS (® SCORE POSITION °) 
Enos 
ONDATE CMOVESC INT WD) 3 
END? 


BSTVLCUNTK=2) 82 INTV3 (® RESTORE ALPHA ©) 
SORTIT (VALUE MOVES, INTH—1) § 
(* SORT PRELIMINARY SCORES ©) 
FOR INTK ss AK TO 2K 00 
KILLRCINTK) es MULAVS (® CLEAR KILLER TARE %) 


TF SUTR OR SUPS THEN 
FOR INT ts Awea TO JNTH-1 00 
GEGIN 
WURITEC™ PREL IN, TNTW, VALUE TUT MI) 3 
PRIMOVINOVESCINTUIDS (5 PRINT PRELIMINARY SCORES °) 
IF INTUSLOP = INT OLY LPP THEN 
PAUSERS 


Enos 
SELMOXT CHG) 3 
Enos 


(° SEARCH ALL MOVES *) 


Mie (9 EWITEALIZE AT WEN DEPTH ©) 
OECIN 
MVSELCUNTK) 82 63 
IF JNTK > JMTK THEN 
OEGIN 
EVALUS3 (* EVALUATE CURRENT POSITION ©) 
IMOEXC INTKO1) 2 ANS 
OSTVLCUNTKO1) 82 -VALUEE INDEXC UNTKIDS 
IF MENMAXCUNTK) OR CUNTK = 2K) THEN 
SELOONS (° THES MOVE PRUNES *) 
: SRCHMLINTK) 828 H23 (* CAPTURE SEARCH *) 
nO 
ELSE 
SRCHMEUNTK) 8s 433 (* CAPTURES IN FULL SEARCH ©) 
GENCAPS (* GENERATE CAPTURES °) 
: SEAS TUSRCWNINTRIES (* CHANGE SEARCH MODE °) 
" 


(° CLEAR MOVES SEARCHED *) 


H2s (*° CAPTURE SEARCH *°) 
BEGIN 
INT t= Awe (* BEST MOVE POINTER ©) 
INTV es AVS (* BEST VALUE ©) 
FOR IMTM 82 LINOXCJNTK) TO JNTW-1 00 
WITH MOVESC IMT) 00 
IF WOT RMSU THEN 
IF ABS(XTPVERNCP1) > INTVY THEN 
BEGIN 
INTV s= ABS(XTPV(RNCP))3 


INT o= IMNTwS 


ENO; 
IF INTW <> AW THEN (* MOVE FOUND ©) 
ic (° SELECT BIGGEST CAPTURE *) 
SELO00N3 C* QUIT °° 
ENOs 
M38 6(° FULL MIOTM SEARCH - CAPTURES °) 

GEGIN 

INT em AW3 (° BEST MOVE POINTER °) 


INTV t= AVS (* GEST VALUE *) 
, FOR IMTW t= LINOXC UNTK) TO JNTH-1 00 
WITH MOVESC INT) 00 
IF MOT RNSU THEN 
IF ABSCXTPVERNCPI) > INTY THEN 
BEGIN 
INTV 82 ABS(CXTPVE RACE) 3 


INTW ss IMTWs 


ENO? 
IF INTW <> Aw THEN (* MOVE FOUND ©) 
SELMOVCINTW) (* SELECT BIGGEST CAPTURE °) 
ELSE 
IF MOT NULMVBCKILLROIJNTK)) THEN 
BEGIN 


IMTw 8s JNT HS (® SAVE CURRENT MOVES INDEX °) 
GENFSL (XRSSEKILL RO INTK) ROFRIDS 
(° GENERATE MOVE BY KILLER °) 
SRCHMCINTK) t2 Hes (* SET NEXT SEARCH MODE ©) 
FOR INTW @= IMTM TO JNTH-1 00 
(* LOOK AT MOVES BY KILLER ©) 
IF KILLRCINTK).RATO = MOVESCINTMI.RATO THEN 
SELMOVC INT W) 3 (* SELECT KILLER MOVE ©) 
END}; 
SEULNXT (Hed 3 
ENDS 


(* GO TO WEXT STATE °) 


Hos (° INITIALIZE SCAN OF CASTLE MOVES ANDO OTHER MOVES 
BY KILLER PIECE °) 


BEGIN 
GENCAS3 (* GENERATE CASTLE MOVES ©) 
SELNXT (HS) 3 €* GO TO MEXT STATE 9°) 

ENDS 

WSs (5 FULL WIOTMH SEARCH - CASTLES ANO OTHER MOVES BY KILLER 
PIECE °) 

BEGIN 

SELANY$ (® SELECT ANY MOVE ©) 


GEMFSL CALLOC( UNTK)) § 
SELNXT (HOD 


(° GENERATE REMAINING MOVES °) 
(® WEXT SEARCH MODE *) 


ENDS 
H6t (9° FULL WIOTH SEARCH - REMAINING MOVES ©) 

BEGIN 
SELANY $3 (* SELECT ANYTHING OW LIST °°) 
IF MVSELCUNTK) = 0 THEN 

SCOREMS (* SCORE MATE °%) 

SELOON: (* EXIY SELECT 9%) 

ENDS 


M73 (° RESEARCH FIRST PLY ©) 
BEGIN 
JNTW 8s LINOX(CAKO1 33 (* POINT TO ALREADY GENERATED 
MOVES *°) 
MVSELCAK) Ss 03 (* RESET MOVES SEARCHED °°) 
FOR INTW 8s AWOL TO JNTHe4 00 
MOVESCINTW) RASU sa FALSES 
(> CLEAR SEARCHED BIT °) 
IF SUTR THEN 


WURETELNC™ REDO “, JNTK, BSTVL( AK~o2), BSTVL{ AKos 204 
SELMXT CHG?) 3 (° SEARCH ALL MOVES %) 
Ends 
Enos 


220 «46 SELECT EXIT 9) 
SELECT ss INTBS 
EwOs ¢€° SELECT °%) 


(> RETURN VALUE ©) 


SEGIN ¢* SEARCH °) 
OSTMVCAK) es AN3 


(> INITIALIZE MOVE 3 
INDEXC INTK) ss AWS 


(> JNUIVIALIZE TREE ©) 
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pe . ; FUNCTION RORGENT (VAR KeRad eter (> GET MEXT TOKEN FROM COMMAND 
Listing 1, continued. RETURNS TOKEN IM A. 
RETURNS TRVE IF NON-ENPTY 
TOKEN. 
A TOKEN IS ANY CONSECUTIVE 
COLLECTION OF ALPHANUMERIC 


CHARACTERS. 
LEADING SPECIAL CHARACTERS 
TGHOREO. %) 
MOVESC AM) sa LSTHVS (> BMSVLALSZE WOVE ©) 
Evacues C® SUIT FAL GUESS AT SCORE °) 
OSTVLCAK~2) 82 VALUEC AW) = WENOONS (Co ZMEZTEIALIZE AL PMA OETA VAR 
wrepow ©) revs « Tus (© STRING INOEX °) 
OST VLE AK~o1) 8a - VALUEC AW? - WINDOWS 
INTK te AKOS3 (© IMZVIALIZE IVERATION MUNBER °) OECIN 
WHILE (NODES < FNODEL) ANDO (JMTK <« MAX(ZK OLY 25 2K-6)) 00 WHILE CONT < ZZ) AND (CORDCIL IMEC UNTIUID >= ORDI“e7)) OO 
BEGIN INT S te INT 3023 
Aes" @ 
tis ¢° START NEW PLY ©) INTS 88 AAS 
OSTVLCUNTK) ses BSTVLE UNTK—-213 (° INITIALIZE ALPHA %) WHILE CUNT <«< ZU) AND CINTS < 2ZAd) ANDO CILINEC UNTU) Ze £°A™..°9")) BOO 
BEGIN 
122 (° OLFFERENT FIRST ROVE °) ACINTI) am ILIMEC INT ID3 C* COPY CHARACTER TO TOKEN ©) 
If wmOT SELECT THEN INTIS @= INT UCL3 (> ADVANCE POINTERS °) 
OEGIN SNTS = INT JO13 
OSTYLCUNTK) oa VALUECINDEX( JNTKI23 ENO: 
MEWBST CUNTK) 3 RORGNT 02 INTY <> AA (> RETURN TRUE IF ANVTHING 
Eno MOVED °) 
ELSE WHILE CIMT < 25d) ANDO CILIMECINTI) IN (7A. 27972) 00 
BEGIN INT O2 INT IOR3 (* SKIP REST OF TOKEN °) 
IF UPOATE CMOVESTIMOEXC UNTKOL ID) THEN ENO3 €* RORGNT *) 
GoTo 11 (® START WEW PLY °) 
ELSE 
OEGIN 
ONDATE CMOVESCIMOEX( JNTK}}) 3 
GOTO 123 (® FINO ANOTHER MOVE °) PROCEDURE RORSFT3 (* SKIP FIRST TOKEN IN COMMANO 
ENDS LINE %) 
13¢ ¢* FLOAT VALUE BACK °) VAR : 
IF MENMAXCUNTKD THEN INRA ¢ RAL (* SCRATCH ®) 
GOTO 153 (* PRUNE ©) INTO ¢ TO3 (* SCRATCH ®) 
Let (* FINO ANOTHER MOVE AT THIS PLY ©) GEGIN 
IF SELECT THEN JNTI ts AUS (© INITIALIZE SCAN ®) 
IF UPOATE (MOVESE INOEXCUNTK C132) THEN INTE t= RORGNTCIWRADS (* THROW AWAY FIRST TOKEN ©) 
GOTO i: ¢® START NEW PLY *%) EMOS (€° RORSFY *%) 
ELSE 
BEGIN 
ONDATE CMOVESL INDEX(C UTK) 293 
GOTO 163 (* FIND ANOTHER MOVE °) 
a ENOS PROCEDURE RORCHO (* TEST FOR AND EXECUTE COMMANDO 
NO 


EXITS VO COMMAND EXIT IF 


COMMAND IS PROCESSED. °) 
158 (¢° BACK UP A PLY 9) 


IF JMTK >» AK THEN 


CAsRas (* POTENTIAL COMMAND KEYWORD °) 
BEGIN (° MOT CONE WITH ITERATION ©) PROCEDURE XXXCHO)3 (* PROCEOURE TO EXECUTE 
OMOATECMOVESE INDEXC SNTKIINS (* RETRACT MOVE *%) COMMANDO ©) 
GOTO 133% 
ENO; BEGIN 
IF INRA = A THEN 
(° OOME WITH ITERATION ©) @EGIN 
TF (COSTVLC AK) cw BSTVLCAK=-2)) OR (OSTVLCAK) ms -OSTVL(AK~i)) THEN KXKCHOS (® EXECUTE COMMAND ©) 
BEGIN (*° NO ROVE FOUND ©) GOTO jis ¢® Exit °%) 
IF MVSELC AK) = @ THEN ENO: 
OEGIN (° NO LEGAL MOVES *) ENOs (¢€° RORCHO *) 
GOTO 162 (* GIVE UP >) 
ENO? 
BSTVLCAK92) a2 <-2V3 (* SET ALPHA-BETA WINOOW LARGE °) 
BSTVLCAK~1) be -2V3 PROCEOURE ROLINE: (® GET MEXT INPUT LINE FROM 
SRCOHMCAK) 82 HTS USER ©) 
JUTM gs AKOLS 
GOTO 113 (* TRY AGAIN ©) var 
Eno? INTC 8 TC; (* SCRATCH ®) 
BSTVLCAK=-2) sa BSTVLCAK) - MINDOM,Z (° SET ALPHA BETA WINDOW %) Infy 8 Tut (© STRING INOEX ©) 
BSTVLCAK~-1) sa = BSTVLIAK) - WINDOWS 
JNTK 82 JNTKO13 (* AOVANCE ITERATION NUMBER °) BEGIN 
SRCOMMCAK) sa H73 REAOLNS (* AOVANCE TO NEXT LINE % 
ENO IWTS 82 AJ 
WHILE NOT EOLN ANO (CINTY < ZU) 00 
46s ¢° EXIT SEARCH °) OEGIN 
SEARCH t= BSTMVCIAK)S (* RETURN BEST MOVE *%) READLICAROLINTUIDS (* COPY INPUT LINE ©) 


ENOS ¢* SEARCH ©) IMTS es INT JO1; 


ENO 
WHILE NOT EOLN CO 
READCINTC)3 (* SKIP REST OF INPUT LINE ©) 
WHILE INTY < 2 00 
PROCEDURE READER; (® READ INPUT FROM USER °) BEGIN 
ICAROCINTJ) 2 7 “3 (* BLANK REST OF LINE ©) 
LABEL INTJ t2 INTJO18 
113 (® COMMANDO FINISHED EXIT ©) ENO 
ICARO(ZJ) tz 72% (* SET END OF COMMAND ©) 
var IMTS 82 AJ (* RESET INPUT LINE POINTER ©) 
IMRA 8 RAZ (* SCRATCH TOKEN °) ENO; (* ROLINE ©) 
INTs & TU3 (* ECHO COMMAND INDEX ©) 
FUNCTION RORMOVETBS (° EXTRACT NEXT COMMAND 
PROCEDURE RORERRIASRNDS (® PRINT OXAGNOSTIC ANO EXIT °%) FROM INPUT LINE. 
RETURNS TRUE IF NONEMPTY 
VaR COMMAND. °) 
InNTy 8 Tus (® STRING INDEX ©) 
Tete o Tus (° MESSAGE INDEX ©) VAR 
IMTS 8 TUE (° STORING POINTER © 
gecee STORING POINTER ©) 
TF WOT SWEC THEN (* ECHO LIME IF NOT ALREADY BEGIN 
CONE °) WHILE CUMTU < Zu) AND (ICAROCUMTIU) # @ 7) 00 
BEGIN JMTJ 82 JMTICLS (° SKIP LEADING BLANKS ©) 
WRITEC™ MD3 IMTS tz AJ 
FOR INTJ #82 AY TO ZJU-1 00 WHILE (CUMTU < 24) AND CICAROCUMTUD <> 73") 00 
WRITECILINECINTIDD 3 (*° WRITE INPUT LINE ©) BEGIN 
WRITELNE ILIMEC IMT) t= ICAROC NTI); 
ENO IMTS 82 IMTJO33 
FOR INTJ ss AU TO JNTU 00 IMTS Be IMT 013 
WRITEC™ “03 (® LEADING BLANKS BEFORE ARROW °) ENO: 
WRITELN( OTM DS (* POINTER TO ERROR ©) IF (CICAROCIMTJ) = “3°) AND CUNT < 20) THEN 
FOR INTN ¢s AN TO ZN 00 IMTS te IMT IO13 (© SKIP SEMI-COLON ©) 
WRITECACINTNDDS (* WRITE OZAGNOSTIC *) RORMOV os IMT <> AJ (© RETURN TRUE IF NONEMPTY ©) 
WRITELNS WHILE IMT < 2y 00 
GOTO iis (> COMMANO EXIT °) BEGIN 


Enos ¢€*° RORERR *) ILIMEC IMT) sz 7 %3 (* BLANK FILL LINE %) 
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IMTS 82 IMTy013 


Ie 
Jn 
ENO 3 


Func 


VaR 


IMECZ ID sz MEe3 
TJ te AJ 
€* RORMOV *) 


TIOM RORNUNSTIS 


Inve « 163 
INTI 8 728 


BEGI 


WHILE CUNTI < ZU) 


If 


JINTI sa INT JO13 
IL IMEC UNTID = “-" THEN 


BEGIN 


INTB sa TRUE? 
SINT S Os JNTUO1S 


Eu 
BE 


bY 3 

GIN 

INTO ¢2 FALSE 

IF IL IMEC INT) 2 70” THEN 
INT 82 INT JO1$ 


WHILE ILINECUNTI) IN (70%..°9°) OO 


TI ss 03 


GIN 
If INTI < MAXINT/10 THEN 


ANO CILINEC JUNT J) 


(*° STORE COMMANO TERMINATOR ©) 
(* PRESET COMMAND SCAN ©) 


(* CRACK MUNGER FROM COMMAND 
LIME. RETURNS NUMBER IF NO 
ERROR. 
IF ERROR. ©) 


(* SIGN °) 
(* VALUE °) 


7s" @) 00 
(* SKIP LEADING BLANKS ©) 


(* MUNBER ITS NEGATIVE °) 
(® ADVANCE CHARACTER POINTER ©) 


(° NUMBER IS POSITIVE °) 
(> SKIP LEADING © %) 


INTE 3 LOFINTICOROCILINEL INTI})-ORO(7°O™) 


ELSE 
RORERR(” NUMBER TOO LARGE 
INT 82 INT JO1$ 


EnO3 


IF ILINECINTI) IN CPA". 72°) THEN 


if 


RORERR(" OIGIT EXPECTED 
INTB THEN 
IMTI e= oINTI3 


RORNUM t2 INTIS 


END? 


(* RORNUM ®) 


PROCEOURE BOACHO}: 


VAR 
IN 
In 


Tm 8 TMS 
TS @ TS3 


PROCEQURE BOAADVCALTIDs 
GEGIN 


IF IMTSeA «< ZS THEN 
INTS #2 INTS¢A 
ELSE 
IMTS es 2S3 


EwOs ¢(*° BOAADYV *) 


PROCEDURE BOASTOCASTPD 3 


BEGIN 


BOARD.RBISLINTS) 82 At 
If INTS «< ZS THEN 
INTS t2 INTSe33 


ENOS (© BOASTO *) 


BEGIN 


(* BOACMN °*) 


CLSTATS$ 
LSTMV 82 NULAV: 
FOR INTS #2 AS TC 2S 00 


BOARD. RBISCINTS) t= MT$ 


INTM 82 LITES 
INTS as 63 
REPEAT 


TE TEINEL STI TN Fg Rg Og gg Kg PO ae MOM) THEN 


CASE ILINECUNTJ) OF 
“Ps BOASTOCXTUMPLEP,INTMID$ 
“R@2 BOASTOCXTUMPLER,INTMDD3 
“N7s BOASTOCKTUMPCEN, INTMDD3 
“87s BOASTO(XTUMPLEB, INTMI)3 
“Qs BOASTOCXTUMPCEQ, INTM}) 3 
“Ks BOASTOCKTUMPLEK, INTMI)S 
“Ls INTM te LITES 
“O78 INTM 82 DARK 


“03 
(® AOVANCE ©) 


(° COMPLEMENT IF WEGATIVE ©) 
(> RETURN NUMBER ©) 


(* COMMAND - SET UP POSITION % 


(* COLOR %) 
(* POSITION ON BOARD *) 


(* ADVANCE NW FILES ©) 


(° STORE PIECE ON BOARD °%) 


(* CLEAR STATUS FLAGS °) 
(* CLEAR PREVIOUS MOVE °) 


(* CLEAR BOARD ©) 


bod Galt hed Sed bee hed het Sek ted bok teed - el edt ook ted bel | 


BOAADVCOROVILINEC INTIS })-ORD(°0%)) 3 


ENO 
ELSE 


TF ILINEC INT) IN (7A% 279%) THEN 


BEGIN 
FOR INTS t= AS TO 2S 00 
BOARO.RBISCTINTS) ts MTS 


CLSTATS (* CLEAR STATUS °) 
RORERR(” ILLEGAL BOARD OPTION “ys 
ENDS 


JNTJI sz JNTJO3$ 


UNTIL JNTJ = 258 
ENOS ¢* BOACMO *%) 


PROCEDURE ENOCHO; 


BEGIN 
GOTO 93 
EwOs (¢° ENOCHO ©) 


PROCEOURE GONCMO$ 


(° COMMAND - ENO PROGRAM ©) 


(° ENO PROGRAM *) 


(* COMMANDO - GO N MOVES °) 


EXITS TO COMMAND EXIT 


BEGIN 
GOING t= RORNUNMS 


IF GOING <z 0 THEN 


GOING 8= 23 
GOTO 23 
ENOs ¢° GONCHO *) 


PROCEDURE INICHO? 


BEGIN 
GOTO 13 
EMOs €° INICHO 9) 


PROCEDURE LETCHD? 


LABEL 
21% 


PROCEDURE LETONE 


CAaRAs 
VAR Betz? 


OEGIN 
IF A & INRA THEN 
BEGIN 
8 s= RORNUM; 
GOTO 21% 
Enos 


EmOs (° LETONME ©) 


BEGIN 


TF RORGNTCINRA) THEN 


BEGIN 
LETONE (°F KP SHO 
LE TONE (°F KSANQ 
LETONE (°F MAXMT 
LE TONE (“FNODEL 
LETONE (°F PADQR 
LE TONE ("F PADQN 
LE TONE (“FPA0QB 
LE TONE (°F PADQF 


LE TONE (°F PADKE 
LETONE (°F PADKS 
LE TONE (“FF PADKN 
LE TONE (°F PADKR 
LE TONE (°F PBLOK 
LE TONE (°F PC ONN 
LETONE (°F PF LOX 
LE TONE (°F ROUBL 
LETONE (°F RK7TH 
LET ONE (°F TRADE 
LE TONE (°F TROSL 
LE TONE (°F TREOK 
LE TONE (°F TRPWN 
LE TONE (°F WK ING 
LE TONE (°F HHA UM 
LE TONE (°F WM ING 
LE TONE (°F WPAUN 
LE TONE (°F MROOK 
LE TONE (7 uZNOON 


“,FKPSHODS 
“ FKSANQ)3 
“oFMAKMT) 3 
@.FNOOEL) 3 


“FRPAOCRIFL DDS 
“,FPAOCRIF 2193 
“.FRPAOCREF3)03 
“ FRPAOCRIF IDS 
“ FPRAOCR( FSIS 
". FRPAOCRI F613 
=, FRPAOCRIFT 193 
=, FPAOCRIFOIDS 


= FRPOLOKS: 
“=, FPCONN) 3 
=, FRELNK) 3 
=. FROUBL) 3 
*oFRKTT HD 3 
“ FITRADE) 8 
"- FYROSL) 3 
=, FTRPOK) 3 
=, FIRPwN) 3 
“Fux rInc) $ 
*  FUMAIN) 3 
* Fumren> 3 
“ FUPAWN) 3 
* o FURCOK) 3 
=, MINED) 3 


qs 
qe 


RORERRI” ILLEGAL LET VARZABLE NAME 


218 (9 LEV COMMAND EXIT °) 


EMOs ¢€° LETCHD ©) 


PROCEOURE PLECHOS 


LABEL 
213 


PROCEDURE PRIONE 
CASRAS 
Oerrys 


BEGIN 
IF IWRA = A THEN 
BEGIN 
WRITELNCA,B) 3 
GOTO 213 
ENO$ 
END; (° PRIONE ©) 


BEGIN 


(* PLECMO ©) 


WHILE RORGNT(INRA) 00 


BEGIN 
PRIONE (°F KPSHO 
PRIONE (°F KS ANQ 
PRIONE (°F MAXHT 
PRIONE (°F NODEL 
PRIONE (“FPADQR 
PRIONE ("F PADQN 
PRIOWE (°F PADQS 
PRIONE (°F PADQE 
PRI ONE (°F PADKF 
PRIONE (°FPADOKB 
PRIONE (“FPADKN 
PRIONE (°F PADKR 
PRIOME (°F PBLOK 
PRIONE (°F PCONN 
PRIONE (°F PF LINX 
PRIONE (°F ROUBL 
PRIONE (“FRK7TH 
PRIONE (°F TRADE 
PRIONE C"FTROSL 
PRIONE (°F TRPOK 
PRIONE (“F TRPWN 
PRIONE ("F MK ING 


=, FKPSHO) S$ 
" FKSANQ) ¢ 
*, FRAKMT) 3 
=, FNOOEL?) $ 


“ FRAOCR(F1IID§ 
“,FRAOCREF 2908 
“,FPAOCREF SIDS 
@ FPAOCRIF ODD3 
“oF PAOCREF S93 
“, FRPAOCREIFG6I)DS 
"oFPAOCR( FTI): 
“.FPAOCRIF ODS 


= FPBLOK): 
=F PCONN) $ 
"  FRPELNX) S$ 
=, FROUBL) $ 
“,FRK7TH) § 
"=, FTRAOE)$ 
“,FTROSLI 3 
“,FTRPOK)$ 
“,FTRPWN): 
FUKING) § 


qs 


CRACK NUMBER °) 

EXECUTE MACHINES MOVE ©) 
COMMAND - INITIALIZE FOR A NEW 
GAME °) 


INITIALIZE FOR A NEW GAME °) 


COMMAND - CHANGE VARIABLE °) 


LET COMMAND EXIT °) 
TEST FOR ANDO SET ONE 
VARZABLE °%) 


VARTAGLE MANE °) 
VARIAME °%) 


GET VALUE °) 
ExIT 9) 


COMMAND - PRINT VARIAME 9°) 
PRINT LET COMMAND EXIT °) 
TEST FOR AND PRINT VARIABLE *%) 


TEST VARTAQLE WANE °) 
VARIABLE °%) 


Exit %) 
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Listing 1, continued: 


PRIONE (°F UNAM 
PRIONE (WF UM ING 
PRIONE (°F WP AWN 
PRIONE (°F WROOK 
PRIONE ("WINDOW 


* FURAIN) 3 
“,FUMINMD § 
~~, FUPAUND : 
“oF WROOK) § 
“WINDOW? ; 


RORERR(” ILLEGAL VARIABLE NAME 


2148 ¢€9 PRINT LET CCMHMANO EXIT °) 


ENOS 
Enos (° PLECHO 9%) 


PROCEDURE PRICHOS 


BEGIN 
IF RORGNTCIMRAD THEN 
PRINTO CNBORO) 
ELSE 
PRINTB (BOARD. RBIS)’ 
ENO? (* PRICHO ©) 


PROCEDURE PANCHO? 


BEGIN 
WHILE RORGNTCINRA)D 00 
T© TMRAC AA} = @T" THEN 
PRINAMCATKTO) 
ELSE 


TE JNRACAA) & “F"™ THEN 


PRINAMCATKER) 
ELSE 


RORERRI” ATTACK MAP NOT 


EMOs (° PAMEMO ©) 


PROCEDURE POPCHD?: 


var 
TMTQ ¢ FQ3 


BEGIN 
WITH 80ARD 00 
BEGIN 


WRITELNIXTMACROTND,” TO MOVE. "13 


WRITELMIROTS,~ EMPASSANT.°) 3 
URITELMIPROVE MUMNGER™,ROTID 8 


FOR IMTQ ee LS TO O DO 


IF yeTQ Im ROSA THEN 


*To° 


(° COMMAND - PRINT ATTACK MAP ©) 


(® COMMAND © PRINT OTWER STUFF ©) 


COMMAND - PRINT BOARD °) 


“FROMS™)3 


CASTLE TYPE INOEX °) 


URITELMEKTQACINTQI,” SIDE CASTLE LEGAL. “D3 


ENO; 
EnmOs (° POPCHO °) 


PROCEDURE PHYCHOS 


var 
Inte 8 Tus 


BEGIN 
LSTmOVs 


FOR INT s2 AW TO JNTW-3 10 


BEGIN 
WURITECINTWS&,> “D3 
PRIMOVIMOVESC INT WED: 


TF INTUSLPP = INT OLY LPP THEN 


PAUSERS 
EnOs 
ENOs ¢* PMYCHRO ©) 


PROCEOURE SWICHOD3 


LAGEL 
213 


PROCEQURE SWIONE 


(ASRAS 
VaR O:1B)3 
VaR 
IMT 8 TI 
BEGIN 
IF IWRA = A THEN 
BEGIN 


IMT 82 JNTUS 
IF RORGNT (INRA) THEN 
BEGIN 
IF IWRA = “ON 
6 t= TRUE 
ELSE 
IF INRA = “OFF 
8 t= FALSE 
ELSE 
JNTS 82 INTIS 
PRISWI(CA,B)$ 
eno 
ELSE 
PRISWI(A,B)3 
GOTO 21:3 
ENO? 
ENDS (€* SWIONE ©) 
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COMMAND - PRINT MOVE LIST °) 


MOVES LIST INDEX °%) 


LIST LEGAL MOVES ©) 


COMMAND - FLIP SWITCH ©) 


SWITCH OPTION EXIT 9%) 


PROCESS OWE SWITCH °) 
SWITCH NAME %) 
SWITCH °%) 


SAVE COMMAND INDEX ©) 


SAVE CURRENT POSITION ®*) 


TURN SWITCH ON °%) 
TURN SWITCH OFF %) 


RESTORE CURRENT POSITION °) 
PRINT SWITCH VALUE °) 


SWITCH OPTION EXIT ©) 


BEGIN (* SWICHD *) 

218 ¢° SWITCH OPTION EXIT *%) 
WHILE RORGNTCINFA) 00 
BEGIN 

SWIONE ("EC 
SMIONE ("PA 
SWIOWNE (C™PS 
SWIONE ("RE 
SWIONE ("SU =.SwWSu)$ 
SWIONE ("TR “eSWTRDS 
RORERR(” INVALIO SWITCH OPTION "rs 
ENO? 
EmOs (° SWICMO ©) 


“,SWEC)$ 
“eSMPADS 
*.SuPS)3 
“.SWREDS 


PROCEDURE STACHOS (° COMMAND - STATUS CHANGES *°) 


LABEL 

213 (* STATUS COMMANO OPTION EXIT ©) 
VAR 

IWRA 8 RAL (> CURRENT TOKEN ©) 

InTe 8 TM (* SIOE BEING PROCESSED *°) 


PROCEDURE STAEPF (* PROCESS EP FILE °%) 
CASRAS (* TEST TOKEN °%) 
Berens €* EQUIVALEMT FILE 9) 


BEGIN 
IF A = IWRA THEN 
BEGIN 
If INTM = LITE THEN 
BOARO.RBTS ss XTRFSCRE,B) 
ELSE 
BOARO.RBTS 82 XTRFSCRI,B)3 
GOTO 21% (* EXIT STATUS OPTION *) 
End 3 
EMO (9 STAEPF 9) 


PROCEDURE STACAK3 (* ALLOW CASTLE KING SIOE °) 


BEGIN 
If INTM = LITE THEN 
BOARO.RBSQ sa BOARO.RBSQ * (LS) 
ELSE 


BOARO.RBSQ %= BOARD. RBSQ © (OS)3 
EwOs; (* STACAK ©) 


PROCEDURE STACAQ} (® ALLOW CASTLE QUEEN SIOE °) 
BEGIN 
IF INTM = LITE THEN 
BOARD.RBSQ &s BOARO.RBSQ ¢ (LL) 
ELSE 
BOARD. RBSQ t= BOARO.RBSQ + (0L)3 
ENOs (* STACAQ %) 


PROCEDURE STAORK3 (® SEY BLACK OPTIONS °) 
BEGIN 

INTM ss DARKS 
Enos ¢€° STAORK *) 


PROCEDURE STAENP? (* SET ENPASSANT FILE °%) 


BEGIN 

IF NOT RORGNTCINRA) THEN 

BEGIN 
CLSTAT? (* CLEAR STATUS *) 
RORERR(™ ENPASSANT FILE OMITTED “)3 

END} 

STAEPF (“QR “,Fids 

STAEPF("QN “,F203 

STAEPF ("28 “F303 

STAEPFI"Q “Fad 

STAEPF (°K ".FS)3 

STAEPFI"KO “.F6DS 

STAEPF ("KN “,F7)3 

STAEPF ("KR “.FOd3 

CLSTATS (* CLEAR STATUS ©) 


RORERR(” ILLEGAL ENPASSANT FILE bea Ie 
ENOS (* STAENP *%) 


PROCEDURE STAGOS3 (° SET SIOE TO MOVE ©) 
BEGIN 

BOARD.RBTM ex INTM: 

JSNTM 8a INTHE 
ENOS ¢* STAGOS °) 


PROCEDURE STALITS$ (° SET WHITE OPTIONS ©) 
BEGIN 

INTM sz LITE3 
EMOS ¢€° STALIT °) 


PROCEOURE STANUM: (* SET MOVE NUMBER ©) 


BEGIN 
BOARD.RBTI t= RORNUMS 
ENO; (° STANUM *) 


PROCEDURE STAOPT 
(ARRAS 
PROCEDURE STAXKX)? 


TEST STATUS OPTION °) 

TEST OPTION *) 

PROCEOURE TO EXECUTE IF 
EQUAL °) 


F3.F68 ADOCHR("B~) 3 
Fe t ADOCHRI"Q%)3 
FS s ADOCHRI“K™) 3 


BEGIN 
IF INRA = A THEN 
BEGIN 
STAXKX3 
GOTO 213 
END? 


ENOs (* STAOPT *) 


BEGIN (* STACHO °) 
CLSTATS 
INTM ea LITE3 

228 ¢* STATUS OPTION EXIT %) 
WHILE RORGNTC( INRA) 00 


BEGIN 
STAOPT ("0 =» STAORK) 3 
STAOPTI("EP “» STAENP) $ 
STAOPT (°C "»STAGOS) 3 
STAOPT (ML “STALIT)3 
STAOPT (7M =o STAMUN) 3 
STAOPT ("00 "=. STACAK) 3 
STAOPT ("000 =, STACAQ) 3 
CLSTATS 
RORERR(" INVALIO STATUS OPTION 

ENO? 

EMmOs (* STACHO °) 


PROCEOURE WHACHDS 


BEGIN 
WRITELNCMOVENSD 8 
ENOs (9 WHACHO ©) 


BEGIN (* READER ©) 
1138 (° COMMAND EXIT °) 
WHILE NOT RORMOV 00 
ROLINES 


IF SWEC THEN 
OEGIN 
WRITEC™ “D3 
FOR INTU #2 AUD TO ZJ-i 00 
WRITECILIMECINTIIDS 
WURITELNS 
ENO3 
TE ITLIMEC ALCL) IM CPA. MM MVM, MZ) 
OEGIN 
IMA as * 3 
IWRACAAD 82 ILINEC AUIS 
TRAC AACL) es ILINE (AJOL D3 


RORSF TS 

RORCHO "80 “»BOACHO) 3 
RORCHO (WEN “sENOCHO) 3 
RORCHO ("GO * »GONCHO) 3 
RORCHO (“IN “I NICHO) 3 
RORCHO (“LE “sLETCHOD 3 
RORCHO (°P8 * -PANCHO) 3 
RORCHO ("PO *»POPCHO) % 
RORCHO (“PL *»PLECHO) 3 
RORTHO ("PH > PHVCHOD % 
RORCHO (“PR "»PRICHO) 3 
RORCHOI(”ST “eS TACHO) 3 
RORCHO ("SH “SWICHO) 3 
RORCHO (MH *,WHACHO) $ 
RORERR(” INVALIO COMMAND 

ENO’ 
ENO3 (© READER *) 


PROCEDURE MINENG 


CASRN 
OeRars 


VAR 
Inve 8 Teg 


PROCEDURE ADDCHR 
CAsTCns 


BEGIN 
MOVASCINTNM) S82 AS 
IF INTN < ZN THEN 
INTN sa INTNO13 


Enos ¢€* ADOCHR °°) 


PROCEOURE ADOSQR 
qaaTss 
BsROD3 


BEGIN 
WITH 6 00 
BEGIN 
IF ROPC THEN 
ADOCHRIXTUCE XTPUCNBOROE AI) 393 
IF ROSL THEN 
ADOCHR("7")3 
IF ROKQ THEN 
IF XTSFCA) IN (F1..Fe) THEN 
AOOCHR«I“Q™) 
ELSE 
ADOCHR(I“K™) 3 
IF RONB THEN 
CASE XTSFC(A) OF 
FieF88 ADOCHRIMR™) 3 
F2,F7¢ ADOCHRIMN™) 3 


(* EXECUTE PROCEDURE ©) 
(* EXIT STATUS OPTION °) 


(* CLEAR STATUS *) 
(* DEFAULT SIOE WHITE *) 


(* COMMAND © WHAT? 9) 


(© PRINT LAST MESSAGE °) 


(> ECHO LINE ©) 


THEN 
(* EXTRACT KEVWORD °) 


(® SKIP FIRST TOKEN °) 


(® GENERATE MINIMUM 
ENGLISH NOTATION °) 

(* MOVE TO NOTATE ©) 

(> LEADING COMMENT ©) 


(® MESSAGE INDEX °) 

(© ADO CHARACTER TO NESSAGE °) 
(® CHARACTER °) 

(* ADO CHARACTER *) 

(* AOVANCE POINTER °) 


(* ADO SQUARE TO MESSAGE °) 
(® SQUARE TO ADO °) 
(* SQUARE SYNTAX ©) 


ENDS 


IF RORK THEN 
IF JNTM = LITE THEN 


CASE 
Ris 
R28 
R38 
Res 
R58 
R68 
R78 
RES 

ENO 

ELSE 

CASE 
Ris 
R28 
R38 
Ros 
R53 
R68 
R73 
ROE 

ENO? 
ENOS 


ENOS (¢* AOOS 


XTSRC(A) OF 
ADOCHR(717)3 
ADOCHR("2°) 5 
ADOCHRI“3")3 
ADOCHRIM6")5 
ADOCHRI"S") 3 
ADOCHR ("6") % 
ADOCHRIW7")3 
ADOCHRI"6") 3 


XTSRCA) OF 
ADOCHR(I"6")3 
ADOCHR(*7™)3 
ADOCHR( "6723 
ADOCHR ("5") 5 
ADOCHR ("6") 3 
ADOCHR(“3")3 
ADOCHRI"W2°) 3 
ADOCHRIW1°)5 


QR *) 


PROCEDURE ADOURD (° AOD WORD TO MESSAGE °) 
CASRAS (° TEXT OF WORD ©) 
Osvans (* LENGTH OF WORD %) 
VAR 
INTA & TAS (* CHARACTER INDEX ©) 
BEGIN 
FOR INTA 8s AA TO 8 00 
ADOCHRCACINTADD 3 
ENOs (* ADOWRO ©) 


FUNCTION OIFFER 


CA, SeRM) (© MOVES TO COMPARE °) 
8783 (* TRUE ZF MOVES ARE OLFFERENT °%) 
VAR 
Inve © 783 (® SCRATCH 9) 
BEGIN 
INTO 8s CA.RMFR <> B.ROFRI OR 
CARNTO <> BRNTO) OR 
CARMCP <> B.RNCPD3 
IF A.RMPR = B.RMPR THEN 


IF A. RMPR THEN 
OIFFER es INTO 
ELSE 
IF A.RNOCO = BR 
IF A-MROO THE 


oR CA RNPP <> 8. RPP) 


MOO THEN 
" 


OIFFER se INTH OR CA.RMQS <> B.RNQS) 


ELSE 


OXTFFER es INTSB 


ELSE 


OIFFER ss TRUE 


ELSE 
OIFFER 88 TRUE? 


ENOS (° OFFFER ©) 


PROCEOURE SETSQD 


OEFINE SPECIFIC SQUARE 
DESCRIPTOR ©) 


Casts’ (* SQUARE TO OESCRIBE ©) 

BsRO}3 (* SYNTAX TO USE ©) 

VAR C#SRe (* SET OF POSSIBLE RANKS °) 

VAR OsSF)3 (* SEV OF POSSTOLE FILES ©) 
BEGIN 


C sez (R1.-RB}3 
O sz (F1..F8)$ 
with 8 00 
BEGIN 
IF ROKQ AND RONG 
O 8s (XTSFCAJD}3 
IF (WOT ROKQ) ANDO 
CASE XTSFIA) OF 


THEN 


RONB THEN 


Fi oFOs O ss (F1,FOd3 
F2eF7s O ga (CF2,F7I3 
F3.F68 O ts (F3,F6I3 
Fe 8 0 ss (Fe)3 
FS ¢ 0 sz (FS)3 


ENDS 
IF RORK THEN 
C ss (XTSRIAII3 
ENO? 


ENO; (* SETSQD ©) 


PROCEDURE MINGEN 


INITIALIZE TO OEFAULTS *) 


PRODUCE NINZINUN 
ENGLISH NOTATION FOR 
MOVES AND CAPTURES °) 


CARAS (> MOVE OR CAPTURE ©) 
Oevrs (> FIRST SYNTAX VAGLE ENTRY ©) 
CavIn3 (* LAST SYNTAX TAGLE ENTRY ©) 
LABEL 
210 (® EXIT AMBIGUOUS MOVE SCAN °) 
223 Co EXIT MINGEN ©) 
VAR 
INTG & TGS (© PROMOTION PIECE ©) 
INTI 3 TI3 (* SYNTAX TAQLE INDEX %) 
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Listing 


Intw 
INLR 
IWRR 
IMLF 
INRF 


BEGIN 
FOR 
wt 
BE 


2ie 
EN 

220 ¢ 

ENO 3 


BEGIN ¢ 
MOVMS 


INT 8 
aocowRrod 


WITH A 
BEGIN 


1, continued: 


a Tw 
@ SRE 
8 SR3 
¢ SF3 
e SF 


InvI sz 8 TO C 00 
TH SYNTXCINTI) 00 
GIN- 
IF ARMPR THEN 

INTG t= A.RMPP 
ELSE 

INTG t= PB$ 
SETSQOCA.RMFRERVLS» INMLReINLF) S 
SETSQOCA. RNTO,RYRS» INRR, INRE) § 
FOR INTW ss Awei TO JNTW-1 DO 


IF OIFFERCMOVESTINTH),A) THEN 


MOVES 
RANKS 
RANKS 
FILES 
FILES 


INOEX °) 

OEFINED ON LEFTY *) 
OEFINEO ON RIGHT ©) 
OEFINEO ON LEFT °%) 
OEFINED ON RIGHT *) 


FOR EACH SYNTAX ENTRY °%) 


SET SQUARE SETS ©) 


IF (NBOROCA.RMFR) = NBOROCMOVESCINTW).RMFR}) AND 
CARMCP = MOVESTINTWI.RMCP) THEN 


WITH MOVESTINTW) 
IF (xXTSRIRMFR) 
(XTSRERMTO) 
(XTSFCRMFR) 
(XTSFC RTO) 


INLR) 
IWRR) 
INLF) 


IN INRF) 


CCRMPR AND CINTG = RMPPD) OR 


GOTO 21% 


(* NO OTHER MOVE LOOKS THE SAME °) 


ADOSQRIA. RMFRRYLS)$ 
AOOCHR(IRYCH) 3 
ADOSAR(I A. RMTO,RVRS) § 
GOTO 22% 

® TRY MEXT SYNTAX ©) 
03 

© EXIT MINGEN ©) 

(? MINGEN ©) 


© WINENG °) 


ws ANe18 

(Be ZAd3 

203 
00 


IF RMNOO THEN 


GEGI 


iF 
Eno 
ELSE 

re 


et 


RNAS THEN 
ADOWRD(”-0 


RACA THEN 
MINGENCA,SYNCE SVNCL) 
S€ 
MIMGENCA,SVMNE,SVNMLD ? 


IF RMPR THEN 


ADOCHRIWs™) ¢ 
ADOCHR (XTGCI RAPP IDS 


IF RRCH THEN 


BEGI 


AOOWRO (“CHECK 


If 


" 
"o5d3 
RNNT THEN 


ADOWRO (HATE Wo hds 


ADOCHRI~.") 3 


Eno 
ELSE 
If 


RANT THEN 
ADOWROCSTALEMATE.",10) 3 


MINENG ©) 


PROCEDURE MYMOVES 


var 
IWRM 8 


BEGIN 


CREATES 


INMRM 8 


= MOVES(SEARCHIS 


IF INRA. RMIL THEN 


BEGIN 


GOING 82 03 
IF LSTMV.RNCH THEN 

WRITELNC™ CONGRATULATIONS.™) 
ELSE 


WRITELNC” ORAWN. 


ENO 
ELSE 


BEGIN 
WIMENGC INAH,” MY HOVE “98 
WRITELMCHOVNS) 3 
THENOVC TRH) $ 
IF Susu THEN 
WRETELN (BOARD. RETI, 7.7, NODES,” NODES. °o BSTVLCAK}) $ 


(> MYNOVE ©) 


PROCEDURE YRHOVES 


LABEL 
aa. 
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12. 


43- 24, 15, 


ANO 
ANO 
ANO 
AwO 


(NOT RMPRD) THEN 
ANOTHER MOVE LOOKS THE SAME °) 


ADO FROM SQUARE ©) 

ADO MOVE OR CAPTURE °) 
A0O TO SQUARE °) 

EXIT MINGEN ©) 


@e 
3 
CLEAR MESSAGE °) 
INITIALIZE MESSAGE INOEX °) 
ADO INITIAL COMMENT *) 


CASTLE ©) 


wOT CASTLE ©) 
CAPTURE °) 


SIMPLE ROVE °) 
PROMOTION ©) 


CMECK ©) 


CWECKMATE ©) 


STALEMATE ©) 


MAKE MACHINES MOVE °) 


THE MOVE °) 


INITIALIZE OATA BASE ©) 
FINO THE BEST MOVE °) 
MO MOVE FOUND °) 
CHECKMATE *°) 


STALEMATE °) 


TRANSLATE ROVE TO ENGLISH °) 
TELL THE PLAVER °) 
WAKE THE HOVE %) 


MAKE PLAVERS MOVE °) 


SYNTAX MODES ©) 


16, 
17, 
bY ty 
VAR 
Inve 3s Y83 
Intc ¢ TC3 
INTM 2 TJ3 
IevP s TPE 
INCP ¢ TP3 
IFCA @ 783 
IFPR 8 TBR 
I€00 ¢« 183 
IFas ¢« T63 
INTG 8 G63 
Ifuv « TB 
IFLO & T83 
IFLF 9 TB3 
IFRO ¢ TB3 
IFRE « 783 
INLE 8 SF3 
INLR 8 SRE 
IWRF ¢ SF 
INRR & SRE 
IWRM 8 RM 
FUNCTION NCHIN 
CAtSC3 
PROCEDURE YRMXXX) 
8783 
VAR 
INTS ¢ Bz 
BEGIN 


INTB e= NOT CINTC IN AD 
IF WOT INTB THEN 
BEGIN 


IMTC so TLIMEC INT IIS 


VRAXXX3 


JINTJ 8s INT UO13 
WHELE CUNT < ZU) 
AMD COILINEC UNTID = 7 7) OR COROCILIMEC INTIID > ORD ZCHD) 00 


JINTS 88 WNT JO18 


SYNTAX ERROR ©) 
AMBIGUOUS HOVE *°) 
WMORMAL EXIT °) 


VALIO MOVE FOUND °) 
CURRENT CHARACTER °) 
MOVES INOEX °) 


MOVING PIECE °) 
CAPTURED PIECE °) 
CAPTURE ©) 
PROMOTION ©) 

CASTLE °) 

QUEEN SIOE CASTLE *%) 
PROMOTION TYPE *) 
MOVE FOUND °) 


Re Ne OR OB ON LEFT *) 
K OR Q OW LEFT *) 

Re Ne OR B ON RIGHT *) 
K OR Q ON RIGHT ©) 


FILES OW LEFTY °) 
RANKS ON LEFT °) 
FILES OW RIGHT °) 
RANKS ON RIGHT *) 


THE MOVE °) 


OETERMINE IF NEXT INPUT 
CHARACTER IS WOT IN A GIVEN 
SEY °) 

SEV OF CHARACTERS TO CHECK °) 
SEMANTICS ROUTINE TO CALL 

IF WEXT CHARACTER IS IN SEV 9%) 
TRUE IF CHARACTER IS NOT IN 
SEV 9%) 


SCRATCH °) 


EXECUTE SEMANTICS ROUTINE °) 
AOVANCE PAST CHARACTER ©) 


> SKIP BLANKS ©) 


TF CINTC = 7.7) OR CINTC = "3°) THEN 
(> ExzT Scan °%) 


GOTO 158 


ENO; 
MCHENM te INTBS 


PROCEDURE VRAHITS 


OEGIN 


TF FMV THEN GOTO 173 


IFMV es TRUES 


FORM 8s MOVEST INT WIS 


(* VROMIT ©) 


PROCEDURE YRHNCONM; 


BEGIN 


WITH MOVESC INT) 
IF (XTSRERMFR) 


ENO’ 


(XTSFC RFR) 
(XTSRERNTO) 
(XTSFERATO) 


00 
In 
In 
In 
In 


(NOT RMILD AND 
(BOARD. RBISCRMFR} = INTP) THEN 

TF RMCA = IFCA THEN 
IF RMCA THEN 
IF RNCP = INCP THEN 


VRNHIT 
ELSE 
ELSE 
YRMHIT 3 
(© YRNCOM ®%) 


PROCEDURE YRMCAP3 


BEGIN 


IFCA t= TRUES 


(* YRMCAP *) 


PROCEDURE YRHCAS3 


BEGIN 
IFOO 82 TRUES 
Enos ¢€* VRHCAS *) 


PROCEDURE VRACPC: 


(° MEXT CHARACTER °) 


(° RETURN TRUE IF CHARACTER IS 
MOT IM STRING °) 


(> FOUND A NOVE. 


ExzTs 


TO AMBIGUOUS MOVE IF THIS 
IS TWE SECOND POSSIGLE NOVE. 
SAVES THE MOVE Im TURN 


OTHERWISE. 


€* SECOND POSSIGLE MOVE °) 


(© FIRT POSSIBLE MOVE ©) 
(* SAVE MOVE °) 


(> COMPARE SQUARES. 


CALLS VYRANMIT 


IF MOVESC INT) MOVES THE 
RIGHT TYPE OF PIECE, CAPTURES 
THE RIGHT TYPE OF PIECE, ANO 
MOVES TO AND FROM POSSIQLE 
SQUARES °) 


IMLR) 
IMLF) 
IWRR) 
IWRE) 


(° SEMANTICS - CAPTURE °) 


(* SEMANTICS - CASTLE °) 


(° SEMANTICS - CAPTURED PIECE ©) 


BEGIN 
CASE INTC OF 


“P@2 INCP t= XTUMPCEP,OTHERE NTMI IS 
“R@s INCP 82 XTUMPLER, OTMERE INT} 38 
“Ns INCP ea KTUMRPCEN,OTMERE JUTMI D3 
“O"%s INCP 82 XTUMPCEB,OTHERE JNTND 23 
“aM"e INCP sa XTUMPC EQ OTMERE JNTNIS3 


ENO; ¢° YRNCPC *%) 


PROCEOURE VRNCQS3 


BEGIN 
TFQS s= TRUES 
ENO? ¢* YRNCQS °) 


PROCEDURE VRALKQ3 


BEGIN 
CASE INTC OF 
“K"s INLF sa CFS..F8) © INLFS 
“avs INLF t= (F1..Fe) © IMLFS 
ENO: 
IFLE te TRUES 
ENDS ¢*° YRALKQ %) 


PROCEDURE VYRHLRB: 


BEGIN 
CASE INTC OF 


"R@t %&INLF ss (F1,FO) © IMLFS 
"ws %<INLE es (F2,F7) ° INLE3 
“ews <INLF t2 (F3,F6) © IMLF3 
ENO? 


IFLO 82 TRUES 
ENO? (°° VRALRB ®) 


PROCEOURE YRMLRK3 


BEGIN 
IF JNTM = LITE THEN 


CASE INTC OF 
“2"s IMLR ss (RID 
"27s IMLAR ex (R213 
“370 IMR te (RII3 
“es TMLR te (ROIE 
“$"2 IMR te (RSIS 
“6"2 ZMLR se (RODS 
“7"s IMLR te (RIDE 
“ee TMAR os (ROD3 


CASE INVC OF 

“47s FMR te (ROIS 
"2"0 IMR ca (RIDE 
“372 TMLR te (REIS 
“es TMLR se (RSIS 
“S70 TMLR se (RO2E 
“6"s TMLR es (RI93 
“7"s IMLR te (R298 
"es TMLR es CRIDG 


Enos (9 VRALRK ©) 


PROCEDURE VRHMULS 


BEGIN 


EwOs (° VRAIN 


PROCEDURE YRHPC HS 


BEGIN 
CASE INTC OF 
—-P"2 INT es KTUNRPCEP, JNTH) 3 
"R“e INTP sa XTUMPCER, INTIS 
“a2 INTP ga XTUMPT EN, SNTNDS 
“B7: INTP te XTUMPCER, INTN DS 
“Q"s INTP sa XTUMPLEQ, JNTNI3 
“KM2 INTP se KVUMPCEK, SUT) S 
END: 


EMOs ¢€* VRHPCH ©) 


PROCEDURE VRMPRO? 


BEGIN 
CASE INTC OF 
“R“s INTG sa PRE 
“N"s INTG t2 PN$ 
“8%: INTG ss PB 
“a"s INTG 82 PQ3 
ENO? 
IFPR ts TRUES 
ENOS ¢€* YRHPRO ©) 


PROCEDURE VRARKQ; 


BEGIN 
CASE ImTC OF 
“K"s INRF t= (FS..FO) © INRFS 
“Q"s INRF 82 (F1,.FO) © IMRFS 
ENO: 


qs 


«® 
qs 
qe 
¢ 


SEMANTICS = CASTLE LONG °) 


SEMANTICS = K OR Q OW LEFT °) 


KING SIOE 9) 
QUEEN SIDE °) 


SEMANTICS = R, Ne OR B ON 
LEFT 9%) 


ROOK FILE %) 
KNIGHT FILE ©) 
BISHOP FILE *) 


SEMANTICS © RANK ON LEFT 9) 


SEMANTICS = MULL °) 


SEMANTICS = PIECE MOVED ©) 


Pawn %) 
ROOK °) 
KNZGNT °) 
BISHOP 9) 
QUEEN °) 
KING ©) 


SEMANTICS - PROMOTION *) 


ROOK °) 

KNIGHT ©) 
BISHOP °) 
QUEEN ©) 


SEMANTICS - K OR Q ON RIGHT ©) 


KING SIDE °) 
QUEEN SIOE °) 


BEGIN 


IFRF t= TRUE? 
EMOt (° YROLKQ ©) 


PROCEDURE VRHRRG: 


BEGIN 
CASE INTC OF 


“R@s <INMRF t= (F1,FE) © INRES 
“w"s IWRF sa (F2,F7) © INRF 3 
"a": INRF sz (F30F6) © INRFS 
ENO: 


TFRO t= TRUES 
EMO (° YRALRB ©) 


PROCEDURE YRARRK 3 


BEGIN 
IF JNTNM = LITE THEN 

CASE INTC OF 

“"1"s INRR ts (R113 
“2"s IWRR sa (R293 
“3°: INRR tz (R333 
"es INRR sz (ROI3 
"S"s IWMRR ts (R5IE 
“6% IMRR sz (RBIS 
“772 INRR tz (R718 
“a"e INRR sz (RBI3 

ENO 

ELSE 

CASE INTC OF 

“1%s INRR t= (ROIS 
"2"%s INRR gz (R7)3 
“37s INRR sz (RODS 
“es INRR se (R5S)3 
"S572 INRR 82 (RODS 
"6%: INRR saz (R33 
“772 INRR t= (R2)8 
“e"s INRR sz (RII3 
ENO? 


ENOs €* YRMLRK 9) 


(© YRMOVE ©). 


IMTO® t= FALSE$ 
WHILE NOT INTB DO 
BEGIN 


1as 


L2e 


138 


148 


158 


READERS 

LSTMOVs 

IFCA 82 FALSES 
IFPR t= FALSES 
TFOO ss FALSE3 
IfQ@S ss FALSES 
IFLO 82 FALSES 
TFLFE es FALSES 
JFRO t= FALSES 
TERE ce FALSES 
INTP ta MTS 

INCP te NTS 

IMLF es CF2 2 oF O23 
Tare ts CFL ae FOR 
IWER 8s (RL. RTS 
TIWMRR Os (RL. RODE 


IMTC t= IL IMEC INT II3 


(> SEMANTICS = R, Ne OR B ON 
RIGHT ©) 


(* ROOK FILE ©) 
(© KNIGHT FILE 9) 
(* BISHOP FILE *%) 


(* SEMANTICS - RANK OW RIGHT ©) 


(° READ NEXT MOVE *) 
(> LIST LEGAL MOVES ©) 


rf NCMIN GC Ph, PRM, PNM 7B, "AQ, "KT, YRMPCHD THEN GOTO 163 
IF NCHINGE™7™) sVRANUL) THEN GOTO 113% 
IF NCHING(“K™,°Q") oVYRALKQ) THEN: 
1¢ NCHINCEOR™,°NM, "O") sVRALRB) THENS 
re MCHINGC 17. .°8") oVRALRKD THEN: 
(° LEFT SIOE DONE °) 
TF WOT NCHING( “-") 
re NONINC CTO", NM) 
re NCNI NEE" P™,"R™, "NM, °B", "Q") 
IF NCHINCC 7%) 
(° RIGHT SIDE SQUARE °) 
re NCMINCEK™,"Q") 
iF MCMINGCPR™,°NM, 8) 
iF WCHINCE M37. .787) 
(© PROMOTION °%) 
Ie MCHENC Cs) 
IF NCHINGC EC MR, “NO, “B™,"Q7) 
GOTO 153 
(> CASTLING ©) 
r¢ NCHI NCC "°O","8") 
IF NCHING(%-") 
If NCNINC("O",°O%) 
If NCHING[ Po") 
IF NCHINCC"O","O") 


(° SVMTAX CORRECT *) 


IF IFRF ANO NOT IFRO THEN 
INRFE ¢2 INRE © (FHF S)3 
IF IFLF ANO NOT IFLO THEN 
INLF ss IMLF © (FOF SIS 
IFMV ss FALSE 
INTW es AW] 
WHILE INTW < JNTW DO 
WITH MOVESTINTW) 00 
BEGIN 
IF RMPR = IFPR THEN 
IF RHPR THEN 
IF RNPP = INTG THEN 
YRMCOM 
ELSE 
ELSE 
IF RHOO = IFOO THEN 
~IF RMOO THEN 
IF RMQS = IFQS THEN 
YRMHIT 


eVRAMUL) THEN GOTO 12% 
eVRACAP) THEN GOTO 163 
oVRNCPC) THEM GOTO 163 
oVRMNUL) THEN GOTO 133 


eVRHRKQ) THES 
eVRARRG) THEM: 
oVRARRK) THE NS 


oVRNMULD THEN GOTO 153 
oVRNPRO) THEN GOTO 163 


eVRMNULD THEM GOTO 163 
sYRMNUL) THEN GOTO 163 
eVRNCAS) THEN GOTO 163 
sVRNCQS) THEN GOTO 153 
oVRMWUL) THEN GOTO 163 


(* SELECT K OR Q FILE ©) 
(° SELECT K OR Q FILE 9) 


(* NO MOVE FOUND VET °) 
(® INITIALIZE INDEX °) 


(® CORRECT PROMOTION TYPE *) 
(> COMPARE SQUARES AND PIECES ©) 


(* NOT PROMOTION *%) 


(* CASTLING ©) 
(° CASTLING SAME Way *°) 
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Listing 1, continued: 


ELSE 
ELSE 
VRMCOMS 
InNTW sz INTWO13 
EMO 3 
IF Yeev THEN 
BEGIN 
MINENG CINRN,“ YOUR MOVE “)3 
WRITELNCHOVNS) 3 
THEMOV CIRM) 3 
INTO t= TRUE 
Eno 
ELSE 
WRITELMC™ ILLEGAL MOVE. "33 
GOTO 183 


168 (¢° SYNTAX ERROR *) 
WRITELNC™ SYNTAX ERROR." 93 
GOTO 183 


172 8 86(¢% AMBIGUOUS MOVE °) 
WRITELNC(™ AMBIGUOUS MOVE.) 3 
168) 6¢* EXIT ©) 
ENO; 
ENO? (° YRMOVE ©) 


BEGIN (* THE PROGRAM *) 


WRITELNC(" MI. THIS IS CHESS .5°)3 


INICONS 


1s (° INITIALIZE FOR A NEM GAME ©) 


INITAL (BOARD) 3 
REPEAT 
REPEAT 
YRMOVES 
UNTIL SWRE3 


28 (* EXECUTE MACHINES MOVE °) 
REPEAT 
MYMOVE $ 
IF GOING > 0 THEN 
GOING a2 GOING-13 
UNTIL GOING = 03 
UNTIL FALSES 


92 (* ENO OF PROGRAM ®) 
ENO. 
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(* MOT CASTLING °) 

(* COMPARE SQUARES ANDO PIECES *) 
(*® ADVANCE MOVES INDEX ©) 

(> OME ROVE FOUND ©) 

(* COMVERT TO OUR STYLE °% 

(* PRINT ROVE ©) 

(* MAKE THE MOVE ©) 

(* EXIT VRNOVE °) 

(* WO MOVES FOUND ©) 


(* ExIv 9) 


(* EXIT 9) 


(* INITIALIZE CONSTANTS °) 


(* INITIALIZE FOR A MEW GAME *%) 


(® EXECUTE PLAYERS MOVE °%) 


Creating a Chess Player 


Part 4: Thoughts on Strategy 


The chess program that we have presented 
in parts 2 and 3 of this series (November 
1978 and December 1978 BYTE, pages 162! 
and 1402, respectively) represents a modern 
implementation of the basic type A strategy 
described by Shannon in 1950 (see refer- 
ences). If run on a powerful computer, this 
type of program can play a reasonably good 
game of chess. Its major weakness lies in its 
inability to engage in long-range planning. 
In many middle and end game positions, it 
will make seemingly aimless moves. Once it 
attains a position which optimizes the 
general heuristic goals of its evaluation 
function, it is faced with the prospect of 
finding a move which alters the position 
as little as possible. If the opponent is 
skillful in developing a long-range attack 
while not providing any immediate targets, 
the machine may simply shuffle its pieces 
back and forth until its position becomes 
hopeless. The absence of reasonable goal 
directed behavior is a common limitation 
of problem solving techniques which are 
based solely on forward search. The solution 
of this problem would have important 
implications for a wide variety of artificial 
intelligence tasks. 

To play a strong game of chess, it is nec- 
essary to have a plan. To have a plan, how- 
ever, the program must recognize specific 
patterns and relate them to appropriate 
goals. This, in turn, requires that the pro- 
gram have access to the detailed kind of 


chess knowledge which is characteristic of 


1. Page 117 of this edition. 
2. Page 131 of this edition. 
3. Page 107 of this edition. 


Peter W Frey 
Larry R Atkin 


the skilled human player. Thus, we seem to 
have come round in a circle. In order to 
avoid selective searching, we have adopted a 
strategy which does not require very much 
chess knowledge. In examining the weak- 
nesses of this approach, we discover that the 
forward search can only be truly successful 
if we have a clear idea of what we are look- 
ing for. To know what we are looking for, 
however, we must have more knowledge 
about chess. 

So where do we go from here? The highly 
skilled players who are familiar with the 
chess programming literature (notably, Ber- 
liner, Botvinnik and Levy) are unanimous in 
their enthusiasm for a selective search strat- 
egy. Berliner (see references), for example, 
advocates a procedure in which very small 
(for a computer) look-ahead trees are gen- 
erated, eg: 200 to 500 nodes. His idea is that 
the program should make an intensive analy- 
sis at each node “‘in order to ascertain the 
truth about each issue dealt with.’’? Chess 
knowledge should play a primary role in 
directing the tree search. The search itself 
would discover additional relevant informa- 
tion and this would provide an even more 
knowledgeable focus for the search. This 
procedure is analogous to the progressive 
deepening technique which de Groot dis- 
covered in the human grandmaster and is 
the exact antithesis of the brute force (type 
A) strategy (see October 1978 BYTE, 
“Creating a Chess Player, An Essay on 
Human and Computer Chess Skill,’’ page 
1823). 

The efforts of the last decade have 
demonstrated that the selective search strat- 
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egy is harder to implement than the full- 
width approach. In addition, full-width 
searching has consistently produced superior 
chess. Despite this, there is hardly anyone 
familiar with chess programming who does 
not believe that further progress depends on 
increasing the amount of chess knowledge 
in the program. The key question is not 
whether this should be done but how to do 
it. Since the selective search approach has 
not led to notable progress, perhaps it is 
time to consider a different approach. 

We believe that a viable alternative exists 
which combines the proven virtues of the 
full-width procedure with the potential ad- 
vantage of a goal-directed search. The central 
idea is the development of a unique evalua- 
tion function for each position. In addition 
to the general heuristics which are presently 
employed, evaluations should consider fea- 
tures which are germane to appropriate 
goals. 

According to this plan, move selection 
would involve two separate stages. In the 
first phase, a static analysis of the position 
would be made in an attempt to discover 
key patterns. This process would involve a 
hierarchical analysis in which the features 
of the position would be compared with a 
general set of library patterns. Highly spe- 
cific features would be identified and rele- 
vant chess-specific knowledge would be 
accessed. This information, including appro- 
priate short term and long term goals, would 
be used to construct a conditional evaluation 
function which would assess the usual gen- 
eral features (eg: material, mobility, King 
safety, etc) and also other features which 
are meaningful only in specific situations. 
Once the conditional evaluation function has 
been constructed, the second phase of analy- 
sis would begin, a conventional full-width 
tree search employing the special evaluation 
function. 

The first phase of this process would rely 
heavily on domain specific knowledge (ie: 
information about chess). It would require 
a pattern recognition facility and an organi- 
zational plan for storing a vast amount of 
chess knowledge in a manner conducive to 
rapid retrieval. When this first phase was suc- 
cessful in identifying appropriate goals and 
producing relevant modifications in the eval- 
uation function, the full-width search which 
followed would select a move which was 
thematic with the appropriate goal. If the 
first phase were unable to identify a key fea- 
ture, the evaluation function would employ 
the same general heuristics which it pres- 
ently uses. For this reason, the pattern 
recognition and _ information _ retrieval 
modules can be gradually implemented 
without a lengthy period in which serious 
blunders are frequent occurrences. This is a 


major advantage that the conditional evalua- 
tion function has in comparison to a selec- 
tive search strategy. 


Chess Structure 


To implement a conditional evaluation 
function, it is necessary to develop a hier- 
archical descriptive structure for chess. At 
the top level, one can make the conventional 
distinctions between the opening, the middle 
game, and the end game. Within each of 
these three major divisions, there would be 
many specific subdivisions. Within each 
subdivision, there would be many specific 
variations. 

The opening has three major themes: to 
develop a pawn structure which is favorable 
for you but unfavorable for your opponent; 
to increase the mobility of your minor 
pieces and limit the mobility of your oppo- 
nent’s minor pieces; and to castle as soon as 
possible and delay your opponent’s oppor- 
tunity to castle. These general goals provide 
a framework for evaluating specific varia- 
tions. They do not provide a specific pre- 
scription for selecting a move because a 
sequence of moves which is thematic with 
these goals may have a tactical refutation. 
An apparently good move may not work 
because it loses material. For this reason, 
general principles are best applied at the 
terminal points of a look-ahead search rather 
than being used as a checklist for selecting 
the most thematic move as advocated by 
Church and Church in Chess Skill in Man 
and Machine (see references). 

The tournament player who knows open- 
ing theory as well as many specific move 
variations will have a clear advantage over an 
opponent who knows the general principles 
but is not familiar with the specific varia- 
tions. For this reason, tournament players 
and good chess programs rely on a library 
of memorized opening variations. The 
contestant who has carefully planned his 
opening variations can often gain an im- 
portant advantage early in the game. To 
maximize the benefit of a well-prepared 
opening library, it is also necessary to 
continue the general theme of the opening 
once the predigested move sequences have 
been exhausted. At this stage it Is neces- 
sary to have a conditional evaluation func- 
tion. When the machine leaves the library 
and starts to use a look-ahead procedure to 
calculate its move, it should use an evalu- 
ation function that augments general open- 
ing principles with special goals which are 
thematic with that type of opening. 

A portion of the work required to 
implement this proposal has already been 
started. Chess specialists have prepared 
highly detailed analyses of specific opening 


variations and have developed well-defined 
rules for categorizing different move 
sequences into specific subdivisions. For 
example, a game which starts (1) P-K4, 
P-K3 is labeled as the French defense. If 
the game continues (2) P-Q4, P-Q4; 
(3) N-QB3, B-NS, it is called the Nimzovich 
(or Winawer) variation of the French defense. 
If it continues (2) P-Q4, P-Q4; (3) N-QB3, 
N-KB3, the game is labeled as the classical 
variation. A continuation of (2) P-Q4, 
P-Q4; (3) N-QB3, PxP is called either the 
Rubinstein variation or the Burn variation 
depending upon subsequent moves. A 
different approach develops from (2) P-Q4, 
P-Q4; (3) N-Q2, which is labeled as the 
Tarrasch variation. And there are many 
more. The important point, however, is 
that each of these variations can be object- 
ively identified, and that for each there 
are well-developed strategical ideas and 
specific immediate goals. These ideas can be 
stored in the opening library and can be 
retrieved when the machine leaves the 
library. In addition to general opening 
heuristics, the evaluation function would 
reflect the specific theoretical ideas which 
are appropriate to the particular opening 
at hand. In principle, this idea can be 
implemented without difficulty. In practice, 
however, a tremendous amount of chess 
knowledge is needed and hours and hours of 
effort are required. To our knowledge no 
serious attempt has yet been made to imple- 
ment this strategy. The information on 
opening theory is needed only once during a 
game and thus could be stored on disk, 
since rapid access is not critical. 


Pattern Recognition and the Middle Game 


From a conceptual point of view, the 
application of chess knowledge to the eval- 
uation function in the middle game is much 
more challenging. In this case, pattern 
recognition becomes an important ingredient. 
In implementing a goal oriented move 
selection strategy, Church and Church 
limited their middle game strategy to either 
a Kingside attack, a Queenside attack, or 
concentration on a weak point (ie: a target). 
The Kingside or Queenside attack is trig- 
gered when the machine determines that it 
has superior forces on one side or the other. 
This determination can be based on who 
controls key squares. In calculating the 
power relationship of different pieces over 
given squares, it is important to note that 
less valuable pieces exert more control than 
valuable pieces. A pawn has greater control 
over territory than a Queen because it is 
harder to dislodge. If an attack on one side 
or the other is deemed appropriate, the 
evaluation function can be modified to give 


an extra bonus for moves which augment 
the attack on that side and for moves which 
increase the pressure on critical squares. 

Pattern analysis is also important: in 
detecting an appropriate target. There are 
several well-known chess relations which 
provide obvious targets for attack. One is 
the backward pawn which is prevented 
from advancing by a pawn or a minor 
piece. Another natural target is the minor 
piece which is pinned to the King or Queen. 
The third is the overworked piece, a key 
element in the defense against two or more 
different attacks. If the latter is removed 
in an exchange, the pieces it is defending 
will be open for attack. A fourth natural 
target is a square which would permit a 
Knight to fork two major pieces (ie: Rook, 
Queen, King) or a Bishop to skewer two 
major pieces. If the machine threatens to 
control that square and to locate an appro- 
priate piece there, the opponent. will be 
forced to devise a defense. Once one of these 
targets has been detected, the evaluation 
function can be modified to give a bonus 
for moves directed at the target. In addition, 
a plan might be devised to encourage the use 
of a decoy (a pawn or minor piece which is 
sacrificed to bring an important piece to a 
particular square) or to capture a piece 
which is serving an important defensive 
function. 


A Chess ‘‘Snapshot”’ 


In the past, programmers have attempted 
to implement such plans by using a selective 
search (eg: Berliner, Zobrist and Carlson) or 
by using no search at all (eg: Church and 
Church). Zobrist and Carlson (see references) 
have developed an innovative technique in 
which ‘‘computer snapshots” are devised 
which summarize important piece relation- 
ships such as attacks, pins, skewers, forks, 
etc, which presently exist in the given posi- 
tion, or which could occur after one or two 
moves. Each snapshot is given a weight based 
on the relative values of the pieces involved 
and the location of the pieces in respect to 
the opposing King and the center of the 
board. The weighted snapshots are then used 
to select moves for inclusion in a Shannon 
type B tree search. This procedure provides 
considerable goal direction to the move 
selection process. 

Although the Zobrist-Carlson snapshot 
procedure has much to offer (including a 
highly efficient bit map implementation 
strategy), it incorporates a common problem 
shared by all selective search techniques. 
Occasionally an important continuation Is 
overlooked and this results in the selection 
of an inappropriate move which may be a 
gross blunder. By implementing the plans 
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derived from the computer snapshots in the 
form of a conditional evaluation function, 
instead, the program can benefit from goal 
directedness without risking the oversights 
which are characteristic of selective search- 
ing. In this way, the machine can retain 
the benefits of the full-width search and at 
the same time engage in strategic planning. 

There is a special class of positions for 
which this approach is especially appropriate. 
In his thesis at Carnegic-Mellon University 
Berliner described a special problem, the 
horizon cffect, which plagues the con- 
ventional look-ahead approach (see Chess 
Skill in’ Man and Machine, pages 73 thru 
77). One version of this problem involves 
a piece which is trapped and cannot be 
saved. Forward searching programs often 
engage in a bit of foolishness by making 
forcing but poor moves (such as attack- 
ing pieces with pawns or § sacrificing 
pawns for no advantage) which delay the 
capture of the trapped picce and push its 
eventual loss beyond the horizon of the 
tree search. By doing this, the program 
erroneously concludes that the piece is safe, 
when in reality the planned move sequence 
weakens a reasonable position and is still 
insufficient to save the piece. In this type 
of situation, the trapped piece should be 
given up for lost and the program should 
do its best to take advantage of the tempo 
required by the opponent to capture the 
piece. A piece whose time has come is some- 
times referred to as a desperado. The only 
option available is to make the opponent 
pay as dearly as possible for the capture. 
If the desperado can be traded for a pawn 
or a piece of lesser value, this is preferable 
to being given up for nothing. 

This strategy can be implemented with a 
conditional evaluation function by simply 
assuming that the trapped piece has a 
material value of zero. This change would 
cause the search process to trade the piece 
for the highest valued candidate that can be 
found. This is obviously better than having 
the program engage in useless sacrifices of 
position and material in a hopeless attempt 
to resurrect a lost piece. The key element to 
this implementation is the ability to deter- 
mine when a piece is truly lost and can be 
labeled as a desperado. This is a very diffi- 
cult problem even for a very sophisticated 
pattern analysis facility. 


End Game Considerations 


The most interesting application of the 
conditional evaluation function is in the end 
game. Because end game strategy is highly 
dependent on the specific characteristics of 
the position, a general purpose evaluation 
function is not very effective. It is necessary 


to understand what is required in a given 
position and then select moves which are 
clearly directed at an appropriate goal. 
Church and Church list three common goals 
in the end game: to mate the opponent’s 
King, capture a weak pawn, or promote a 
pawn. In this case, pattern analysis is im- 
portant. First the machine must be able to 
identify the position as one belonging to the 
end game. Then it has to determine whether 
a mate attempt is reasonable or whether a 
pawn can be captured or promoted. Church 
and Church (see Chess Skill in Man and 
Machine, pages 151 thru 154) describe 
a general strategy for identifying and cap- 
turing a weak pawn. Although _ their 
approach does not involve a forward tree 
search, the specific techniques which they 
describe can be adapted to the full-width 
search strategy. Let us consider several 
specific end game positions involving either 
a mate, a pawn capture, or a pawn 
promotion. 

For a number of mating situations, a 
specific algorithm (step-by-step instructions) 
or a complete lookup table can be developed 
to produce mate in a minimum number of 
moves. Typical applications would be King 
and Queen versus King; King and Rook ver- 
sus King; and King, Bishop, and Knight ver- 
sus King. The mating algorithm for each case 
would include rules for assigning the poten- 
tial piece relationships into a few general 
categories, and a prescription for an appro- 
priate type of move for each category. This 
approach requires no search. A_ second 
approach involving a lookup table is even 
more explicit. An appropriate move Is stored 
in a table for every possible piece configura- 
tion. To play the mate perfectly, the ma- 
chine uses the position to determine an 
address in the table and then simply reads 
the correct move. 

Both of these procedures are perfectly 
feasible and avoid many problems which can 
be encountered in the end game. The limita- 
tion of this approach is that there are a very 
large number of mating situations and a tre- 
mendous amount of work would be required 
to make a detailed analysis of each one. In 
addition, this strategy requires the storage of 
a great deal of information which would be 
used only infrequently. 

A third approach, and one which is 
thematic with the idea of conditional evalua- 
tions, is to make a small modification in the 
evaluation function for each specific mating 
situation. The notion is that a shallow search 
combined with a few key ideas should suf- 
fice to produce a mate in a reasonable num- 
ber of moves. With King and Queen or King 
and Rook versus King, it is sufficient for the 
program to ‘‘know”’ that the defending King 
must be forced to the edge. To do this, the 


program simply needs to add bonus points 
to the evaluation function when the defend- 
ing King is near the edge. The size of the 
bonus should be a linear function of closeness 
to the edge. This modification of the evalua- 
tion function causes the minimax search to 
select a pathway in the look-ahead tree 
which forces the defending King to the edge. 

With King, Bishop, and Knight against 
King, the job is slightly more complicated. 
In this case it is important to know that the 
defending King must be forced to one of the 
two corners having the same color as the 
Bishop’s squares. The trick is to add a large 
bonus when the defending King is on the 
appropriate corner squares and a smaller 
credit when it is near these corners. This 
modification will cause the minimax proce- 
dure to find a sequence of moves which 
forces the defending King into one of the 
appropriate corners. The general theme is 
that the full-width search is a powerful 
device by itself and that the addition of a 
small amount of chess knowledge is suffi- 
cient to produce the desired outcome. 


Kings and Pawns in the End Game 


Some of the most challenging positions 
in the end game involve only Kings and 
pawns. Many of these require an approach 
which is more sophisticated than those 
described previously. Consider, for example, 
the position diagrammed in figure 1. This is 
a modification of a position presented in 
Berliner’s thesis which demonstrates one of 
the major weaknesses of a full-width forward 
search. White has a pawn on f6 which could 
advance and be promoted if the Black King 
were out of the way. [Algebraic notation is 
used throughout this article to designate 
chessboard squares. The horizontal rows 
(ranks) are numbered from 1 to 8, starting 
at the bottom (White). The files are labeled 
a through h from left to right. ... CM] To 
win, White must do an end run with his King 
and bring it'to the aid of the pawn. Since 
Black cannot attack White’s pawns on c3 or 
g5 without leaving the passed pawn, he is 
helpless to stop White’s maneuver. Although 
this analysis is obvious at a glance to an 
experienced player, a program that discovers 
truth by doing a full-width search is faced 
with a difficult problem. In order to deter- 
mine that the King can force promotion of 
the pawn, White must complete a look-ahead 
search of approximately 35 plies. This is 
beyond the scope of even the most powerful 
computer. If the machine employs a general 
purpose algorithm which encourages the 
King to centralize its position during the end 
game, it will search for a pathway which 
eventually places it on its present square (f4) 
or one of the neighboring squares (e3 or f3). 


Because of this, the correct sequence of 
moves would never be discovered. 

In order for a full-width search to make 
progress in this type of position, the evalu- 
ation function must produce goal direction. 
One way to do this is to provide a bonus for 
moves which reduce the distance between 
the White King and the passed pawn. A sec- 
ondary goal is to reduce the distance be- 
tween the White King and any Black pawns 
which are not defended by another pawn. 
A tertiary goal is to centralize the White 
King. The first step in developing a specific 
implementation of this plan is to identify 
the territory which is denied to the White 
King. For this purpose, we wish to deter- 
mine which squares are controlled by the 
pawns. The White King cannot move to a 
square occupied by one of its own pawns, 
nor can it move to a square attacked by an 
opposing pawn. Figure 2 presents a map of 
the position with each of the forbidden 
squares darkened. The location of these 
‘“taboo”’ squares provides the defining 
boundaries for potential access routes to 
the desired goals. The second step in imple- 
menting this plan is to use a technique 
described by Church and Church. Starting 
at each goal object, work backward toward 
the attacking piece(s). In our case, we are 
interested in creating a reward gradient 
which encourages the White King to ap- 
proach its own passed pawn and the target 
pawns. To do this, we consider one goal 
object at a time. All passed pawns are identi- 
fied. In our example, only the White pawn at 
f6 qualifies. The two squares diagonally in 
front of it (e7 and g7) are each credited with 
8 “points” each. All squares immediately 
adjacent to these squares (but not including 
squares inaccessible to: the White King) are 
credited with 7 points. Next all squares ad- 
jacent to these squares (excluding inacces- 
sible squares) are credited with 6 points. 
This process is continued until we run out of 
squares or until we have assigned all credits 
down to and including 1. 

The next step in the process is to identify 
Black pawns which are not defended by 
other pawns (ie: targets). In this case, the 
pawns at e6 and g6 qualify. Credit these two 
squares and the adjacent ones with 5 points 
each, excluding darkened squares. Next, 
credit squares adjacent to these with 4 
points. Continue this process until all avail- 
able squares have been exhausted or until 
the value of 1 has been assigned. This pro- 
cess is executed independently for each 
target pawn. The last step involves credit for 
centralization. The four most central squares 
(d4, d5, e4, eS) are credited with 3 points. 
The squares which surround these squares 
are credited with 2 points. The squares 
which surround those squares are credited 
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Figure 1: Chess position which demonstrates 
a weakness of the full-width forward search. 
In this example, White has a pawn on square 
f6 which could advance and be promoted if 
the Black King were out of the way. To win, 
the White King must come to the aid of the 
pawn. Since Black cannot attack White’s 
pawns on c3 or g5 without leaving the 
passed pawn, he is helpless to stop White’s 
maneuver. Although this analysis is obvious 
to an experienced player, a program using a 
full-width search would have to search its 
decision tree to a depth of 35 plies (ie: 35 
half moves, a ply is defined as a move by one 
side) in order to come to the same con- 
clusion. 
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Figure 2: Forbidden squares in the figure 1 
position used to help White (the computer) 
evaluate the position more efficiently. The 
White King cannot move to a square oc- 
cupied by one of its own pawns, nor can it 
move to a square attacked by an opposing 


pawn. All of these squares are darkened in 
the figure. This diagram is used in imple- 
menting the goal directed technique de- 
scribed by Church and Church (see figure 
3), 
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Figure 3: Bonus map for the White King in 
the position of figure 1, based on a tech- 
nique described by Church and Church (see 
references). A goal is established for a parti- 
cular attacking piece, in this case the White 
King, and an iterative numerical technique is 
used to implement it. The goal is to encour- 
age the White King to approach its own 
passed pawn and the target pawns. (A target 
pawn is an enemy pawn not defended by 
other pawns.) Numerical figures of merit are 
assigned to strategic squares close to White’s 
passed pawn and Black’s undefended pawns. 
Points are also awarded or subtracted for 
positional characteristics such as centrali- 
zation of squares, etc. A type of flow 
algorithm assigns lower and lower values to 
squares in direct proportion to their 
distances from the strategic squares, avoiding 
any forbidden squares. The resulting map of 
numbered squares enables the King to find 
the right pathway by constantly searching 
for ascending values of squares whenever 
possible. 


with 1 point. Points are then removed 
from any square which is inaccessible 
to the White King. When this process has 
been completed, the credits are totaled 
for each square to provide a bonus map for 
the White King. This map is presented in 
figure 3. By applying this bonus map to the 
terminal positions of the look-ahead search, 
the evaluation process will select a move 
sequence which causes the White King to 
gravitate in the proper direction. In fact, 


the correct sequence of moves will be selec- 
ted even if White is restricted to a 5 ply 
search each time a move is selected. The 
bonus map, though simple in concept, 
has a tremendously beneficial effect. 

There is an additional point which needs 
consideration. In our exposition, we have 
assumed that the pawns remained stationary. 
If a pawn were to move, the bonus map 
would have to be changed. This is not a 
major problem, however, since there are 
only a small number of positions that can 
result from pawn moves, and once the bonus 
map has been computed for a given configu- 
ration, it can be stored and used each time 
that configuration is encountered in the look- 
ahead tree. For this reason, the calculations 
which are required will not be particularly 
time consuming. 

Another example of this strategy is based 
on the position presented in figure 4. This 
is a slight modification of figure 6.7 from 
the chapter of Chess Skill in Man and 
Machine by Church and Church. To apply 
our technique with respect to the bonus 
map for the White King it is necessary to 
determine which squares are not accessible 
to the White King by virtue of pawn control. 
As before, these include squares occupied by 
White pawns and squares attacked by Black 
pawns. The relevant squares are darkened in 
figure 5. 

The next step is to locate passed pawns 
for White. There is only one and it is located 
at c6. The two squares diagonally in front 
of this pawn (b7 and d7) are credited with 
8 points. Squares adjacent to these squares 
which are not among the darkened squares 
in figure 5 are credited with 7 points. 
Squares adjacent to these receive 6 points. 
This process is continued until there are 
no more available squares or until the credit 
value of 1 has been assigned. The next step is 
to determine whether any Black pawns are 
potential targets. As before, a target pawn is 
defined as one which is not defended by a 
friendly pawn. In the present example, there 
are three candidates: the pawns at a6, d6 
and h7. For each pawn, the value of 5 is 
credited to the pawn’s square and the adja- 
cent squares. Then the value of 4 is credited 
to each adjacent square. This process of 
establishing a gradient of decreasing values 
from 5 down to 1 as distance increases 
from the target is continued until the last 
values have been assigned. This is done for 
each target pawn and in each case, squares 
darkened in figure 5 are always excluded 
from the process. The last assignment pro- 
cess is conducted for centralization, with 
center squares (d4, d5, e4 and e5) receiving 
3 credits each and neighboring squares re- 
ceiving 2 credits. The squares one move in 
from the edge are assigned the value of 1 and 
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Figure 4: Another end game position, 
analyzed by the method of Church and 
Church in figures 5 and 6. 
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Figure 5: Forbidden squares for the position 
in figure 4. 


then credits are removed from any square 
which has been darkened. The final step in 
developing a bonus map for the White King 
is to total the credits for each square. 

The composite map is presented in 
figure 6. This set of bonus points will en- 
courage the White King to move in the 
appropriate direction. Without this strategy 
an 11 ply search would be required for 
White to discover that the pawn at a6 can be 
captured. With the implementation of these 
attack gradients for the White King, how- 
ever, the correct move can be selected with 
only a 3 ply search. As was the case in the 
previous example, the establishment of a 
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Figure 6: Bonus map for 
the position of figure 4. 
Without this map, an 11 
ply search would be re- 
quired for the computer 
(White) to discover that 
the pawn at a6 can be 
captured. Using the map, 
only a 3 ply search is 
required. 
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plan within the evaluation function produces 
a goal directed search without requiring an 
enormous look-ahead tree. This increase in 
efficiency is highly desirable. 

Because the process is directed by the 
location of the pawns, changes in the map 
will occur infrequently and therefore only a 
relatively small number of bonus maps will 
be required for any one search. Once a map 
has been calculated for a particular pawn 
configuration, it can be stored and used later 
whenever it is needed. Although this strategy 
seems to work well in the examples we have 
presented, it is reasonable to ask whether 
this procedure will work in all end game 
situations. Unfortunately, the answer is no. 

Consider the position presented in 
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Figure 7: A chess position which can be analyzed efficiently by means of the 
coordinate square concept proposed by Ken Church (see references). In this 
approach, the Black King must coordinate precisely with the White King in 
order to successfully defend its pawns. The technique is illustrated in table 7. 
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figure 7. This is a famous end game problem 
which appears as diagram 70 in Reuben 
Fine’s classic chess book, Basic Chess 
Endings (see references). It was analyzed 
in 1975 by Monroe Newborn to deter- 
mine if his special end game program, 
Peasant, could solve it. After several unsuc- 
cessful efforts, Newborn concluded that 
the problem would require about 25,000 
hours of processor time before a solution 
could be found (see Chess Skill in Man and 
Machine, page 129). The problem is diffi- 
cult, but not as impossible as Newborn 
suggests. Because Peasant does not have a 
transposition table, the program did not take 
advantage of the tremendous number of 
identical terminal positions which are 
encountered when an exhaustive search is 
made of this position. Because the pawns 
are locked, the only moves which are pos- 
sible are King moves, and this greatly in- 
creases the potential number’ of 
transpositions. 

The position was submitted to North- 
western’s chess program Chess 4.5 running 
on the CYBER 176 system at Control Data 
headquarters in Minneapolis. David Cah- 
lander discovered that Chess 4.5 could solve 
the problem after a 26 ply search! This re- 
quired ten minutes of processor time on the 
powerful CYBER 176. Although it is inter- 
esting to know that the problem can be 
solved by a brute force search, this type of 
solution is not particularly elegant and it 
requires a level of hardware sophistication 
that is not likely to be available in the small 
system for a few years yet. 


The Coordinate Squares Approach 


What can be done to make this problem 
more manageable? Interestingly enough, 
there is a rather neat approach to problems 
of this type which has been examined in 
some detail by Ken Church in his under- 
graduate thesis at MIT. Working with Richard 
Greenblatt as his advisor, Church applied 
the chess concept of coordinate squares to 
this position. The basic notion is that the 
Black King must coordinate precisely with 
the moves of the White King in order to 
successfully defend its pawns. For any 
particular square which the White King 
occupies, there are only a limited number of 
squares which the Black King can occupy 
and still hold his act together. 

In his thesis, Ken Church presents a fairly 
extensive analysis of King and pawn end 
games. For our present purpose, we will 
limit our analysis to King and pawn end 
games in which the pawns are locked and we 
will modify Church’s approach to suit our 
conditional evaluation strategy. The major 
difference is that Church attempts to dis- 


cover a complete solution to the problem 
using the coordinate squares idea. We pro- 
pose, instead, to use the coordinate squares 
approach to provide the evaluation function 
with additional chess knowledge. With this 
modification, a full-width search of reason- 
able depth can find the correct move. 

Using figure 7 as an example, the first 
step in this process is to determine which 
squares are denied to each of the Kings by 
the existing pawn configuration. By noting 
that each King cannot move to a square that 
is occupied by its own pawn or that is at- 
tacked by an opponent’s pawn, one can 
easily determine that squares a4, b4, c5, d4, 
d5, e4, e5, f4 and g4 are denied to the White 
King. Likewise, squares a5, b5, c5, c6, d6, 
e5, e6, f6 and g6 are denied to the Black 
King. Neither side has a passed pawn, but 
there are multiple targets, since none of the 
pawns are defended by friendly pawns. 

By applying the strategy described earlier, 
it is possible to calculate a composite attack 
map for the White King on the basis of the 
target pawns at a5, d6, and f5 and taking 
into account the centralization subgoal. The 
resulting map for Fine’s position is presented 
in figure 8. The squares without a number 
are the squares which are denied to the 
White King because of the pawn structure. 
Given the position of the White King (a1), a 
shallow search using this attack map as part 
of the evaluation function would encourage 
the White King to approach the target pawn 
at a5 (eg: b2, c3, c4, b5, a5). If the Black 
King were more than five moves from a5, 
this sequence of moves would lead to suc- 
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Figure 8: Bonus map for the position of 
figure 7, a composite attack map for White 
based on the target pawns at a5, d6 and f5, 
and taking into account the centralization 
subgoal. 


Figure 9: The square control concept applied to the position of figure 7. 
Each of the squares is assigned to one of three categories: under the influence 
of the Black King, under the influence of the White King, or contested. To 
do this, the distance from each King to each square is computed, given the 
constraints imposed by the existing pawn structure. Each square closer in 
moves to the Black King and not denied to the Black King is assigned to 
Black, and vice-versa. The remaining squares are labelled as contested. 
Through a complex series of manipulations and the use of so-called frontier 
squares (see text), White is actively directed to attack Black’s pawns using the 
strategy of trying to prevent Black from moving onto strategic coordinate 


squares which are vital to Black’s defense. 
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cess. Given that the Black King is at a7, 
however, this plan is doomed to failure. In 
fact, the first move in the sequence, b2, is 
fatal and transforms a winning position into 
a draw. There are two important conclusions 
that follow from this discovery. The first is 
that our simple goal-gradient approach does 
not always work. The second is that chess 
end games are much more difficult than a 
novice player might suppose. 

Let us extend Ken Churcn’s ideas and 
apply the concept of coordinate squares to 
this position. First, we wish to assign each of 
the squares to one of three categories: under 
the influence of the Black King, under the 
influence of the White King, or contested. 
To do this we compute the distance from 
each King to each square, given the con- 
straints imposed by the existing pawn struc- 
ture. This creates two distance maps, one for 
the White King and one for the Black King. 
For squares which are not accessible to one 
or both of the Kings, we assign a distance 
score based on the number of King moves re- 
quired to reach that square by traveling 
across accessible squares. Next, each square 
which is closer in moves to the Black King 
than to the White King and is not denied to 
the Black King is assigned to Black. Each 
square which is closer to the White King 
than to the Black King and is not denied to 
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the White King is assigned to White. The re- 
maining squares are assigned to the con- 
tested category. The results of this proce- 
dure are summarized in figure 9. The squares 
assigned to Black are indicated by the letter 
B and the squares assigned to White are in- 
dicated by a W. The blank squares belong in 
the contested category. 

If the territory under the influence of 
either King is adjacent to an opponent's 
pawn, the contest is essentially settled since 
that pawn would be open for capture. Since 
this is not the case for the present position, 
we wish to define a special category of 
squares called frontier squares. A frontier 
square is any square under your influence 
that is adjacent to an accessible contested 
square or is adjacent to an accessible square 
under the influence of the opponent. 

For the position diagramed in figure 7, 
the frontier squares for White are c4 and h4. 
The next step is to determine, for each of 
these frontier squares, the set of squares 
under Black’s influence which, if the Black 
King were located on that square, would 
prevent the White King from moving from 
the frontier square to any of the contested 
squares or to any of Black’s squares. For the 
frontier square at c4, the Black King would 
have to be at either a6 or b6 to prevent the 
White King from penetrating to b5. For the 
frontier square at h4, the Black King would 
have to be at g6 or h6 to prevent penetration 
by the White King. (Note that the Black 
King could not legally be at hS if the White 
King were at h4.) These defense squares for 
Black can be determined by the machine by 
placing the White King on the frontier 
Square and conducting a shallow tree search 
with White to move first and determining 
empirically which locations for the Black 
King successfully repel the invader. 

The next step in this process is to deter- 
mine the shortest’ distance between each pair 
of frontier squares. For the present position, 
there are only two frontier squares and thus 
one minimal distance. Five King moves are 
required to travel between the two frontier 
squares. If Black is to be successful in de- 
fending, the Black King must be able to 
move from a defense square for h4 to a 
defense square for c4 in the same number or 
in fewer moves than it takes the White King 
to travel between the two frontier squares. 

For this reason, each square in Black’s 
defense set for c4 must be five or féwer 
moves from one of the defense squares for 
h4. Also, each square in the defense set for 
h4 must be five or fewer moves from one of 
the defense squares for c4. This requirement 
places a further restriction on those squares 
which satisfy the necessary defense condi- 
tions. One will note that a6 is six moves 
from the nearest square in the defense set 


for h4. Also, h6 is six moves from the nearest 
square in the defense set for c4. Therefore, 
the true defense sct for c4 contains only b6 
(a6 will not suffice). The true defense set 
for h4 contains only g6 (h6 will not suffice). 
Thus, we have determined that when the 
White King is on c4 and has the move, there 
is one, and only one, coordinate square for 
the Black King (b6). If the White King is 
on h4 and has the move, there is one, and 
only one, coordinate square for the Black 
King (g6). 

The next step is to generalize this analysis 
to squares in White’s territory which are 
immediately adjacent to the frontier squares. 
In this case, squares b3, c3, d3, g3 and h3. 
The square at b3 is one King move from the 
frontier square at c4 and six moves from the 
frontier square at h4. If the White King is at 
b3, therefore, the Black King must be ona 
square which is simultaneously one move 
from b6 and six or fewer moves from g6. 
The squares which satisfy this condition (ie: 
the coordinate squares for b3) are a6, a7, b7, 
and c7. This same set of calculations can be 
made for the other adjacent squares. The 
coordinate squares for c3 are b7 and c7. For 
d3, there is only one coordinate square, 
namely c7. Since the White King can move 
directly from c3 to d3 and Black must move 
to c7, and only c7, to maintain his defense, 
it is not possible for him to be on c7 when 
the White King is on c3. If he were, he 
would not be able to move when White 
moved from c3 to d3 and still satisfy the de- 
fense requirements. For this reason, only 
square b7 is sufficient for Black when White 
is on c3. In addition, since b3 is adjacent to 
c3, the coordinate square for c3 is not avail- 
able for b3. Thus the set for b3 is further re- 
stricted to a6, a7 andc/7/. 

lf we examine g3, we will discover that 
it is one move from the frontier square at h4 
and four moves from the frontier square at 
c4. This implies that the Black King must be 
on a square which is one move from b6 and 
four or fewer moves from g6. There are only 
two squares which satisfy this requirement, 
namely, f6 and f7. Therefore we can con- 
clude that no square other than f6 or f7 will 
serve as a coordinate for g3. When we ex- 
amine h3, we will find that there are three 
potential coordinate squares: f6, f7 and g7. 
Since this set shares f6 and f7 with the 
defense squares for g3, further restrictions 
are implied. It is not possible for the same 
square to serve as a coordinate square for 
two adjacent squares since it is not possible 
for Black to pass when it is his turn to move. 
Therefore if f6 is assigned to h3, then f7 
must be assigned to g3. If f7 is assigned to 
h3, then f6 must be assigned to g3. 

The next step in this process is to deter- 
mine the set of coordinate squares for each 


Square of the Coordinate Squares for the 


White King Black King 
b3 a6, a7, c7 
c3 b7 
c4 b6 
d3 c7 
e2 d7,d8 
e3 d7, d8 
f2 e7,e8 
f3 e7,e8 
g3 f6, f7 
h3 f6, 7,97 
h4 g6 


Table 1: Results of the coordinate square 
analysis for the position of figure 7. Shown 
are the potential squares for the Black King 
which defend against the White King’s 
threats when it is White’s turn to move. 


square on the minimum pathway(s) between 
the two frontier squares for which the coor- 
dinate squares have not yet been deter- 
mined. The new squares are e2, e3, f2 and 
f3. By following the same analysis as before, 
we can determine that the coordinate 
squares for e2 and e3 are d7 and d8. The 
coordinate squares for f2 and f3 are e7 and 
e8. Because of the adjacency restrictions, the 
assignment of one of these values automati- 
cally restricts the other square to the remain- 
ing value. 

The results of our coordinate square 
analysis are summarized in table 1. When it 
is Black’s turn to move and White has moved 
to one of the squares listed in the table, 
Black must be able to move to a coordinate 
square. For this reason, the evaluation func- 
tion for the machine can be modified to give 
a bonus of 20 points to White for any termi- 
nal position in the look-ahead tree where it 
is Black’s turn to move and the Black King 
is more than one move from a necessary 
coordinate square. If it is White’s turn to 
move, a 20 point bonus will be awarded to 
any terminal position in the look-ahead tree 
where Black is not located on a necessary 
coordinate square. 

Let us consider how this in combination 
with the White King attack map (figure 8) 
will affect the outcome of the look-ahead 
search. The machine will try to find a path- 
way to squares c3 or d3 because their attack 
value of 7 is higher than any of the sur- 
rounding squares. Even better would be a 
pathway to c4, since its attack value of 10 is 
larger than 7. In each of these cases, the 
machine will also try to satisfy the condition 
that Black cannot be on a proper coordinate 
square when the White King reaches c3, d3, 
or c4 so that the additional 20 point bonus 
is also earned. In attempting to do this, it 
will find that if the White King moves from 
al to either a2 or b2 on his first move, the 
20 point bonus will be lost forever. The rea- 
son is that either of these moves allows the 


Black King to coordinate and, because of 
the minimax strategy, the tree search will 
always assume replies for Black which main- 
tain this coordination. If the White King’s 
first move is to square b1, the Black King 
cannot coordinate and the 20 point bonus 
will still be available at some of the terminal 
positions in the tree. It is not surprising, 
therefore, to find Reuben Fine advising that 
K-N1 is the only move for White which pre- 
serves the win. 

In order for the machine to find this 
move, assuming that both the attack map 
and the coordinate squares information are 
incorporated in the evaluation function, a 
search of nine plies is required. This is a tre- 
mendous improvement over the 26 ply 
search required by the unmodified program. 
In order to actually win a Black pawn, the 
White King must move to c3 or c4 with 
Black not in coordination and make a 13 ply 
look-ahead search. If the White King moves 
to d3 with Black not in coordination, an 
11 ply search will suffice. In order to pre- 
vent a draw, White will avoid repeating 
identical positions and thus will eventually 
travel to e3. From this vantage point, the 
win of a pawn can be visualized with a9 ply 
search. Therefore, the problem could be 
solved by the machine if it searched to a 
depth of nine plies for each move calcula- 
tion. With a program such as Chess 4.5, a 
9 ply search for this position can be con- 
ducted in less than two minutes on even a 
medium power computer. 

The procedures which we have described 
are applicable to a wide range of end game 
positions. The coordinate squares analysis 
demonstrates that even highly complex end 
game positions are manageable when the 
full-width search employs a_ sufficiently 
knowledgeable evaluation function. Al- 
though the examples we have discussed en- 
compass only a few types of chess positions, 
we hope that the reader will envision the 
power which is potentially available when 
the evaluation function is modified to incor- 
porate relevant chess knowledge. The imple- 
mentation of this approach on a broad scale 
should eventually produce chess programs 
which can be run on medium power ma- 
chines and still compete on equal terms with 
strong human players. 


Quiescence 


Another important area for the applica- 
tion of chess knowledge is the problem of 
quiescence. \t is essential that the static eval- 
uation function not be applied to a turbu- 
lent position. If the next move has the 
potential to produce a major perturbation 
of the situation, the evaluation which is ren- 
dered will not be accurate. For example, it 


153 


154 


makes little sense to apply a static evaluation 
function in the middle of a piece exchange 
or when one of the Kings is in check. In each 
case, the judgment which is rendered will 
not be reliable. For this reason Chess 4.5 
presently goes beyond the predetermined 
search depth at ‘‘terminal’’ positions where a 
capture might be profitable for the side 
whose turn it is to move, where certain types 
of checking moves are possible, or where a 
pawn is on the seventh rank. This extended 
search facility is called the quiescence 
search, and its major objective Is to produce 
reasonably static positions for which the 
evaluation function can provide accurate 
assessments. 

A weakness of this present implementa- 
tion is that the definition of a turbulent 
position is much too narrow. There are 
many situations in addition to capture 
threats, checks on the King, and pawn pro- 
motion threats which are clearly turbulent. 
Larry Harris has characterized some of these 
in chapter 7 of Chess Skill in Man and 
Machine. Harris includes in this category 
positions which involve a pawn lever, a back 
rank mate threat, or sacrifice potential. The 
interested reader can consult Harris’ chapter 
for operational definitions of these patterns. 
It is essential to note that these and other 
important patterns are not easily detected. 
In each case, a fairly sophisticated pattern 
analysis capability is required. A reasonable 
goal for improving the present forward 
search chess programs would be the develop- 
ment of an efficient procedure for detecting 
potential sources of turbulence. The central 
objective would be to use this information 
as one of the decision criteria for terminat- 
ing search at a node. If the position Is not 
quiescence in respect to a potential perturba- 
tion which has been detected, the look- 
ahead process should be continued. 

For example, during the opening when 
the machine leaves its library with informa- 
tion that the control of a particular square is 
an important objective, the decisions about 
search termination can consider whether the 
position is quiescent in respect to perturba- 
tions which might influence control of the 
key square. Another example of this idea 
involves the end game. If the preliminary 
analysis indicates that a particular pawn 
should be an attack target, the decision for 
search termination should consider whether 
each position is quiescent with respect to 
this goal. Positions at the predetermined 
depth level will be evaluated only if all po- 
tential attackers are more than two moves 
away from the target. When one or more 
attackers are close to the goal, the search 
process will be continued to determine if 
capture is feasible. This modification of the 
search process introduces a goal directed 


selective search at the terminal positions of 
the full-width tree. The addition of several 
extra plies of search at relevant nodes in the 
tree can mean the difference between find- 
ing and just missing an important continua- 
tion. This type of facility is difficult to 
implement and difficult to control properly, 
but the potential gains are such that the 
effort is worthwhile. 


Establishing Appropriate Goals 


In order to implement this goal direction 
feature in the evaluation function and qui- 
escence search, it is necessary to recognize 
that a goal which may be of paramount 
importance at the base node of the look- 
ahead tree may no longer be relevant at 
some of the terminal nodes. Intervening 
moves may accomplish the necessary goal 
or may alter the situation such that it is no 
longer possible. In these cases, the condi- 
tional evaluation function would be directed 
at an inappropriate goal. One way to deal 
with this problem would be to select goals 
which were both general and long range. In 
this case, they should continue to be rele- 
vant at the terminal nodes of the look-ahead 
tree. Unfortunately, this is a fairly severe 
limitation on the goal directed search and is 
therefore not desirable. A second approach 
would be to apply pattern analysis at each 
terminal node instead of at the base node 
only. In this case, the goals which were 
selected would always be relevant to the 
position. This procedure would be very time- 
consuming, since feature analysis is a com- 
plex process. The essential aspect of the 
problem is a time relevance trade-off in 
which a guarantee that relevant goals are 
being pursued requires a heavy investment In 
additional computing time. The third and 
most reasonable approach would be to desig- 
nate which features of the position are 
crucial to each particular goal and to incre- 
mentally update our goals (and thus the 
evaluation function and the decision rules 
for the quiescence search) whenever these 
features change. This is a highly sophisti- 
cated approach which would be difficult to 
implement. 


Conclusion 


Let us summarize our conclusions and 
relate them to the world of personal com- 
puting. We have attempted to argue that a 
full-width search strategy is feasible with a 
small computer, and that ultimately this 
approach will produce better chess than a 
selective search strategy. For this plan to be 
successful, it is necessary to employ software 
and hardware suited to the task. The soft- 
ware must incorporate recent improvements 


in tree searching strategy (ie: a-B pruning, 
the capture and killer heuristics, iterative 
searching, staged move generation, incre- 
mental updating, serial evaluation, and trans- 
position analysis) as well as other refine- 
ments such as conditional evaluations which 
provide goal direction to the search process. 

On the hardware side, it is necessary to 
have a reasonably powerful system. Al- 
though there have been a number of recent 
efforts to program microprocessor systems 
to play chess, the games which have resulted 
have not been comparable to those played 
by established large system programs. AI- 
though it is quite an accomplishment to pro- 
duce even rudimentary chess from a micro- 
processor system, the level of play to date is 
not very encouraging. An example of this 
type of game appeared in March 1978 BYTE, 
‘“‘Microchess 115 versus Dark Horse, ” page 
166. 

The type of chess program described in 
this article requires reasonably powerful 
hardware in order to provide an interesting 
game. Because of the many operations Ye- 
quiring bit map manipulation, a 16 bit pro- 
cessor is much more desirable than an 8 bit 
processor. It is more efficient to represent 
a set of 64 squares with four 16 bit words 
than with eight 8 bit words. With a need for 
computing power in mind, one might select 
a microprocessor system based on one of the 
new high-speed 16 bit processors such as the 
Zilog Z-8000 or the Intel 8086. In addition, 
this type of program will require quite a bit 
of memory. The program itself will require 
about 20 K bytes and the transposition 
table, if implemented, will need at least 
another 20 K bytes. If the programmer plans 
to add chess knowledge for conditional eval- 
uations, a total of 64 K bytes is desirable. 
An opening library which is sufficient to 
keep a skilled opponent on his toes requires 
disk storage. 


These considerations may dampen the 
enthusiasm of many would-be chess pro- 
grammers. On the other hand, a realistic 
orientation at the start could save a great 
deal of grief along the way. When imple- 
mented on fairly sophisticated hardware, our 
demonstration chess program will usually 
provide a reasonable chess move after two 
or three minutes of computation. If more 
time is available (eg: selecting a move for a 
postal chess game by letting the machine 
“think”? for several hours), a fairly respect- 
able level of play can be anticipated. With 
future hardware improvements, this type of 
program may soon become reasonably com- 
petitive at tournament time limits, even on 
a personal computing system.® 
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BLANK 


An APL Interpreter in Pascal 


For our APL interpreter we used 
Michael Wimble’s flowcharts (see “An 
APL Interpreter for Microcomputers,” 
BYTE, Aug, Sept and Oct 1977) as 
generalized guidelines rather than 
coding directly from them. We used 
most of his ideas on function implemen- 
tation, table storage, input scanning, 
and statement parsing. There were a few 
minor errors in logic, but for the most 
part the flowcharts were clear and easy 
to work with. We expanded the inter- 
preter to include functions that Wimble 
made reference to but did not flowchart 
— inner product, outer product, 
catenate, and index-of. We made the in- 
terpreter extremely portable by making 
the character set machine (as well as 
keyboard) independent. We accomplish- 
ed this by having the program read in 
the installation’s character set from a 
file at the start-up of the program. 


Values 


We store all values as real numbers. 
We decided to do this based on the fact 
that although APL’s data structures are 
weak (eg, reals and integers can be 
stored in the same array), Pascal’s data 
structures are very strongly typed. 
Numbers are checked to be whole 
numbers (nonfractional) for certain 
operations such as index generation 
(monadic iota) and reshaping (dyadic 
rho). Numbers are checked to be 
Boolean for such operations as logical 
negation (tilde), ANDs, and ORs. 


Tables 


Rather than using Wimble’s method 
of storing tables in arrays (variable table, 
function table, token table), we took ad- 
vantage of one of Pascal’s data struc- 
tures, the linked list. This offers two big 
advantages to the design of the inter- 
preter: 


@ Array sizes do not have to be 
declared anywhere in the program. 
There is no way of telling which 
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tables will grow very large and which 
ones will stay small; this is dependent 
on the calculations being performed 
with the interpreter and will vary 
from one terminal session to another. 
With linked lists, storage allocation is 
dynamic and can be used for each 
table as needed (storage is taken from 
a common pool of storage reserved 
for linked lists). 

@ It is a simple procedure to deallocate 
storage (using the standard procedure 
“dispose” in Pascal) so that it can be 
re-used by the program as needed. 
This helps to keep the size of the run- 
ning program to a minimum. 


Character Sets 


In keeping with the goal by easy 
transportability, the character set is 
installation (as well as keyboard) in- 
dependent. This is accomplished by stor- 
ing the character set on a file (created at 
installation time) and reading it into 
storage each time the interpreter is acti- 
vated. Due to the development in a CDC 
environment some special considera- 
tions had to be made: 


@® The normal CDC character set con- 
sists of 64 characters — letters, digits, 
and special characters. These char- 
acters are represented by 6 bit bytes 
(octal display codes 00 thru 77) stored 
10 to a computer word (60 bits). 

@® The APL interpreter requires 89 
distinct characters excluding over- 
strikes (over-strikes are considered 
APL characters, but are not im- 
plemented in this version of APL). 
CDC’s ASCII mode fulfills this re- 
quirement in that in ASCII mode, 
upper and lowercase letters are dif- 
ferentiated (in ‘‘normal’’ mode, they 
are not), thus yielding the extra 26 
characters needed. 

@In ASCII mode, characters are 
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represented in one of two ways — a 
6 bit display code (uppercase A: octal 
01, uppercase Z: octal 32, etc.), b) a6 
bit prefix (octal 74 to 76) and a 6 bit 
root (lowercase a: octal 7601, lower- 
case z: octal 7632, etc.). 

@® CDC’s version of Pascal (obtained 
from University of Minnesota with 
local modifications made at NADC) 
does not recognize the special ASCII 
mode (i.e., octal 7601, the lowercase 
a, would be picked up as two distinct 
characters — the circumflex (4) and 
capital A). 

@ To compensate for this, the program 
does two things: 


A test is made for the special prefix 
when characters are read in (the 
“ORDs” of these prefixes are 60 and 
62 respectively). 

Rather than the characters being 
stored, their ‘“ORDs” are. If a 
character has a prefix, it is stored as 
(100 times the “ORD” of the prefix 
plus the “ORD” of the character root) 
— thus lowercase a, (octal 7601 
display code) would be stored as 
100 X ORD (4) + ORD (A). Characters 
without prefixes will be stored by 
their ORDs. 


@ Characters will be packed five to a 
word. Characters with prefixes will 
have a value greater than 6000, thus 
flagging them for special input/out- 
put (I/O) consideration. 


Due to the fact that DCD’s interactive 
system responds to the user in upper- 
case letters only, (and in APL, the upper- 
case are special symbols, [t,!,°,~,l,L,°, 
LJ, etc], the lowercase are capital letters 
A...Z), the messages to be returned to 
the user (diagnostics, etc.) are also typed 
in lowercase into the character set file at 
installation time. 

These local considerations and ad- 
justments will be removed or will be 
transparent (in input routines, two sec- 
tions of code will be removed; in output 
routines, the code will be transparent) 
for another system. 

This implementation of APL will use 
all of the correct APL symbols (— for 
assign, p for reshape, ° for null, etc.) with 
the exception of log-to-a-base [O 
overstruck with *] — it will be O (large 
circle) only. 


Procedures and Functions 


INITIALIZE CHARACTER SET — 
Reads installation character set from 


a file, stores“orders” of characters in 
character set array (APLCHARSET) 
which is indexed by the name of the 
characters. 

READINERROR MESSAGES — Reads 
user-feedback and error messages in 
from a file and stores them in a two 
dimensional array (ERRORMSGS). 

FILLUP TABLES — Initializes tables 
of monadic, dyadic, and reduction 
operators and special characters with 
the orders of characters from the 
character set. 

PRINTAPLSTATEMENT — Echoes an 
input statement back to the user. 

SERROR — Scanner error-handling 
routine. Invokes echo of statement 
causing the error and prints a pointer 
to the item causing the error. 

GETAPLSTATEMENT — Reads in and 
stores (in APLSTATEMENT) an input 
line from the terminal. Checks input 
line for being null (carriage return 
only) and being too long (greater than 
MAXINPUTLINE). 

SKIPSPACES — Self-explanatory. 

ITSADIGIT — (Boolean function) — 
Determines whether a_ character 
passed to it is a digit (0..9). 

ITSALETTER — (Boolean function) — 
Determines whether a_ character 
passed to it is a letter (A..Z). 

CHARTONUM — (integer function) — 
Returns the integer representation of 
a number in character representation. 

NAMESMATCH — (Boolean function) 
— Determines whether the two names 
passed to it are identical. 

TABLELOOKUP — Determines whether 
the character passed to it is contained 
in the table passed to it (MOPTAB, 
DOPTAB, REDTAB, CHARTAB, 
SPECTAB). If contained, the index 
(array position) of the character is 
returned; 0 otherwise (TABLEINDEX). 

IDENTIFIER — Determines if the next 
token of the APL statement is an 
identifier (variable name). If so, the 
identifier is returned (NAME). The 
length of the name is checked for 
length error (greater than MAXVAR- 
NAMELENGTH). 

MAKENUMBER — Determines if the 
next token of the APL statement is a 
number. If so, the number is return- 
ed (REALNUMBER). The number is 
checked for validity (digit must follow 
a minus sign; digit must follow a 
decimal point). 

MONADICREFERENCE — (Boolean 
function) — Determines whether an 
operator passed to it is monadic in 
the context of line (operator cannot 
be preceded by a FORMAL ARGU- 


Table 1: Six legitimate function headers. 


Number of Arguments 
No explicit result 


explicit result 


MENT, FORMAL RESULT, GLOBAL 
VARIABLE, CONSTANT, PERIOD, 
LEFT PAREN, or LEFT BRACKET to be 
considered monadic in context). 

DYADICOPCHECK — Checks to see if 
next character in input line is a 
dyadic operator, special character, 
comment delimeter (rest of statement 
is ignored), or invalid character. If 
valid, the operator/special character 
is stored in TOKENTABLE. 

CHECKOTHERTABLES — Checks to see 
if next charcter in input line is a 
valid reduction operator or a valid 
monadic operator. If so, it is stored 
in TOKENTABLE. 

TRYTOGETANUMBER — If next token 
in input line is a number (scalar or 
vector), it is assembled and stored 
in VALTAB (value table). It is also 
stored in TOKENTABLE. 

NAMEINVARTABLE — _ (Boolean 
function) — Checks to see if the 
identifier (name) passed to it is in 
VARTAB (variable table). If so, the 
address (pointer) to the name is 
returned. 

ADDNAMETOVARTABLE — Adds the 
name (identifier) passed to it to the 
variable table (VARTAB). 

FUNCTIONALREADYDEFINED — 
(Boolean function) — Checks to see 
if the function name passed to it is 
in the function table (FUNCTAB). If 
so, the pointer to its address in 
FUNCTAB is returned. 

MAKETOKENLINK — Sets up a new 
link of storage in TOKENTABLE and 
ties it to the rest of the table. 

PROCESSFUNCTION HEADER — Scans 
function header to check for 
characteristics of function and the 
validity of the header. There are six 
legitimate types of function headers 
as shown in table 1. 

The procedure checks the validity of 
the result (if present), arguments (if 
present), the function, extraneous 
characters following function header, 
the function being previously defined. 
If the header is valid, it is stored in 
the function table (FUNCTAB). 

DESTROYSTATEMENT — _ Returns 
(disposes) links of TOKENTABLE after 
the statement is scanned and parsed 
(if in immediate mode). This releases 


0 (NILADIC) 
NAME NAME B 
Z<— NAME Z<-NAME B 


1 (MONADIC) 


unneeded storage for further use. 
Also, returns links of subroutine 
call information from the parser. 

SCANNER — (main program) — Drives 
above routines until /* (slash asterisk) 
appears as the first two characters 
On an input line. 


Parser Routines 


The parsing and execution of a string 
of tokens is accomplished utilizing the 
following routines: 


ERROR 

PARSER 

RELEASE 
EXPRESSION 
RETURNTOCALLINGSUBR 
SPECSYMBOL 
CALLSUBR 
FUNCALL 
NUMWRITE 
OUTPUTVAL 
INPUTVAL 
GETARRAYPOSITION 
LINKRESULTS 
STACKPOINTERS 
SIMPLEVARIABLE 
INDEX 

VARIABLE 
PRIMARY 
VECTOR 
ASSIGNMENT 
MOP 

DOP 

FUNCTCALL 


ERROR — Given control upon detection 
of improper syntax within either the 
SCANNER or PARSER. An error code 
is printed accompanied by an appro- 
priate diagnostic message. (See table 
2 for error messages.) 

PARSER — Controls all parsing; calls 
RELEASE, EXPRESSION, RETURNTO- 
CALLINGSUBR, OUTPUTVAL to print 
last resultant (OPERTABPTR’). 
Whenever an assignment has not been 
detected in current statement, 
detects function completion and 
returns control to calling token via 
RETURNTOCALLINGSUBR’s action 
upon current subroutine table pointer 
(SUBRTABPTS’); SPECSYMBOL 
detects branching directive ‘“—”; 


2 (DYADIC) 
A NAME B 
Z<-A NAME B 
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prior to exiting parser RELEASE 
clears unneeded memroy allocations 
to the resultant table (OPERTAB). 


RELEASE — Calls upon PRIMARY, 


FUNCALL, EXPRESSION (recursive), 
ASSIGNMENT, MOP, MONADIC, 
DOP and DYADIC to interpret a 
valid expression. The parsing of all 
expressions and their components 
proceeds from the right most token 
to the left. PRIMARY is first called 
to process the right most token 
which is required to be in primary 
component; FUNCALL then detects 
and ‘executes a monadic or dyadic 
function with a recursive call to EX- 
PRESSION, else; an assignment, if 
found, is processed by ASSIGNMENT 
else; MOP detects a monadic 
operator and PRIMARY is called to 
distinguish the preceding primary 
else; the previously found primary 


returns the call from EXPRESSION 
with a valid indication. 
RETURNTOCALLINGSUBR — Called 
from PARSER; returns control from 
the current function to the calling 
function or, if none, to the current 
subroutine table pointer (destroys 
old pointers; utilizes NAMEINVAR- 
TABLE to check result name). 
SPECSYMBOL — Called from various 
parser modules, detects various 
special symbols (:/—/—/°/./()//V;/U) 
yielding a true if the passed symbol 
is found in the current token. 
CALLSUBR — Called from PRIMARY 
or FUNCTCALL to provide necessary 
subroutine table (SUBRTAB’) pointers, 
pass function parameters, and ex- 
ecute branch to called function’s 
first token. (Utilizes NAMEINVARTAB 
to check argument names.) 
FUNCALL — Called from EXPRESSION, 


Table 2: Error messages displayed by APL interpreter. 


00002 
00003 


00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 


00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
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DIGIT MUST FOLLOW A DECIMAL POINT 
EXTRANEOUS CHARACTERS FOLLOW FUNCTION 
HEADER 

INVALID CHARACTER ENCOUNTERED 
FUNCTION ALREADY DEFINED 

ILLEGAL NAME TO RIGHT OF EXPLICIT RESULT 
INVALID FUNCTION/ARGUMENT NAME. 
RESULT OF ASSIGNMENT NOT VALID VARIABLE 
INVALID FUNCTION RIGHT ARGUMENT NAME 
INVALID EXPRESSION 

SYMBOL NOT FOUND 

STATEMENT NUMBER TO BRANCH TO NOT INTEGER 
DYADIC OPERATOR NOT PRECEDED BY PRIMARY 
INVALID EXPRESSION WITHIN PARENTHESES 
MISMATCHED PARENTHESES 

NOT USED 

LEFT ARGUMENT OF DYADIC FUNCTION NOTA 
PRIMARY 

NOT USED 

VALUE NOT BOOLEAN 

ATTEMPTED DIVISION BY ZERO 

ARGUMENT NOT A SCALAR 

ARGUMENT IS NEGATIVE 

ARGUMENT IS NOT AN INTEGER 

ARGUMENT IS A SCALAR OR EMPTY VECTOR 
NOT USED 

INVALID OUTER PRODUCT EXPRESSION 
INVALID INNER PRODUCT EXPRESSION 

NOT USED 

LEFT ARGUMENT IS NOT A VECTOR 

NOT USED 

NOT USED 

ERROR IN FUNCTION ARGUMENT 

ERROR IN FUNCTION ARGUMENT 

INVALID INDEX EXPRESSION 

NON-SCALAR INDICES 

ASSIGNED EXPRESSION NOT A SCALAR 
NON-INTEGER INDICES 

INDEX OUT OF RANGE 

INVALID INDEX EXPRESSION 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NOT USED 

NUMBER AND BASE OF DIFFERENT SIGN 


ARGUMENT IS A VECTOR OF LENGTH ONE 
ARGUMENTS NOT COMPATIBLE FOR INNER PROD- 
UCT 
ARGUMENT(S) WITH RANK GREATER THAN ONE 
ATTEMPTED INVERSE OF ZERO 
tase INCOMPATIBLE FOR DYADIC OPERA- 
N 
LEFT ARGUMENT NOT A VECTOR 
NOT USED 
NOT USED 
NOT USED 
GREATER THAN THREE DIMENSIONS 
NIL 
RE-ENTER LAST LINE 
INPUT 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
IDENTIFIER TOO LONG 
INPUT LINE TOO LONG 
INVALID REDUCTION OPERATOR 
DYADIC REDUCTION REFERENCE 
MONADIC REFERENCE TO DYADIC OPERATOR 
FUNCTION DEFINED WITH NO STATEMENTS 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
NOT USED 
VARIABLE NOT ASSIGNED A VALUE 


calls FUNCTCALL, PRIMARY, and 
CALLSUBR; if FUNCTCALL finds a 
function name, PRIMARY is called to 
get a primary component if function 
is dyadic; CALLSUBR is used to 
establish function pointers in 
SUBRTAB’. Having transferred con- 
trol to the called function a valid 
function indication is returned to 
EXPRESSION. 

NUMWRITE — Prints a signed numeric 
value, yielding the APLFILE define 
negative symbol. 

OUTPUTVAL — Prints the vector indi- 
cated by the last stacked resultant 
(OPERTABPTR’); greater than three 
dimensions are not printed, nil vec- 
tors are not printed; calls NUMWRITE 
to ensure correct printing of sign. 
Called by PARSER and VARIABLE. 

INPUTVAL — Called from VARIABLE; 
inputs vectors of one dimension or 
SCALARS via keyboard. Input is re- 
quested with the prompt “input,” a 
Carriage return, and a line feed. 

GETARRAYPOSITION — Called from 
LINKRESULTS and STACKPOINTERS; 
produces a pointer to an array value 
given the indices of the value and a 
pointer to the array. 

LINKRESULTS — Called from 
VARIABLE; places results (OPERTAB’) 
into its assigned position, utilizes 
GETARRAYPOINTER if result is to be 
positioned within an indexed array. 

STACKPOINTERS — Called from 
VARIABLE; places a result on the 
stack (OPERTAB’), utilizes GETAR- 
RAYPOINTER if result comes from an 
indexed array. 

SIMPLEVARIABLE — Called from 
VARIABLE; detects a variable’s name 
and type and assembles a pointer to 
the variable’s values; returns a 


valid indication if variable found. 
INDEX — Called from VARIABLE; 


determines indices utilizing EX- 
PRESSION and stacks the indices in 
the resultant table (OPERTAB’); SPEC- 
SYMBOL insures that the indices are 
delimited by semicolons. 

VARIABLE — Called from PRIMARY 
and ASSIGNMENT; calls SPEC- 
SYMBOL, INDEX, INPUTVAL, OUT- 
PUTVAL, SIMPLEVARIABLE, LINK- 
RESULTS, STACKPOINTERS in order 
to parse a valid variable, which is 
comprised of: a simple variable, a 
quad indicating I/O or an indexed 
variable. 

PRIMARY — Called from EXPRESSION 
and FUNCALL; calls VECTOR, 
VARIABLE, SPECSYMBOL, EXPRES- 
SION, FUNCTCALL, and CALLSUBR; 


The primary may be a vector, a 
variable, an expression enclosed in 
parens, or a niladic function call; if 
any are found a valid indication is 
returned to the calling procedure. 

VECTOR — Called from PRIMARY; 
yields a valid indication if SPEC- 
SYMBOL detects a left arrow (—) and 
VARIABLE finds a valid variable after 
the arrow. 

ASSIGNMENT — Called from EXPRES- 
SION; yields a valid indication if 
SPECSYMBOL detects a left arrow 
(—) and VARIABLE finds a valid 
variable after the arrow. 

MOP — Called EXPRESSION; deter- 
mines if the current token points to a 
reduction operator; if found, a valid 
indication is returned to EXPRES- 
SION. 

DOP — Called by EXPRESSION; 
determines if the next grouping of 
tokens indicate a dyadic operator, an 
inner product or an outer product; if 
one of these are found, a valid in- 
dication is returned to EXPRESSION. 

FUNCTCALL — Called by PRIMARY and 
FUNCALL; calls FUNCTION- 
ALREADYDEFINED to determine if 
current token is a function name, if 
true a new subroutine table (SUB- 
TAB’) is created and a valid in- 
dication is returned to the calling 
procedure. 


Implemented Operators and Functions 


DYADCOMP — Routine that performs 
mathematical and logical operations 
for reduction and dyadic computa- 
tions 

INDEXGENERATOR — Routine that 
performs the index generator function 
(also referred to as the monadic iota 
operator). Produces a vector of the 
first ARG integers. 

RAVEL — Routine that performs the 
ravel function (also referred to as 
monadic comma operator). The result 
is a vector containing all elements 
of ARG in odometer order. 

SHAPEOF — Routine that performs the 
shape of or size function (also refer- 
red to as the monadic rho operator). 
The result is a vector containing the 
dimensions of ARG. 

REDUCTION — Routine that performs 
the interpretation of the reduction 
monadic argument and calls DYAD- 
COMP to perform the indicated 
mathematical or logical operation 

MONADIC — Routine that performs the 
interpretation of valid monadic 
operators or calls the necessary rou- 
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tines for reduction or mixed monadic 
operations. 

CATENATE — Routine that performs 
the concatenate function of joining 
two arguments (also referred to as 
dyadic comma operator). 

INDEXOF — Routine that performs the 
index-function which returns for each 
element of vector RIGHTARG the 
least index | in the vector LEFTARG 
for which RIGHTARG [lI] equals the 
element. If no value in LEFTARG is 
equal, the result element is 1 plus 
THE SIZE OF LEFTARG (also refer- 
red to as dyadic iota operator). 

RESHAPE — Routine that performs the 
reshape function which forms a result 
having the dimension specified by 
LEFTARG and having elements taken 
from RIGHTARG in odometer order 
(also referred to as dyadic rho 
operator). 

INNERPRODUCT — Routine that per- 
forms the inner product function 
which applied a scalar dyadic func- 
tion (associated with RIGHTARG) be- 
tween each vector along the last 
coordinate of LEFTARG, and each 
vector along the first coordinate of 
RIGHTARG, then performs a reduc- 
tion using the scalar dyadic function 


(associated with LEFTARG) to that 
result. 

OUTERPRODUCT — _ Routine that 
performs the outer product function 
which applies a scalar dyadic func- 
tion using all elements of LEFTARG 
and all elements of RIGHTARG where 
the rank of the result is the number of 
coordinates of LEFTARG plus the 
number of coordinates of RIGHTARG 
and the dimensions of the result are 
size of LEFTARG, size of RIGHTARG. 

DYADIC — Routine that performs the 
interpretation of valid dyadic 
operators and calls DYADCOMP to 
perform the operations for simple 
dyadic operators or calls the 
necessary routines to perform inner 
and outer products, index-of, reshape, 
or concatenate. 

REVERSELINKLIST — Routine that 
performs the reversing of the order of 
the elements in the value table 
(VALUES). 


The entire interpreter, written in 
Pascal for the CDC 6600 is given in 
Appendix C, page 291. Since Pascal is a 
portable language, it should be possible 
to run this program on other Pascal 
systems. @ 


A Pascal Print Utility 


A personal computer system is only 
useful when it is programmed to per- 
sonal tasks, whether by purchasing can- 
ned software or by using one’s ingenuity 
to write original software. Since | am the 
type of person who tends to like to pro- 
gram as a recreation as much as for get- 
ting the final job done, | prefer to write 
my own applications. One of the first 
such applications for my UCSD Pascal 
oriented machine was a file printing 
utility, begun with its earliest versions 
within a month of delivery of the com- 
puter. 

In my occupation, | do a lot of 
writing. Whether the subject is an 
editorial for BYTE magazine, a memo 
for circulation within our company, or a 
letter to an author, | tend to write the 
text using the excellent large file (L2) 
editor of the UCSD Pascal system. But 
being able to edit texts does not com- 
plete what | need to get done with the 
computer. | also have to be able to print 
out the files in a formatted manner, so 
that annoying creases in the fanfold 
paper do not come in the middle of lines 
and so that I keep track of page counts. 
The program described here, called 
PRINT, is what | have contrived. It 
represents several months of evolution 
of its functions toward what | actually 
do. 

The PRINT program is written with a 
menu list orientation for all main func- 
tions and their selection. In the notes 
which follow, we cover the main func- 
tional aspects of the print program, but 
not the details of the Pascal code of the 


by Carl Helmers 


program. Within the program (see listing 
1), verbal comments are made at the 
beginning of most procedures to docu- 
ment purpose and point out any 
machine dependencies or subtleties of 
the code (yes, such can exist even in 
Pascal). When going through the menu 
lists, references to procedures in the pro- 
gram are made by name enclosed in 
quotation marks. 


The main functional menu of the pro- 


gram is shown in figure 1 as it would ap- 
pear on computer. This menu contains 
the highest level functions of the pro- 
gram. For aesthetic purposes, the list of 
functions has two parts. The upper list of 
functions are single letter commands 
which change options and standard data 
for the program. The lower list of func- 
tions are executable actions the pro- 
gram may take. The menu is printed out 
by the procedure print— menu, found on 
page 20 of listing 1. 

The actual main routine of the PRINT 
program consists of a WHILE loop. This 
loop starts out by performing print 
menu. Then it reads a single character 
from the keyboard. This character is 
checked to see if it is an ASCII <ESC> 
character (decimal equivalent 27”). If it 
is not an escape character, then a CASE 
statement is used to decode which ac- 
tive key was pressed. 

If a “‘D” is pressed, then the program 
executes a procedure called diablo 
which sets up the printer spacing con- 
stants for my Diablo printer. In using this 
program with another system, a custo- 
mized version of this setup may be re- 
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Figure 1: This is a printed 
Image of the display of the 
main menu for the print 
program, as compiled from 
the author’s custom ver- 
sion. The options have all 
been set up to refer to 
the file PRINT.TEXT 
which contains listing 1, 
as printed on July 20 1979. 
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quired if the printer is not a Diablo 
HYTYPE II. This diablo procedure pro- 
vides facilities for either 10 or 12 pitch 
horizontal spacing, and either single or 
double spacing vertically on the paper. 
The setup here applies to all the print 
functions. 

The “#” option is used to preset a 
page number different from the one cur- 
rently listed. On entering the program 
for the first time, a starting page count 
of 1 is guaranteed by initialization to 0. 
Typing “#” followed by a carriage return 
will cause the page number to be 
cleared to O again. The procedure 
pagenumber, which sets the page 
number, is found on page 19 of listing 1. 
It contains its own menu of three op- 
tions: clearing (<return>), initializing 
(!) or keeping the previous value 
(<ESC>). 

Printing always assumes we will have 
a file specified. The “N” option is used 
to specify a file name for the program to 
use. When the program is first activated, 
a default value of the system work file 
SYSTEM.WRK.TEXT is initialized. Then, 
when actually using the program, this is 
usually changed. When “N” is pressed, 
the routine namefile is executed, which 
asks for the new file name. The program 
always assumes a “.TEXT” file name 
extension. Thus when it was set up to 
print its own listing, after pressing “‘N”, | 
simply entered the word “PRINT,” 
resulting in the name “PRINT.TEXT” as 
seen in the menu of figure 1 and in 
listing 1. 

Now since | am involved in a pub- 
lishing occupation, one of the options | 
put into the program is that of speci- 
fying copyrights. For my own version of 
the program, | use either no copyright 
(rarely), BYTE Publications Inc. for 
business applications of the printer, or 
(most often) a personal tag of Carl T 
Helmers Jr. The menu list of figure 1 was 
made using my personal version of the 
program to produce listing 1. It thus 


Carl's Printing Program... 7/18/79 


Pick an option from the following list... 


D --> printer spacing = normal text 

# --> set starting page number = 0 

N --> file nane = PRINT.TEXT 

C => copyright = Carl T Helmers, Jr. 

Q --> toggle PROCEDURE search option = YES 
W —> date = July 20 1979 


P —> print routine 

L --> print as personal letter 

B —> print as business letter 

T —> enter typewriter routine 

R --> prepare return addresses on envelopes 


Type <esc> to leave the program 


shows my own personal option as the 
copyright option. (In the actual listing 
and in the version to create the samples 
of figures 2 and 4, | recompiled the pro- 
gram using generic forms of strings such 
as ‘““< < < your name > > >”) This 
copyright option is invoked by use of the 
command character “C” in response to 
the main menu. The procedure get- 
copyspec performs these actions. 

The option “Q” in the main menu is 
one which controls whether or not the 
print program should search for the 
keyword “procedure” in lines which 
happen in the last fourth of the page. 
Each time the “Q’” command is given, 
the option toggles between “YES” and 
“NO.” The “YES” form of the option is 
used to implement a very crude form of 
Pascal pretty printing. A heuristic rule is 
used, that if a procedure begins in the 
last quarter of a page, the printing pro- 
gram will go to the next page and start 
the procedure at the top of that page. 
This option is implemented by execution 
of the procedure proccheck. 

The final options-oriented choice in 
the main menu list is “W,” used to 
specify the date field for printouts. In 
the best of all possible worlds this would 
not be needed at all, since the operating 
system’s data routines would be access- 
ed to get the current system date. But at 
this writing | have not figured out how to 
do that with UCSD Pascal, so I put in an 
explicit date definition routine and date 
field. The routine get—the—date is 
used to define this field and is found on 
page 5 of listing 1. 

The remaining choices of the main 
menu are executable actions. The most 
often used such action is the first 
choice, ‘P,”” which invokes the pro- 
cedure called any—file—print. This 
routine performs printing with a stan- 
dard header that includes the file name, 
copyright specification, date field, run- 
ning page count, and the current page 
header. This is the original print routine 
which has been running essentially un- 
changed for about six months at this 
writing. 

In operation the any—file—print 
routine (as well as the two letter printing 
routines) treats the first line read from 
the file as a beginning page header 
string. This string is, for example, the 
comments string printed above the dash- 
ed line on every page of listing 1. After 
the initial header definition which is a 
default action of the program, explicit 
new header strings can be set up during 
the printing operation by a two line se- 
quence within the file: the first line con- 


LetterTST. ‘TEXT 
Letter Test Text... 


(c) 1979 <<< your name >>> 


Second Line of Salutation 
Third Line of Salutation 

* dummy end of salutation line 
Dear Recipient 


This is a letter which signifies absolutely nothing 


to you, but tells us whether the letter writing routines work. 


It starts out with a first page, then following the end of 
the first page, skips to the next page... 


We are about to skip. to the next page using the special 
code of "#" in the second column of the input text... 


<<< your name here >>> 

<<< your street here >>> 

<<< your town here >>> 
<<< your state, zip here >>> 


July 20 1979 


To: 

Letter Test Text... 

Second Line of Salutation 

Third Line of Salutation b 


Dear Recipient 


This is a letter which signifies absolutely nothing 


to you, but tells us whether the letter writing routines work. 


It starts out with a first page, then following the end of 
the first page, skips to the next page... 


We are about to skip to the next page using the special 
code of "#" in the second column of the input text... 


e<c your name >>> to Letter Test Text... July 20 1979 


There now, if all worked properly, we are now on the 


second page of the letter, illustrating the form used for headings 


on succesSive pages... 


That's all we have to test... 
Yours truly, 


Somebody... 


July 20 1979 


Page 2 


Page 1 


Figure 2: When printing a letter form of a 
file, the first few lines are assumed to con- 
tain the address of the correspondent. Here 
are three pages taken from listings of a 
dummy fetter file made by the compiled 
form of the program shown in listing 1. 
At (a) we see a printout of the first few 
lines of the file made with the “P’’ format; 
line 1 of the file becomes the heading line, 
and the rest is an image of the lines of the 
file, in particular showing the line with a 
single “*” character in column 1 which 
terminates the correspondent address if it is 
less than 5 lines long. 

At (b) we see the same file, but this time 
printed in the personal letter format, show- 
ing how the personally oriented strings of a 
return address are included, as well as ap- 
propriate spacings down the listing. 

And finally, at (c) we see a continuation 
page in the letter format, where an abbre- 
viated header format is used rather than the 
first page form. The first line of the corres- 
pondent address appears in the header of 
each continuation page, as well as a page 
number. 
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Typing routine... 
<returrm 


<back space> = delete one character 
<ctrb "I" = skip to new page 
<ctrl> "J" = delete line 

<ctrb "G" = confim line buffer 


<esc> to leave typewriter 


This is a test of the typewriter... 
This is a test of the typewriter... 


tains the arbitrarily chosen character 
“$’’ in the second character position of 
the line; the second line contains the 
new value of the header string to be 
used on all subsequent headings. The 
reason for checking the second column 
is to allow the first column to be used 
for the opening comment brace of a 
Pascal comment, so that the first line of 
the new heading sequence will be “{$}” 
in a Pascal program. 

A similar technique of embedding 
command codes in the text is used to 
force page headings for reasons related 
to the logic of the text other than filling 
up a page or beginning a new procedure. 
This explicit page eject feature is ac- 
cessed by embedding a “#” character in 
column 2 of a line. Again, in a Pascal 
program, a single line with “{#}” acts as 
a comment and does not affect the 
compilation of a program. 

Both the heading redefinition and the 
page eject codes also work when using 
either the personal letter or business let- 
ter printing routines. These routines are 
invoked by the “L’” and “B’” command 
choices of the main menu, respectively. 
In each case, similar actions and formats 
are used. The example provided in figure 
2b shows the letter format applied to a 
test file. 

In preparing a letter, we assume that 
the file begins with up to 5 lines of 
correspondent address. If less than 5 
lines are used, the last line of the 
address is followed by a line containing 
an asterisk (*) character in its first 
character position. In figure 2a, we see a 
printout of the first page of the letter 
test file, interpreted with the “P” option, 
so that the asterisk which terminates a 3 
line correspondent address can be seen. 

In printing a letter file, this assumed 
correspondent address is used in the 
heading for the first page, following the 
printing of the word ‘To:”. Also, on the 
first page, a formally centered version of 
the appropriate return address will be 
printed. Again, in the example of figure 
2b, as printed by-the compiled form of 


print the current line input 


Figure 3: The “T” option of the main 
menu invokes this typing routine. The 
display is shown as copied to the printer 
using a feature of my computer system 
called “print screen.” The menu of possi- 
ble options is refreshed whenever a car- 
riage return causes a line to be printed on 
the printer. 


listing 1, generic strings identify where a 
reader might substitute personal infor- 
mation in using this program. On second 
and succeeding pages of a letter (see 
figure 2c), an abbreviated page break is 
used rather than a repetition of the com- 
plete return address. 

All the printing procedures, including 
any —file—print, personal—letter, and 
busi—letter are found on page 16 of 
listing 1. When you look there, you will 
find that they reference a procedure 
called fileprint, which begins on page 9 
of listing 1 and ends on page 15. The dif- 
ferences in printing the various ways are 
largely those of handling the different 
forms of page headers, so a common 
procedure with a choice of header prin- 
ting options is employed. The procedure 
headerprint (pages 10 to 13 of listing 1) 
within the procedure fileprint contains 
three detail header printing routines for 
the various kinds of files. 

Much of the styling and detail of a let- 
ter can be changed at will by readers 
who implement a version of this pro- 
gram. These are my own _ personal 
choices of how to format distinctive let- 
ters of one or more pages, and may not 
be aesthetically pleasing to others. 
Knowing the number of choices avail- 
able and the ease of making changes 
with a UCSD Pascal system’s editor, | 
fully expect many users of this program 
to make such changes. 

As an afterthought, | put in the final 
two executable choices of this program. 
The “T’” option is used to invoke a 
typewriter simulation procedure, typing, 
as found on pages 17 to 19 of listing 1. 
This routine displays a menu list of 
special characters on the main terminal 
screen, and accepts characters from the 
screen one by one until a carriage return 
is received which causes the line to be 
printed. Figure 3 shows the typing menu 
as printed from the display, along with a 
sample line. 

The “R” choice is used when pre- 
paring personal correspondence in order 
to place my home address on an 


envelope. When using blank envelopes, 
this is done by removing the paper from 
the printer and putting in envelopes one 
at a time. For monthly bills where a pre- 
addressed envelope comes from the 
source of the bill, | simply put each indi- 
vidual envelope in the printer as | write 
the checks, leaving the paper in and not 
bothering with attempting to make the 


<<< your name here >>> 
<<< your street here >>> 
<<< your town here >>> 


<<< your state, zip here >>> 


return address fit the spaces usually pro- 
vided. m 


Table 1: A list of all procedures found in listing 1. This listing can be 
used as an index when studying the program for possible modifications. 
It was prepared by hand from listing 1. 


Listing 
Procedure Page 


setdiablospacing 
diablo 
inttos 
printin 
center_ the string 
get_._ the date 
getcopyspec 
fix__ copyright tag 
set_up-— printer 
open_— file_.now 
really — initialize 
my — address lines 
fileprint 
grab address _ lines 
initialize 


 \ 


headerprint 
normal_ header 
header_ personal _ letter 


=90O0 DADO HDOOAGCAIARAWH 


oat ot ad 


2 
N 


header business — letter 


headerprint [BEGIN...END] 


= «a 
> W 


checkprocedure 
pagecheck 
pagebumper 

fileprint [BEGIN...END] 


w-_ «= = 


namefile 
personal _ letter 
busi_ letter 
any — file print 
console —_ input 
typing 

promptings 
typing [BEGIN...END] 


es at =) od = = =o = 


pagenumber 
procheck 
print_ return address 
setup envelope 
print_return— address [BEGIN...END] 
print_menu 
print [BEGIN...END] 


CODDNDMNMHO NNNOODOT ALAL 


NON = = 2 2 = 


Refers to 


@ | 


etdiablospacing 


rintln 


eo! Silltti 


etdiablospacing 


(e] 


pen_file_now, fix—copyright— tag, 
set_.up—printer, grab_ address_ lines, 


setdiablospacing, printin, inttos 

setdialospacing, printin, 

my — address print, center_the— string, 
inttos 

setdiablospacing, printin, 
center— the— string 

normal_headr, header— personal _ letter, 
header business — letter 

printin 

checkprocedure, headerprint 

pagecheck, printIn, pagebumper 

initialize, pagebumper, pagecheck, 
printin 


fileprint 
fileprint 
fileprint 


set_up—printer, promtpings, con, 
console — input, printin, 


setup—envelope, my — address print 


really _ initialize, print_.menu, diablo, 
getcopyspec, any — file — print, 
procheck, namefile, personal_ letter, 
busi_ letter, typing, pagenumber, 
print_return_ address, get_ the — date 


Figure 4: A sample of the 
simple printout of return 
address invoked by the 
“R” option of the main 
menu. 
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Listing 1: The PRINT program. This is a complete Pascal program listing 
for the print program. It was printed by a compiled version customized 
for the author’s personal use. The text printed here is a generic form in 
which strings like “<<< your name >>>” have been used to in- 
dicate places where the program should be changed for the reader’s per- 
sona] use. Note the header information which is repeated at he beginn- 
ing of each page of listing. 


PRINT. TEXT (c) 1979 Carl T Helmers, Jr. July 22 1979 Page 1 
{7/19/79: UCSD Pascal oriented print utility program} 


(*SR+*) 
PROGRAM print ; 


{ PERSONAL PRINT UTILITY 


ee eee Ree eS CE 


author: Carl T. Helmers, Jr. 
Editorial Director 
BYTE Publications Inc. 


version: July 19 1979 

systems asssumption: UCSD Pascal Version 1.5 
running on Northwest Microcomputer Systems 
model 85/P with Diablo HYTYPE II printer 


a aT a ae ON et ENE ee eR es EEE EOLA EOE 


What follow are G L OBA L declarations applicable to the whole progran } 
In this program, as a general rule most linkages between procedures for } 
data have been done using these global variables, ignoring the use of } 
formal parameters at (perhaps) some risk in understanding on the part of} 
the reader... } 


Pn, ptem, ptten, gute, gate, CR, pm, POR, ge PO pte FO, gehen, FO py 


TYPE 
string_of 128 = STRING(128); 
VAR 
copyright : (my own,businesz,none) ; 
cstring : string of 128; 
file heading,s,hyphens : string_of 128; 
textfile : FILE OF CHAR; 
pstring ,astring ,firstline,filename : string _of 128; 
string nothing : STRING[1]; 
apage : INTEGER; 
horiz,verti,c5,c8 : INTEGER; 
pagecount ,records : INTEGER; 
line count,lines per page : INTEGER; 
alldone : BOOLEAN; 


which print_heading : (miscellaneous,a_personal_letter,a_business_ letter) ; 
first heading printed : BOOLEAN; 
todays date : STRING [32]; 
correspondent_address : ARRAY[0..4] OF string_of 128; 
we print a program : BOOLEAN; 
c we print : STRING[3]; 
criterion : INTEGER; 


arraychar: PACKED ARRAY(0..1] OF CHAR; 
anychar : CHAR; 
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PROCEDURE setdiablospacing(VAR horizontal,vertical : integer); 

{ This is a very machine dependent interface program which sets up the 
spacing constants for the Diablo Hytype-II receive-only printer attached 
through a parallel port of the Northwest Microcomputer Systems 85/P 
computer upon which this program was developed. It assumes that the 
address locations decimal 63520 and 63519 contain the spacing constants 
for horizontal and vertical motion of the print carriage respectively. 


} 


CONST 
vertaddress = 3519; 
horizaddress = 3520; 
bias=30000; 
TYPE 
ptr = “CHAR; 
memaccess = (pointer ,number) ; 
memory = {variant record used to suppress type checking of addresses} 
RECORD 
CASE memaccess OF 


pointer ;: (apointer :;:-ptr); 
number : (anumber : INTEGER) 
END; 
VAR 
is INTEGER; 
anybyte : memory; 
BEGIN 


{first set up an address as a number } 

anybyte.anumber := vertaddress+ (2*bias) ; 

{then use the pointer variant of that number to change the byte} 
anybyte.apointer® := chr(vertical); 


{first set up an address as a number } 

anybyte.anumber := horizaddresst (2*bias) ; 

{then use the pointer variant of that number to change the byte} 
anybyte.apointer” := chr(horizontal); 


END {setdiablospacing}; 
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PROCEDURE diablo; 

{ This is a less machine dependent procedure which allows one to set up 
four different variants on the spacing of the printed outputs. All the 
combinations of single or double vertical spacing, 10 or 12 pitch 
horizontal spacing are provided. "Normal" is single space, 12 pitch 
printing, which is used with a 10 pitch Daisy wheel as, for exanple, in 
this listing... 


If another printer is used, the semantics of the menu provided in the 
WRITE statements below would have to be rewritten. 
} 
VAR 
character : CHAR; 
BEGIN {setting up mickey-mouse } 
PAGE (OUTPUT) ; 
WRITELN (‘Diablo HYTYPE-II Setup For 85/P & UCSD Pascal'); 
WRITELN(' ‘); 
WRITELN ('Pick one of the following options...'); 


WRITELN(' S —> normal text'); 
WRITELN (' D --> double space'); 
WRITELN(' X —> typewriter text'); 
WRITELN(' Y —> typewriter double space text’); 
WRITEIN (' '); 

WRITELN ('?') ; 

READ (KEYBOARD, character) ; 

WRITELN (character) ; 

{default diablo spacing is single} 
horiz:=5; 

verti :=8; 


pstring := 'normal text’; 
lines per page := 58; 


CASE character OF 
'p! ,ta' : 

BEGIN 
verti:=16; 
pstring := 'double spaced normal text'; 
lines per page := 28 

END; 

ty! pix! : 

BEGIN 
horiz:=6; 
verti:=8; 
pstring := ‘typewriter text'; 
lines per page := 58 

END; 

ty? ty? : 
BEGIN 

horiz:=6; 

verti:=16; 

pstring := ‘double spaced typewriter text'; 

lines per _page := 28 


END 
END {CASE}; 


setdiablospacing (horiz,verti); 
criterion := (3 * lines per page) DIV 4 


170 


PRINT. TEXT (c) 1979 Carl T Helmers, Jr. July 22 1979 Page 4 
{7/19/79: UCSD Pascal oriented print utility program} 


END {diablo}; 


PROCEDURE inttos(VAR i : INTEGER); 
{convert an integer into a string value in global "s" for use by "println"} 
{this procedure may not be absolutely necessary, but was incorporated at } 
{an early stage in the author's understanding of Pascal as a language. } 


frap : STRING(1]; 
txt : string of 128; 
j : INTEGER; 


BEGIN 

j := i; 

frap :=' '; 

txt s= '': 

REPEAT 
frap[1] := CHR(ORD('0')+(j MOD 10)); 
txt := CONCAT(frap,txt) ; 
j := j DIV 10 

UNTIL j = 0; 


S := CONCAT(sS,txt); 
END {inttos}; 


PROCEDURE println {s—>diablo}; 

{ This procedure is required to allow simultaneous operation of the main 
console device for interactive messages of the program, and the printer 
device (UCSD Pascal Unit 6). The actual output of this program from some 
file goes to Unit 6, buffered by the global string variable "s". 


The operation of this procedure is functionally identical to the built in 
intrinsic "WRITELN" of the UCSD Pascal implementation. 
} 
VAR 
i : INTEGER; 
chp : PACKED ARRAY(0..127] OF CHAR; 
BEGIN 
FOR i := 1 TO LENGTH(s) DO chp[i-1] := s[i]; 
UNITWRITE (6 ,chp, LENGTH (S) ,,1); 
chp{0] := CHR(13); 
UNITWRITE (6,chp[0] ,1,,1) 
END {println }; 
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=p ete GE em EE ane en A ee OD EP ee ce > ed ee ee ee ee es ee 9 ee se ee so ee ee ee ee ee ee eee ew a ao 


PROCEDURE center the string; 
{ This procedure simply centers the standard global output string "s" 
in an 80 character wide field... 


VAR 
i : INTEGER; 
BEGIN 
IF LENGTH(S) > 79 THEN S := ‘String Conversion Error'; 
FOR i := 1 TO (80 — LENGTH(Ss)) DIV 2 DOS := CQNCAT(' ',S) 
END; 


PROCEDURE get_the date; 
{ This procedure is used to input the current date for printing with 
the file being transferred... 
} 


BEGIN 
PAGE (OUTPUT) ; 
WRITELN (‘Enter today''s date or <returm for null date‘); 
READIN (astring) ; 
IF LENGTH (astring) <32 THEN todays date := astring 
END {get_the date}; 


PROCEDURE getcopyspec {determine copyright message}; 

{ This procedure is used to modify the default copyright specification, 
which may be "<<< your name >>>", "<<< your company name >>>" or a null 
specification. Users should modify the two built in strings of this 
listing to reflect their own name and business affiliations. 


} 
BEGIN 
PAGE (OUTPUT) ; 
WRITELN ("Enter copyright choice: B or N (<ret> for personal) '); 
READ (KEYBOARD, anychar) ; 
copyright := my ow; 
IF ((anychar='B') OR (anychar='b')) THEN copyright := businesz; 
IF ((anychar='N') OR (anychar='n')) THEN copyright := none; 
CASE copyright OF 
my own : cstring := '<<< your name >>>'; 
businesz : cstring := '<<< your company name >>>'; 
none : cstring := '' 
END {CASE}; 
WRITELN ('') 
END; 
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PROCEDURE fix copyright tag; 
{ This\ procedure defines the string named "file heading" which is used 
for display purposes and reflects the current contents of the 
copyright option chosen... 


BEGIN 
file heading := CONCAT(filename,' ')>; 
IF NOT(copyright=none) THEN 
file heading := CONCAT(file_heading,'(c) 1979 ') 
ELSE 
file heading := CONCAT(file heading,' "): 
IF copyright=my own THEN 
file heading :=CONCAT(file heading ,'<<< your name >>>") 
ELSE 
IF copyright=businesz THEN 
file heading:=CONCAT(file heading, 
"<<< your business name >>>'); 
file heading := CONCAT(file heading,' ') 
END {fix copyright_tag}; 


PROCEDURE set_up printer; 

{ Ask for and receive an acknowledgement of paper position prior to 
the start of a printing operation. 

} 

BEGIN 
{clear the print buffers} 
S$ := a 
println; 
println; 
println; 


{normal interactive query} 
WRITELN('Reset printer to bottom of page then ', 
"type any character'); 
READ (KEYBOARD, anychar) 
END {set_up printer}; 


PROCEDURE open file now; 
{ This procedure is used to open the text file which is to be printed 
by the program. The compiler control toggles "(*SI-*)" and "(*SI+*) " 
are used to suppress automatic error checking during the RESET operation 
so that if an error occurs the program can recover gracefully... 


VAR 
errornunber ; INTEGER; 
BEGIN 
records := 0; 
firstline := ''; 
{----------------------- BEGIN UNPROTECTED CODE ----------------------} 
(*SI-*) 
RESET (textfile,filename) ; 
errornumber := IORESULT; 
(*$I+*) 
{----------------------- RESUME PROTECTED CODE -------------------—--} 
IF errornunber = 0 THEN {file was found in good order } 


BEGIN 
READLN (textfile,firstline) ; 
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UNITREAD (1{~},arraychar[0),1,,1) 
END 


ELSE {file was non-existent or invalid in same way } 
BEGIN 
WRITELN('File "',filename,'" invalid: result=' ,errormunber:3) ; 
WRITELN ("Press <sp> to continue’); 
READ (KEYBOARD, anychar) 
END 


END {open file now}; 


PROCEDURE really initialize; 

{ As suggested by its name this is the procedure which really initializes 
the whole program's operation. It is performed once following the start 
of execution, aS opposed to other initialization procedures for specific 
routines within the progran which may be executed more than once... 


VAR 
i : INTEGER; 

BEGIN 
filename := 'SYSTEM.WRK. TEXT’; 
cstring := '<<< your name >>>'; 
copyright := my ow; 
todays date := '?'; 
string_nothing :=' '; 


we print a program := TRUE; 
c we print := 'YES'; 


alldone := FALSE; 


{printer management constants are set up to defaults} 


c5 := 5; 

c8 := 8; 

line count := 99; 
lines per page := 58; 


e : 
criterion := 44; 
horiz := 5; 
verti := 8; 
setdiablospacing(horiz,verti); 
pstring := ‘normal text'; 
pagecount := 0; 


firstline := '' 


hyphens := ''; 
FOR i := 1 TO 90 DO hyphens := CONCAT(hyphens, '-') 
END {really initialize}; 


e 
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PROCEDURE my address print; 
{ This procedure used by header routines of fileprint, return address 
printer... 


BEGIN 
s := '<<< your name here >>>'; 
center the string; 
println; ~ {1} 
s := '<<< your street here >>>'; 
center the string; 
println; ‘ {2} 
Ss := '<<< your town here >>>'; 
center the string; 
println; {3} 
s := '<<< your state, zip here >>>'; 
center the string; 


printIn; {4} 
S 32 ''; 
println {5} 


END {my address print}; 
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PROCEDURE fileprint; 


{ This is the master file printing routine, used for "miscellaneous" 
files, as well as personal letters and business letters... The global 
set variable "which print heading" controls one of three possible 
headings will be printed on each page. The global BOOLEAN variable 
"we print _a program" controls whether or not the last fourth of a page 
being printed will have a test for the beginning of a new PROCEDURE 
used to automatically generate a skip to the next page. 


PROCEDURE grab address lines; 
{ When printing either a personal or a company letter, the working 

assunption made is that the text file with the letter begins with 

up to five lines of address information. This set of lines is read 
at the beginning of a letter printing operation, with the occurrence 
of an asterisk ("*") in the first position of a line acting as a 
premature termination of the address read operation. The first line 
of the address information will be repeated in any continuation pages 


of a letter printout. 


} 

VAR 
done : BOOLEAN; 
i ; INTEGER; 


{read up to five lines of correspondent address from beginning 
of file. Terminate address scan with a "*" character in a line.} 
BEGIN {grab address lines} 


IF ( 
(which print heading = a_personal letter) 


OR 
(which print heading = a business letter) 
) 
THEN 
BEGIN 
correspondent _address[0] := firstline; 
FOR i := 1 TO 4 DO correspondent_address[i] := ''; 
done := FALSE; 
i :=1; 
REPEAT 
BEGIN 
READIN (textfile,astring) ; 
astring := CONCAT(astring,' ') {guard against nulls}; 
IF ((i<=4) AND (astring[1] <> '*')) THEN 
correspondent address[i] := astring 


UNTIL done 
END; 
END {grab address lines}; 
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{7/19/79: UCSD Pascal oriented print utility program} 


PROCEDURE initialize {for "fileprint"}; 


Page 


{ This is the procedure which sets up initial conditions when a 


file is to be printed... 
} 
BEGIN 
open file now; 
fix copyright _tag; 
set up printer; 
grab_address_ lines; 
first heading := TRUE; 
line count := 99 
END {initialize for "fileprint"}; 


PROCEDURE headerprint; 


{ This is the procedure which prints a header which breaks up the 
text into multiple pages... It is invoked whenever necessary, and 
checks the type of printing operation as determined by the global 


variable "which print heading"... All the headers are printed with 


a "normal" spacing option for the printer. 


} 


PROCEDURE normal header; 


{ This is the header used for most printing operations, including 
the printing of program files... The printout of this program 


was made using this kind of header... 


VAR 
i : INTEGER; 
BEGIN 
setdiablospacing (horiz,c8); 
S 3:3 ''; 
IF ((pagecount > 0) AND (line_count<>100)) THEN 
FOR i := 1 TO 2 DO println {s—>diablo}; 
pagecount := pagecount +1; 
IF verti = 16 THEN println {s—>diablo}; 
println {s-->diablo}; 
S := CONCAT(file heading,todays date,’ Page '); 
inttos(pagecount) ; 
println {s—>diablo}; 
s := firstline; 
println {s—>diablo}; 
Ss := hyphens; 
println {s—>diablo}; 
S 3:= tt, 
println {s—>diablo}; 
setdiablospacing (horiz,verti) ; 
line count := 0 
END {normal_header}; 
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PROCEDURE header personal letter; 

{ This is the header routine used for personal letters, where on the 
first time through, a full return address, date and correspondent 
address are provided. On second and succeeding headings, only an 
abbreviated header is used containing the first line of the corre— 
spondent address, date and page number... 

} 

VAR 
i : INTEGER; 

BEGIN {header personal letter} 
setdiablospacing (horiz,c8); 

S$ := Ht, 
IF ((pagecount > 0) AND (line count<>100)) THEN 
FOR i := 1 TO 2 DO println {s—>diablo}; 
pagecount := pagecount +1; 
IF verti = 16 THEN println {s—>diablo}; 
println {s-->diablo}; 
IF first heading THEN 
BEGIN 
{space down an anount equal to the continuation heading } 
S$ := mt, 
println; 
println; 
println; 
println; 
setdiablospacing(horiz,verti); 
{line count is} 
my address print; {1-5} 
S := todays date; 
center the string; 


println; {6} 
S:= it, 
println; {7} 
println; {8} 
println; {9} 
S := 'Tos'; 
println; {10} 
FOR i := 0 TO 4 DO 
BEGIN 
S := correspondent address[i]; 
println {11-15} 
END; 
Ss := ''; 
println; {16} 
printin; {17} 
println; {18} 
line count := 18 {lines printed so far} 
END 
ELSE 
BEGIN 
S := CONCAT('<<< your name >>> to ',correspondent address[0],' ne 
todays date,' Page '); > 


inttos(pagecount) ; 
println {s—>diablo}; 
St 743 

println {s—>diablo}; 
S := hyphens; 
println {s—>diablo}; 


Star's 
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println {s-->diablo}; 
setdiablospacing(horiz,verti); 
line_ count := 0 
END; 
first_heading := FALSE 
END {header personal letter}; 


PROCEDURE header business letter; 

{ This is the header routine used for business letters, where on the 
first time through, a full return address, date and correspondent 
address are provided. mn second and succeeding headings, only an 
abbreviated header is used containing the first line of the corre—- 
spondent address, date and page number... 


VAR 
i : INTEGER; 
BEGIN {header business letter} 
setdiablospacing (horiz,c8); 
S:= ''s 
IF ((pagecount > 0) AND (line_count<>100)) THEN 
FOR i := 1 TO 2 DO println {s—>diablo}; 
pagecount := pagecount +]; 
IF verti = 16 THEN println {s—>diablo}; 
println {s-->diablo}; 
IF first heading THEN 
BEGIN 
{space down an anount equal to the continuation heading } 
S r= ls 
println; 
println; 
println; 
println; 
setdiablospacing(horiz,verti); 
{begin the first time heading} 
s := '<<< your business name >>>'; 
center the string; {line count is} 
println; {1} 
s := '<<< your business address >>>'; 
center the string; 
println; {2} 
s := '<<< your business town, state, zip >>>'; 
center the string; 
println; — {3} 
S 3:= mt, 
println; {4} 
s := '<<< your name >>>'; 
center the string; 
println; ~— {5} 
s := '<<< your title >>>'; 
center_the_ string; 


println; {6} 
s := ''; 
println; {7} 


S := todays date; 
center the string; 


println; {8} 
Soars 
println; {9} 
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println; {10} 
println; {11} 
S 3:= 'Tos': 
println; {12} 
FOR i := 0 TO 4 DO 
BEGIN 
S := correspondent_address[i]; 
println {13-17} 
END; 
s 3s= ''s 
println; {18} 
println; {19} 
printin; {20} 
line count := 20 {lines printed so far} 
END 
ELSE 
BEGIN 


Ss := CONCAT('<<< your nane >>> to ',correspondent_address(0], 
' ',todays date,' Page '); 

inttos(pagecount) ; 

println {s-->diablo}; 

s:= ''; 

println {s-->diablo}; 

S := hyphens; 

println {s-->diablo}; 

S$ := nt, 

println {s-->diablo}; 

setdiablospacing(horiz,verti); 

line_count := 0 


END; 
first heading := FALSE 


END {header_business_ letter}; 


BEGIN {headerprint}; 
IF which print_heading = miscellaneous 
THEN normal header 
ELSE 
IF which print heading = a personal letter 
THEN header _personal_letter 
ELSE 
header_business_ letter 
END {headerprint}; 
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PROCEDURE checkprocedure; 
{ This procedure is used to determine whether the current input line 


contains the keyword "PROCEDURE" in order to perform a rudimentary 
type of "prettyprinting": a new procedure will not begin in the 
listing of a "normal" file if it starts more than "criterion" 


Gown the sheet of -paper. 


} 
BEGIN 
IF POS('PROCEDURE',astring) > 0 THEN 
BEGIN 
S$ := tr. 
REPEAT 
BEGIN 
println; 
line count := line count + 1 
END 


UNTIL line_count > lines per page 


END 
END {checkprocedure}; 


PROCEDURE pagecheck {for "fileprint"}; 

{ This is the procedure used before every normal "println" call during 
the main portion of a file printing operation, in order to test 
whether a skip to the next page is reauired. It invokes the 
"“checkprocedure" routine if the Pascal PROGRAM printing option is 


turned on. 


VAR i : INTEGER; 
BEGIN 
line count := line count + 1; 
IF 
we_print_a program 
AND 


(line_count > criterion) 
THEN checkprocedure; 
IF line count > lines per page THEN headerprint 
END {pagecheck for "fileprint"}; 


PROCEDURE pagebumper {for "fileprint"}; 
{ This procedure implements a rudimentary form of word processim: 
if a "miscellaneous" file format is used, then the standard heading 
field "firstline" can be redefined by an input record with the key 
character "$" in column 2. (This allows it to be wrapped in comments 
braces in a Pascal program.) For all formats, if the key character 
"#" is found in column 2 of a line, the printing will skip to the 


next page and start a new heading... 


NOTE THIS PROCEDURE USES RECURSION !!!2! 
} 
VAR 

i : INTEGER; 
BEGIN 

IF LENGTH (asString)<2 THEN astring := CONCAT(astring,' '); 

IF astring(2) = '#' THEN 

BEGIN 
Ss := ''; 


WHILE line count > 0 DO 
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BEGIN 
pagecheck; 
println {s-->diablo} 
END; 
READLN (textfile,astring) ; 
pagebunper {RECURSIVE CALL} 
END; 
IF astring{2] = '$' THEN 
BEGIN 
READIN (textfile,firstline) ; 
READLN (textfile,astring) ; 
pagebunper {RECURSIVE CALL} 
END 
END {pagebumper for “fileprint"}; 


BEGIN {the "fileprint" PROCEDURE at last} 
initialize; 
WHILE NOT EOF(textfile) DO 
BEGIN 
READLN (textfile,astring) ; 
records := records + 1; 
pagebumper ; 
pagecheck; 
S := astring; 
println {s—>diablo} 
END; 
Ss := t's 
line count := line_count - 5 {adjustment to make it come out even}; 
REPEAT 
BEGIN 
println; 
line count := line count + 1 
END 
UNTIL line count > lines per_page; 
CLOSE (textfile, LOCK) 
END {fileprint}; 


PROCEDURE nanefile; 
{ This procedure sets the file name to be printed. It is always assumed 
that a ". TEXT” extension will be used... 


BEGIN 
PAGE (OUTPUT) ; 
WRITELN ("Enter a new file name to be printed'); 
READLN (filename) ; 
filenane := CONCAT(filenane,'.TEXT') 
END {namefile}; 
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PROCEDURE personal _ letter; 
BEGIN 
which print heading := a personal letter; 
fileprint ~ a a 
END {personal_letter}; 


PROCEDURE busi letter; 
BEGIN 7 
which print heading := a business letter; 
fileprint 
END {busi letter}; 


PROCEDURE any file print; 
BEGIN 
which print heading := miscellaneous; 
fileprint ~— 
END; 


PROCEDURE console input; 
{ This procedure is used to read a single keystroke frant the console 
keyboard unit. It is required because the UCSD Pascal READ (KEYBOARD, 
anychar) intrinsic purges all the normal ASCII control characters... 


VAR 

inch : PACKED ARRAY[0..0] OF CHAR; 
BEGIN 

UNITREAD (2,inch(0] ,1,,1); 

WHILE UNITBUSY(2) DO; 

anychar := inch[0] 
END {console input}; 
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PROCEDURE typing; 

{ This is a self contained procedure to make the terminal keyboard behave 
as a "memory" typewriter. The contents of the input buffer are printed 
upon receipt of a "<RETURN>" code or upon exceeding an input length of 
96 characters. The display is used to show the possible special 
function keys as well as the current input line contents... 

} 

VAR 
ichar INTEGER ; 
itemp : INTEGER; 
line increment : INTEGER; 


PROCEDURE promptings; 

BEGIN {pranptings}; 
PAGE (OUTPUT) ; 
WRITELN ('Typing routine...'); 
WRITELN (' <returm print the current line input'); 
WRITELIN(' <back space> = delete one character'); 
WRITELN (' <ctrl> "I" skip to new page'); 
WRITELN (' <ctrb "J" delete line’); 
WRITELN (' <ctrl> "G" confirm line buffer'); 
WRITELN(' <esc> to leave typewriter'); 
WRITELN (''); 
WRITELN (hyphens) ; 
WRITELN (' ') 

END; 


BEGIN ; 
set_up printer; 
PAGE (OUTPUT) ; 
line count := 0; 
IF verti = 16 THEN 
line increment := 2 
ELSE 
line increment := 1; 
anychar := ' !; 
S := mt, 
promptings; 
UNITCLEAR (2) ; 
WHILE anychar <> CHR(27) DO 
BEGIN {other than escape <ESC>} 


console input; 


WRITE (anychar) ; 
ichar := ORD(anychar) ; 
IF ichar >= ORD(' ') THEN 
BEGIN {normal ASCII} 
string _nothing{1] := anychar; 
Ss := CONCAT(s,string_nothing); 
IF LENGTH(S) >= 96 THEN ichar 
END {normal ASCII}; 
IF ichar < ORD(' ') THEN 


= 0 {signal end of line} 


CASE ichar OF 
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0: {line overflow} 


BEGIN 
line count := line count + line increment; 
IF line count > 66 THEN line count := 1; 
println; 
string nothing[1] := anychar; 
Ss := string. nothing 

END; 


0: {line delete} 
BEGIN 


S ga tte 


WRITELN ("<<< line deleted >>>‘) 
END; 


7: {bell} 
BEGIN 
WRITELN (''); 
WRITELN (Ss) 
END; 


8 : {back space} 
BEGIN 
IF LENGTH(S) > 1 THEN 
BEGIN 
itemp := LENGTH(S) - 1; 
S := COPY(sS,1,itemp) 


9 : {forms feed} 


BEGIN 
line count := line count + line increment; 
IF line count > 66 THEN line count := 1; 
println; 
Ss s= oe 
promptings; 
WHILE line count < 66 DO 
BEGIN 
line count := line count + line increment; 
println 
END 
END; 


3 : {print the line} 
BEGIN 
line count := line count + 1; 
IF verti > 8 THEN Line count := line count + 1; 
IF line count > 66 THEN line _count s= 1; 
println; 


Ss es oe, 


promptings 
END 
END {CASE} 


END {other than escape <ESC>}; 
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Bae rds awa meet os ara ae OF aes a a Do op em aw om ee a ee a a ee ee Gs es EE Os 0 ee OO 0 os ee ee ee a eo ee 


PAGE (OUTPUT) 
END {typing}; 


PROCEDURE pagenunber ; 


BEGIN 
PAGE (OUT PUT) ; 
WRITELN (‘Enter starting page number from the following list'); 
WRITELN (' <CR> --> default start from 1'); 
WRITELN (' "y"  —> entry of a new starting value‘); 
WRITELN (' <ESC> --> continue from ' ,pagecount:4); 
console input; 
WRITELN (anychar) ; 


IF ORD(anychar) = 13 THEN 
pagecount := 0 {default to 1} 
ELSE 
BEGIN 
IF anychar = '!' THEN 
BEGIN 
WRITELN (''); 
WRITELN (' Enter new page number:'); 
READIN (pagecount) ; 
Ppagecount ;:= pagecount - 1 
END 


END 
END {pagenumber}; 


PROCEDURE proccheck; 
BEGIN 
we_ print _a program := NOT we_print_a program; 
IF we print_a progran THEN a 
c_we print := 'YES' 
ELSE 
c_we_print := 'NO' 
END; 


PROCEDURE print_return_ address; 


{Procedure to print return addresses on letter size envelopes} 
VAR 


done : BOOLEAN; 


PROCEDURE setup envelope; 
BEGIN {setup envelope}; 
WRITELN('Place envelope in printer, then press any character'); 
READ (KEYBOARD, anychar) ; 
END {setup envelope}; 


BEGIN {print return address} 
done := FALSE; 
REPEAT 
setup envelope; 
my address print; 
WRITELN ("More? <esc> to quit'); 


READ (KEYBOARD, anychar) ; 
IF ORD(anychar) = 27 THEN done:=TRUE 
UNTIL done 
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END {print_return_address}; 
PROCEDURE print_menu; 
This is the main function menu for the print utility program 


BEGIN 


PAGE (OUTPUT) ; 
WRITELN('Carl''s Printing Progran... 7/18/79"); 


WRITELN (' 
WRITELN (' 


3 
*)3 


WRITELN ('Pick an option from the following list...'); 


WRITELN (* 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (° 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (' 
WRITELN (° 


ae 


D —> printer spacing = ',pstring); 
# —> set starting page number = ',pagecount:4); 
N -—-> file name = ',filename) ; 


- 


C —> copyright = ',cstring); 


Q —> toggle PROCEDURE search option = ',c we print); 
W —> date = ',todays date); 


P —> print routine’); 

L —> print as personal letter'); 

B —> print as business letter’); 

T —> enter typewriter routine’); 

R —> prepare return addresses on envelopes'); 


*}2 


WRITELN ("Type <esc> to leave the program’) 


END {print_menu}; 


BEGIN {print progran main PROCEDURE} 
really initialize; 
WHILE alldone <> TRUE DO 


BEGIN 


print_menu; 

READ (KEYBOARD, anychar) ; 

IF anychar <> CHR(27) THEN 
CASE anychar OF 


alldone := 


END 


'p' sa" 
"c? Pegs > 
‘pt A p' 


sdiablo; 
:getcopyspec; 
zany file print; 
:proccheck; 
snanefile; 
:personal_letter; 
sbusi_ letter; 
styping; 

sprint _return_address; 
:get_the date; 
:pagenumber 


TRUE 


END. 
(*$D+*) 
(*SL+*) 
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BLANK 


An Automatic Metric 


Conversion Program 


Calculators and personal computers 
have already liberated us from trig- 
onometric and logarithmic tables. It is 
time they do the same with respect to 
metric conversion tables. | recently 
wrote the SUPERMETRIC program 
shown in listing 1 for just that purpose. 
(Listing 2 shows a sample run of the pro- 
gram.) 

Although my design goals seemed 
quite modest and_ straightforward, 
achieving them turned out to require an 
astonishing amount of number crunch- 
ing and devious programming, as the 
length of the listing testifies. My first re- 
quirement was that the program distin- 
guish rigorously between customary 
units, primary metric units, and secon- 
dary metric units. By “primary” metric 
units | mean the System International 
(SI) base units such as metre, kilogram, 
kelvin, and so on, as well as the derived 
units such as watt, newton, m/s, pascal, 
and volt. By “secondary” metric units | 
mean units like °C and km/h which are 
accepted but not part of SI, along with 
the formulas for derived units with 
special names, eg, kg m/s as the for- 
mulas for the newton. 

This design goal was met by storing 
the various units and their conversion 
factors in a table whose structure may 
most conveniently be understood by 
examining the ‘data statements” which 
generate it in the subroutine INITIAL- 
IZE. Each entry in the table contains 
three items: two units and a conversion 
factor. The units on the right are all 
primary units. In the top part of the 
table (above MAXCUST) the left-hand 
units are customary, while in the bottom 
section they are secondary metric units. 


David A Mundie 


The program automatically converts 
customary and secondary units to pri- 
mary units. Primary units may be con- 
verted to customary by using the “C” 
command, while the “S’” command con- 
verts them to secondary units. As it 
stands now, the program will only con- 
vert a given primary unit to the first cus- 
tomary unit it finds in the table. How- 
ever, it would be a simple matter to add 
a new command that would allow the 
user to specify the target unit, “gallon” 
instead of “fl. ounce,” for example. The 
table is quite easily expanded through 
the use of additional “data statements.” 

A second design goal was to have the 
program automatically add prefixes to 
metric units as needed, and to adjust in- 
puts with prefixes that are too large or 
too small. For example, | wanted 5700 kJ 
to be converted automatically to 5.7 MJ. 
To this end, the subroutine DEPREFIX re- 
moves prefixes from the units input by 
the user, so that the data is stored intern- 
ally in unprefixed primary units. The 
subroutine PREFIX then prints the cor- 
rectly prefixed measurement. The pre- 
fixes themselves are contained in the 
strings NORMP and SPECP. NORMP 
contains the normal set of prefixes, each 
1000 times larger than the next, as 
shown in table 1, whereas SPECP stores 
the special set of prefixes used for 
volumes and areas, as shown in table 2. 
Thus 15000 m is converted to 15 km, 
whereas 15000 m? is converted to 1.5 
hm?. 

A third design goal was to have the 
program deal with the problem of preci- 
sion in a reasonable manner. Nothing is 
more absurd than to convert 3 square 
yards to 2.5083821 m?, although anti- 
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Power Prefix Abbreviation 
1078 exa E 
10° peta P 
1012 tera T 
10° giga G 
10° mega M 
10? kilo k 
10 3 milli m 
10 ® micro pe 
10 ® nano n 
10 *? pico p 
10.15 femto f 
10 18 atto a 


Table 1: Prefixes used by SUPERMETRIC 
for measurements other than volumes 
and areas. 


Power Prefix Abbreviation 
103 kilo k 
10? hecto h 
10! deka da 
10 ' deci d 
10 ? centi Cc 
103 milli m 


Table 2: Prefixes used by SUPERMETRIC 
for volumes and areas. 


Correct SUPERMETRIC 
SI Form Approximation 
pe u 

da D 

, * (multiplication) 
Oo $ (degree) 

m? etc. m2 

ic @ (ohm) 


Table 3: Differences between SUPER- 
METRIC and correct System Inter- 
national (SI) symbols. 


metric journalists often feign to believe 
this is correct practice. My approach 
was to have the program give a con- 
verted measurement whose_ implied 
error is between 10% and 100% that of 
the input. This insures that the con- 
verted measurement will be at least as 
precise as the input, but, never more 
than one significant digit more precise. 
To achieve this goal, the subroutine 
VALUE reads the measurement which 
the user enters and calculates the num- 
ber of significant digits it contains (P). 
This number is then used to control the 
number of significant digits in the out- 
put. For example, the program auto- 
matically converts 3 square yards (im- 
plied error + 0.5 square yard or + 0.42 
m?) to 2.5 m? (implied error + 0.05 m/’). 
As a convenience to the user, the pro- 
gram will accept numbers with a trailing 
decimal point and treat all the digits to 
the left of the decimal point as signifi- 
cant. Thus, although “1000” is treated as 
having one significant digit, “1000.” is 
treated as having four. 

My final design goal was to adhere as 
closely as possible to standard SI nota- 
tion within the bounds of the ASCII char- 
acter set. The points where this goal was 
not met are shown in table 3. | regret all 
of these, but had no choice except in the 
case of the ‘‘da’” prefix. Since the other 
deviations were unavoidable, the extra 
coding needed to handle a 2-character 
prefix did not seem worthwhile. = 


The author wishes to thank Joe Ber- 
man and Steve Wellons, of the Uni- 
versity of Virginia’s Microprocessor 
Laboratory, for their assistance in the 


preparation of the listings for this arti- 
cle. The listings were done on equip- 
ment purchased under NASA contract 
#NAS1-14862. 


Listing 1: The automatic metric conversion program written in UCSD Pascal. 


PROGRAM supermetrics; 


(*S$S+*) 
CONST 
normp='afpnum KMGTPE'; {normal prefixes} 
specp='mcd Dhk'; {special prefixes for areas and volumes} 
maxentries = 160; 
TYPE 
entry = RECORD 
left, right: STRING; 
factor: REAL; 
END; 
index = @..maxentries; 
VAR 
table sarray{index] of entry; 
curtop :index; {current top of table} 
current :index; {points to current entry} 
maxcust : index; {top of customary section of table} 
top :index; {permanent top of table} 


lettside :BOOLEAN; 
finished :BOOLEAN; 
oldm,oldf :REAL; 


line : STRING; {one line of user input} 
u : STRING; {the unit} 

m : REAL; {the measurement} 

p : INTEGER; {the precision} 


{keaKKKKKKK Mathematical UCLLIti|e|es KERR HKAKAKKHKKKKKKEKEEKEKEREE } 


FUNCTION floor(r:REAL): INTEGER; 
BEGIN floors:=trunc(r-ord((r<8) and(r<>trunc(r)))) 
END; 


FUNCTION nl(r:REAL):REAL; {Avoids bug in ln function} 
BEGIN IF r<l THEN nl:=-ln(r) ELSE nl:=ln(r) 
END; 


FUNCTION power(i,j: INTEGER) : REAL; 
BEGIN power:=exp(nl (i) *j) 
END; 


FUNCTION log(r:REAL) : REAL; 
BEGIN log:=nl(abs(r))/n1(16) 
END; 


FUNCTION lop(r:REAL; p: INTEGER) : REAL; 
{ Reduce a real to p significant digits } 
VAR f£:REAL; 
BEGIN £:=power(10,floor(log(r))-p+l); 
IF r/f<maxint THEN lop:=f*round(r/f) ELSE lop:=r 
END; 


FUNCTION norm(r:REAL) : REAL; 


BEGIN norm:=r/power(10,floor(log(r))) 
END; 


{xxxkkkKEEKK Convert a string to a real number *****kkkkx} 


FUNCTION value(VAR s:STRING; VAR p: INTEGER) : REAL; 


CONST 
limit=1.67772E6; { (2**23)/5) } 
Z =48; { ord(@) } 
VAR 
a,y : REAL; 
e,1,j),p2 : INTEGER; 
neg,negexp,gtl:BOOLEAN; 
digits :SET OF CHAR; 
BEGIN 


is:=l;p:=0;p2:=0; gtl:=false; digits:=['6',.'9']; 
s:=concat(s,'%$'); {safety character} 
2:=0; e:=0; neg:=s[iJ='-'; WHILE s[iJ=' ' DO is:=i+tl; 
IF (s[{iJ='+')or neg THEN i:=itl; 
WHILE s[i] in digits DO 
BEGIN 
IF s[iJ='O' THEN p2:=p2+l 
ELSE BEGIN p:=pt+p2+1l; p2:=0; gtl:=true END; 
IF a<limit THEN a:=10*atord(s[i])-z ELSE e:=etl; i:=i+l 
END; 
IF s{iJ='.' THEN 
BEGIN p:=p+p2; i:=i+1l; 
IF not(s[i] in digits) THEN 
BEGIN insert('@',S,1i); is:=itl 
END 
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WHILE s[i]='@' DO 
BEGIN p2:=p2+l; IF a<limit THEN 
BEGIN a:=l10*atord(s[i])-z; e:=e-l 
END; i:=i+l 
END; 
IF gtl THEN p:=p+p2; 
WHILE s[i] in digits DO 
BEGIN p:=ptl; 
IF a<limit THEN 
BEGIN a:=]10*atord(s[i])-z; e:=e-1 
END; i:=itl 


END; 
IF s{i] in ['e','E'] THEN 
BEGIN is=itl; j:=0; negexp:=(s[i]='-'); 


IF(s[iJ='+') or negexp THEN i:=i+l; 
WHILE s[{i] in digits DO 
BEGIN IF j<limit THEN 3:=10*j+ord(s[i])-—-z; i:=i+l 
END; 
IF negexp THEN e:=e-j ELSE e:=etj 
END; 
y:=a; IF neg THEN y:=-y; 
IF e<@ THEN value:=y/power(10,-e) 
ELSE IF e<>@ THEN value:=y*power(19,e) 
ELSE value:=y; 
WHILE s[iJ=' ' DO i:=itl; s:=copy(s,i,length(s)-i) ; 
END; {value} 


{*xxekkkeKK Write a real in appropriate format and return a blank **} 


FUNCTION f£(r:REAL): CHAR; 


CONST 
width = 22; 
VAR 
intpart,decimals,floating: INTEGER; 
BEGIN 


intpart:=floor(log(r)); 
decimals:=p-intpart-l; 
r:=lop(r,p); 
IF r>10000 or r<@.9001 THEN {floating point} 
write(rswidth) 
ELSE 
IF decimals<=0 THEN {integer} 
write(round(r): width) 
ELSE {fixed point} 
write(r:width:decimals) ; 
e t 


{**eekkkEKK Special handling for temperatures **KKRKKAKKKKKERE } 


PROCEDURE temperature(VAR m:REAL; b:BOOLEAN; fact: INTEGER) ; 
VAR 
d: INTEGER; 
BEGIN 
d:=p-floor(log(m))-1; 
m:=m+fact*273.15+fact*186 .52*ord(b); 
p:=d+floor(log(m)) +l 
END; 


{xekkekKKKK Pind u in the table Of UNitS KHKKKKKKAKKKKKKKEKKEKKE } 


FUNCTION inlist:BOOLEAN; 
VAR t:STRING; 


FUNCTION match(s:string) : BOOLEAN; 
BEGIN match:=(u=s) or(t=s) 
END; 


BEGIN 
lettside:=true; current:=1; 
ts:=u; IF length(t)>1l THEN delete(t,1,1); 
WHILE (not(match(table[current] .left))) and(current<=curtop) DO 
current:=current+l];3 
IF current<=curtop THEN 
intist:=true 
ELSE 
BEGIN current:=curtop; leftside:=false; 
WHILE (not(match(table[current].right))) and(current>&) DO 
current:=current-1; 
inList:=current>@ 
END; 
END; 


{xkkRKKKKKE AGW Correct Metric PLELix KHKKKHKKKKKKKKEKKKKKKEE } 
PROCEDURE prefix(m: REAL; u:STRING) ; 

PROCEDURE pref(p:STRING; fac,term: INTEGER) ; 

VAR 
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i,range: INTEGER; 
BEGIN 
range:=floor(log(m)/fac) ; 
IF abs(range)>term THEN 
ranges=term* (1-2*ord(range<-term) ); 
m:=m/power(198,fac*range) ; 
IF range<>@ THEN 
BEGIN 
p:=copy(p,range+term+l1,1); 
us=concat(p,u) ; 
writeln(f£(m) ,u) 
END 
END; 


BEGIN {prefix} 
IF pos(!'2',u) =2 THEN pref(specp,2,3) 
ELSE IF pos(‘'3',u)=2 THEN pref (specp,3,3) 
ELSE pref (normp,3,6) 

END; 


{xkkkKKKKKK Convert to primary units KHKEKKKKKEKEKKEKKEKKEKEKKKE } 


PROCEDURE primary; 
VAR 
Oldp: INTEGER; 
BEGIN 
WITH table[current] DO 
BEGIN 
IF u='mpg' THEN m:=l1/n; 
IF length(u)=2 THEN 
IF(u({lJ='"$')and(u[{2] in ['F','C']) THEN 
temperature(m,u[2])='F',1)3 
oldm:=n; 
oldf:=factor; 
oldp:=p; 
:=ptord(norm(m) *norm( factor) >=10) ; 
us=right; 
ms:=m*factor; 
writeln(£(m) ,u); 
prefix(m,u); 
:=oldp; 
leftside:=false 
END; 
END; 


{xxkekkkkkKk Check metric prefix and adjust if necessary *****kkkkkKK} 


PROCEDURE normalize(VAR m:REAL; VAR u:STRING) ; 


VAR 
S:STRING; 


PROCEDURE depref(p:STRING; fac,term: INTEGER) ; 
VAR 
range,k :INTEGER; 
needspref :BOOLEAN; 
BEGIN 
needspref:=floor(log(m)/fac) <>9; 
IF pos(s,u)=2 THEN 
BEGIN 
_range:=term+l; 
FOR k:=1 TO length(p) DO 
IF u[l]=p[k] THEN 
range:=k-term-1; 
IF rangetterm+l] in [l1..term*2+l] THEN 
BEGIN 
m:=m*power (10,fac*range) ; 
delete(u,1,1); 
writeln(f£(m) ,u) 
END 
ELSE 
writeln('illegal prefix ignored') 
END; 
IF needspref 
THEN 
prefix(m,u) 
END; 


BEGIN {normalize} 
IF leftside THEN 
ss=table([current] .left 
ELSE s:=table[current] .right; 
IF pos('2',sS)=2 THEN 
depref (specp,2,3) 
ELSE 
IF pos('3',S)=2 THEN 
depref (specp,3,3) 
ELSE depref(normp,3,6) 
END; 


{**keekekKE Convert to customary or secondary units **kkkeKKKK] 
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PROCEDURE custandsec(m:REAL) ; 
VAR 
oldp: INTEGER; 
BEGIN 
WITH table[current] DO 
BEGIN 
oldp:=p; 
p:=ptord(norm(oldm) *norm(oldf/factor) >=19) ; 
m:=m/factor; 
IF (u='m3/m') and (current<=maxcust) THEN m:=1/m; 
IF u='K' THEN temperature(m,left[2]='F',-1); 
writeln(£(m) ,left) ; 
IF current>maxcust THEN prefix(m,left) ; 


END; 


{*RKKKKEKKK Set up the table *eKKKKKRKRKKHKKKKKKKEKKEEKEEREREKE } 


PROCEDURE initialize; 
PROCEDURE data(l,r:STRING; f:REAL) ; 
BEGIN 
curtop:=curtoptl; 
WITH table[curtop] DO 
BEGIN 
left:=l1; 
right:=r; 
factor:=f; 
END; 
END; 


BEGIN {initialize} 
curtop:=0; 
Gata('SF','K',5.5556E-1) ; data('mpg','m3/m',2.352E-6); 
data('horsepower','W',7.355E2) 3 
data('inch of mercury','Pa',3.37685E3); 
data('mph','m/s',4.47@4E-1); data('yard','m',9.144E-1) ; 
data('yard2','m2',8.361274E-1) ; 
data('acre','m2',4047); data('barrel','m3',8.159); 
data('kCal','J',4.1868E3); data('BTU','J',1055); 
data('Curie','Bq',3.7E16); 
maxcust:=curtop; 
data('L','m3',1.8E-3); data('N/m2','Pa',1l); 
data('L/106km','m3/m',1.GE-8); data('m/h','m/s',2.777E-4); 
data ( 'kW-h' v tg' 13-6E6); 
data('Sc','K',1); 
data('N*m','J',1);3 
top:=curtop 

END; 


{ERAKKKKKEKR Main SUDPLOGLAaMS FHKE KK KKK RRR ERE KK KERR KEE REREKKKE } 


PROCEDURE commands; 
VAR 
1: INTEGER; 
BEGIN 
CASE line[{1l] OF 
'f's: £inisned:=true; 
's's: IF inlist and (current>maxcust) and not(leftside) THEN 
custandsec(m) ; 
‘c's: BEGIN 
curtop:=maxcust; 
IF inlist THEN 
custandsec(m); 
curtop:=top 
END; 
‘l': FOR i:=1 TO curtop DO 
WITH table[i] DO 
writeln(left,' ‘,right,' ',factor) 
END; 
writeln 
END; 


PROCEDURE process; 
BEGIN 
m:=value(line,p); u:s=line; oldf:=1; 
IF not inlist THEN 
writeln('unit not available') 
ELSE 
BEGIN 
IF (current>maxcust) or (not leftside) THEN 
normalize(m,wu) ; 
IF leftside THEN 
primary 
END; 
writeln 
END; 


BEGIN {Supermetrics} 
finisned:=false; 


initialize; 


writeln('SUPERMETRIC CONVERSION PROGRAM") ; 


writeln; 
REPEAT 


write('Measure and unit >>'); 


readln(line); 


IF line[1] in ['0'..'9','+','-'] 


THEN 
process 
ELSE 
commands 
UNTIL finished 
END. 


Listing 2: A sample run of the program 
shown in listing 1. 


Measure and unit>>57900 kJ 
5.70000E6 J 
5 e 7 MJ 


Measure and unit>>secondary 
5.70000E6 N*m 
5.7 MN*m 


Measure and unit>>15000 m 
15 km 


Measure and unit>>15000 m2 
1.5 hm2 


Measure and unit>>customary 
3.71 acre 


Measure and unit>>3 yard2 
2.5 m2 


Measure and unit>>3.9000 yard2 
2.58838 m2 


Measure and unit>>5 barrel 
8.8 m3 
888 dm3 


Measure and unit>>secondary 
800 L 


Measure and unit>>38 mpg 
6.20000E-8 m3/m 
62 mm3/m 


Measure and unit>>secondary 
6.2 L/108 km 


Measure and unit>>5@ horsepower 
3.78090E3 W 
37 kW 


Measure and unit>>308 BTU 
3.90000E5 J 
300 kJ 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


Measure 


and 


and 


and 


and 


and 


and 


and 


and 


and 


and 


and 


and 


and 


unit>>1206 
5.8B8000E6 J 


unit>>29.5 
9.96000E4 Pa 


unit>>secondary 
3.980086E5 N*m 
300 KN*m 


unit>>55 mph 


24.6 n/s 


unit>>secondary 
8.90000E4 m/h 
89 km/h 


unit>>37 kW-h 
1.33000E8 J 


133 MJ 


5.8 MJ 


99.6 kPa 


unit>>secondary 
9.96000E4 N/m2 
99.6 kN/m2 


unit>>68 SF 
293.2 K 


unit>>secondary 


28.08 $C 


unit>>12 SC 


285 K 


unit>>customary 


54 $F 


unit>>@.005 Curie 
1.85000E8 Bq 


185 MBq 


unit>>finished 


kCal 


inch of mercury 
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A Computer-Assisted 


Each spring as | set out to lose my 
winter fat, | reach for the program 
shown in listing 1 to decide on a sensible 
combination of diet and exercise. (A 
sample run of this program is shown in 
listing 2.) The program estimates how 
long a given weight loss will take, based 
on the person’s activity level and food 
energy intake. Knowing that the unplea- 
sant process will not last forever is a 
great encouragement. 

The program is based on an article by 
Vincent Antonetti in the American Jour- 
nal of Clinical Nutrition. In this article, 
Antonetti shows that the time to go from 
an original weight Wo to a final weight 
Wf is given by 


mG dW 


ved (1 - a)! —(K.W +K,W") 


Wo 


where y is the energy value of one unit 
of weight gained or lost, a is the specific 
dynamic action of food, | is the daily 
food energy intake, n is a constant for 
estimating the surface area of the body, 
and Ka and Kb are activity and basal 
coefficients for the given person, 
expressed in terms of energy per unit 
weight per day. This formula is easily 
solved using the numerical technique 
known as Simpson’s rule. 

It is ironic that Antonetti, writing in 
1973, felt his formula itself was virtually 
useless, since people did not have com- 
puters in their homes to perform the 
necessary computations. Nothing 
speaks more eloquently of how fast the 
revolution in personal computers has 
taken place. 


Dieting Program 


David A Mundie 


To avoid the use of a computer, An- 
tonetti published a massive collection 
of tables giving selected values of the 
above formula for various combinations 


Listing 1: The computer-assisted dieting program written in UCSD Pascal. 


PROGRAM diet; 


CONST 
gamma=3 2000; { 1 kg of body weight = 32000 kJ } 
p=10; { number of iterations } 
alpha=9.1; { specific dynamic action of food } 
n=0.425; { constant for estimating surface area of body } 
male= 13 

VAR 
theta, { days for given weight change } 
WO, { original weight } 
wf, { final weight } 
intake, { food intake, kJ/d } 
kb, { basal coefficient, kJ/(kg*d) } 
ka, { activity coefficient, kJ/(kg*d) } 
b, { basal metabolic rate, kJ/(m2*h) } 
height, { in metres } 


sex: INTEGER; 
answer :STRING; 


FUNCTION find(s:STRING) : REAL; 
VAR r:REAL; 
BEGIN 
write(s,'>>'); readln(r); find:=r 
END; 


FUNCTION sum: REAL; 
VAR 

S:REAL; 

j: INTEGER; 


FUNCTION £(3: INTEGER) : REAL; 


FUNCTION w(j: INTEGER) : REAL; 
BEGIN 

ws=wo~(j/p) * (wo-w£) 
END; 


BEGIN {f£} 
f:=1/((l-alpha) *intake-(ka*w(j) tkb*exp(n*1ln(w(j))))) 
END; 


BEGIN {sum} 
s:=£(8)+£(p); 
FOR j:=l1 TO p-1 DO 
IF odd(j) 
THEN 
S:=st+4*f(j) 
ELSE 
2=St2*£(j);3 
sum:=s 
END; 
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Listing 1, continued: 


BLGIN {diet} 
writeln; 
writeln('Welcome to the diet!'); 
age:={Lind('Age'); 
sex:=round(find('Sex (Nale=1)')); 
height:=find('Height in metres'); 
IF sex=male 
THEN 
b:=173.8-9.5195*age 
ELSE 
b:=156 .36-0.3636*age; 
kb:=4.8*b*exp(@.725*1n(height) ); 
REPEAT 
writeln; 
writeln('Sample Activity Coefficients: '); 
writeln('Sedentary 34, light 48, moderate 53, vigorous 74, severe 113'); 
writeln; 
kas=find('Activity coefficient"); 
wo:=find('Initial weight, kg'); 
wf:=find('Final weight, kg"); 
intake:=find('Daily food intake, kJ'); 
theta: =(gamma* (wf-wo) /(3*p) ) *sum; 
writeln; 
writeln('Time for this weight change is ',round(theta),' days.'); 
write('Another?'); 
readin (answer) 
UNTIL not(answer[1l] in ['y','yY')) 
END. 


Listing 2: A sample run of the program shown in listing 1. 


Welcome to the diet! 
Age>>32 

Sex (lale=1)>>1 

Height in metres>>]1.75 


Sample Activity Coefficients: 
Sedentary 34, light 49, moderate 53, vigorous 74, severe 113 


Activity coefficient>>74 
Initial weight, kg>>77 
Final weight, kg>>790 

Daily food inteke, kJ>>S060 


Gime for this weight change is 28 days, 
Another ?y 


Sample Activity Coefficients: 
Sedentary 34, light 46, moderate 53, vigorous 74, severe 113 


Activity coecfficient>>53 
Initial weight, kg>>77 
Final weight, kg>>70 

Daily food intake, kJ>>5606 


Time for this weight change is 35 aavs. 
Another?n 


Description Oe ied 
Inactive: very little standing or walking. 34 
Seated most of day: four hours of standing and walking. 40 
Stands as often as is seated. 53 
Standing and walking most of the day. 74 
Very hard physical work. 113 


Table 1. Typical values of the Physical Activity Coefficient. 
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of the variables, but my program gives 
much more accurate answers than any 
table can. | have converted all 
measurements to System International 
(S!) metric units. In particular, food 
energy is not expressed in kilocalories, 
but in joules, the only unit of energy in 
SI. For purposes of conversion and com- 
parison, one ‘‘nutritional’’ calorie (ie 
1000 calories) equals about 4.186 kilo- 
joules. 

Using the program is quite straightfor- 
ward, except that the user is required to 
enter his activity coefficient. This may 
be estimated from the figures in table 1. 
The effect of additional exercise may be 
taken into account using any of the 
many available tables which give the 
food energy equivalents for given exer- 
cises. For example, if | weigh 60 kg and 
do 240 kj (57 kilocalories) of running per 
day, | will raise my activity coefficient 
by 4.s 


The author wishes to thank Steve 
Wellons and Joe Berman of the 
University of Virginia’s 
Microprocessor Laboratory for their 


help in making the listings of this pro- 
gram, which were done on equipment 
purchased under NASA_ contract 
#NAS1-14862. 
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Appendix A: 


Pascal Run Time Routines (in 8080 

Assembly Language) and P-Code to 
8080 Assembly Language Translator 
(in North Star BASIC) 


BLANK 


Listing 1: Pascal Run Time Routines (in 8080 


Assembly Language) 


The run time routines perform the mathematical operations needed by the translated code. 
They are a collection of subroutines written in assembly language that can be called by a pro- 
gram to perfrom various arithmetic and logical operations. The operations implemented 
include: a stack, 16 bit addition and subtraction, multiplication and division. The relational 
operations test for: less than, less than or equal, greater than, greater than or equal conditions. 


A 16 bit shift routine is also included, The input and output routines are also defined. 


SYMBOL TABLE 


ADD16:1C02 BASE 3:1Al5 BB : 1DF2 BS1 :1Al16 CAL :1lAAE 
CAL1 :1AA3 CALA : LADE D2 :1C8F D3 :1C96 D4 :1CA5 
D4A 3:1CAA DIV16:1C77 DMl :1C68 DVCK :1C5C EP1l :1A55 
EPI1A :1A56 EP2 :1lA7D EP3 :1AB3 EQUI 3:1D07 FQUAL:1CD5 
ER1L :1B54 ER2 :1B3D EXIT :2028 FALSE: 1D02 GETC :lAE2 
GETN :1Bl1B HEX :1DCD HX :1DDA IHX s:1DA6 INHEX: 1D9E 
INP :2010 INT :3:1A27 L9 :1DE1 LESS :1CFO LIT :1A20 
LOD :1A52 LOD1 :1A49 LODA :lACB LODX :1lA5F LODX1:1A60 
LP 21031 LZ :1B06 MER] :1B5D MER2 :1B68 MUL8 :1C2F 
NE :1D12 NEGB :1BE0 NEGH :1BD3 NUM :l1B1lE OUTP :200D 
OVFL :1BEA POO :1BA6 POl :1C23 PO2 :1CO0F P03 3:1C15 
P04 :1C3C P05 :1C51 P06 :1CBE PO7 :1CC7 P08 :1CD3 
P09 :1CE9 P10 :1D16 Pll :1CED P12 :1D1D P13 :1D24 
P14 :1D2A P15 :1D35 P16 :1D40 P17 :1D49 P18 :1D5A 
P19 :1D72 P20 :1D7C P21 :1D86 PNT :1BF5 POP :1BBC 
POP1 :1BCC PRINT: 1BF3 PUSH :1BC6 SIGN :1B78 SKIP 3:1C37 
SL1 :1D52 SM1l :1A38 SM2 :1A3E SR1l 3:1D64 STK2 :l1NF4 
STKOV: LA2E STO :lA7A STOl :1A71l STOA :lAD6 STOX :1A86 
STOX1:1A87 SU2 :3:1C03 SUB1 :1BFF SUB16:1C18 SYSO :1lAE9 
SYS1 :lAF2 SYS2 :lAFS SYS3 :1B79 SYS4 :1D91 SYS5 :1DC4 
SYS8 :1DE7 TRUE :1CE6 WR :1B9C Y2 s LAFA Y2R :1B43 
Y3 :1B8C Yy4 :1D92 Y4E :1DB9 Y8 :1DE8 YE1l :18B57 

; PASCAL RUN-TIME ROUTINES 

; HY.1 1/30/78 RY UH. YUEN 

; VERSION 2.0 2/28/78 

; VERSION 2.1 4/7/78 

INP EQU #2010 s CHAR INPUT ROUTINF IN DOS 

OUTP FEQU #200D s CHAR OUTPUT ROUTINE 

EXIT FQU #2028 : RETURN TO DOS 

s ON ENTRY: HL - STACK START ADDR 

$ DE - COMP. OF END ADDR 

ORG #1A00 

1A00 23 INX H ; INITIALIZATION 
JAOl 22 F2 1D SHLD BB s BASE 
1A04 2B DCX H 
1A05 2B DCX H 
1A06 EB XCHG s DF USED AS STACK PTR, 
l1AO7 22 F4 1D SHLD STK2 
JAOA 21 05 00 LXI H,#0005 


IN DOS 
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28 20 


16 1A 


F4 1D 


38 
F3 


28 


F2 
15 
55 
F2 


F2 1D 


15 1A 


56 


F2 
15 
7D 
F2 


LIT 


INT 


STKOV 


SM1 
SM2 


3 
LOD1 
LOD 


EP1 
EPI1A 


LODX 
LODX1 


@ 
ge50ae 


STO] 


STO 
EP2 


D s (T+3) 
s FXIT ADDR 


; LOAD LITERAL CONSTANT 


D ; INCREMENT STACK PTR 


H ; POP RETURN ADDR 
EXIT 

' STACK! 

' OVERFLOW', 0D, 0A 


+ LOAD VARIABLE 


= 


tw 


; LOAD VAR INDFXED 


wy GOYyroOYP ry 
= 


» 
(9 
ep | 


- 
4 


yD NEA wD 
= 
= 


; ADD INDEX 
EPIA 


BB : STORE VARIABLE 


1A83 
1A84 
1A85 
1A86 
1A87 
1AS8 
17.69 
LALA 
1A8B 
LA8C 
LA8D 
1A8E 
1A8F 
1A90 
1A91 
1A92 
1A93 
1A94 
1A95 
1A96 
1A99 
1A9A 
1A9D 
LAQE 
1A9SF 
1AAO 
1AA1 
1AA2 


1AA3 
1AA6 
1AA7 
1AA8 
1AAB 
1AAE 
1AB1 
1AB2 
1AB3 
1lAB4 
LABS 
1AB6 
1AB7 
1AB8 
1AB9 
1ABC 
1ABD 
lLABE 
1ABF 
1ACO 
1AC1 
1AC2 
1AC3 
1AC4 
1AC5 
1AC6 
1AC7 
1AC8 
1AC9 
1ACA 


1ACB 
LACC 
LACD 
1ACE 
1ACF 
1AD1 
1AD2 
1AD3 
1AD4 
1AD5 


1AD6 


F2 
15 


F2 


15 
B3 
F2 


F2 


00 


1D 


1A 


1D 


1D 


STOX 
STOX1 


Geee 


CAL1 


CAL 


FP3 


feee 


LODA 


> 


= 
” 


= 


mOoOmmAoOROG -> OS 
< 


ct 


WwW. « 


= 


a Se Boe 
wo A} ”n 
ty 


| 


We % 
wy Oo 


1) 


SERMOWDEZRSM OC 
b ) 
Qo ww 


bp) 


=auomaucrdwnwnwnwe 
= 
Q w 


~e 


™=e 


3 


STORE VAR INDFPXFD 


SAVE VALUE TO BE STORED 


INDEX IS NOW IN HL 


RETRIEVE VALUE 


SAVE BB IN B,C 


PROC OR FUNC CALL 


BASK(L) IN D,E 


BB=T+1 
RESTORE T 


S (T+2) =BB 
GET RETURN ADDR 


RET ADDR +3 


LOAD VAR WITH ABS ADDR 


STORE VAR WITH ABS ADDR 
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cc 


Cc 


10 


OD 


Fi2 


OD 


3F 
OD 


78 


E2 
20 
06 
2B 
1B 
2D 
LE 
78 
E2 
30 
43 
0A 
43 


3D 


1B 
6B 
57 


54 
78 


1B 


1B 


20 
20 


1A 


20 


20 


1B 


1A 
1B 
1B 
1B 
1B 
1A 
1B 


1B 


1B 


1B 
1B 
1B 


1B 
1B 


e 
geo5$0e 


CALA 


e@ 
g@ece5ne 


GETC 


e 
geece 


SYSO 


LZ 


GETN 
NUM 


ER2 


Y2R 


mx 6} 


6 


o 


o 


e 


6 


e 


-~e te 


; 


CALL ABS ADDR SUBROUTINE 


GET A CHAR 
ECHO THE CHAR 
[ INCHR } 


[ OUTCHR } 


[ INNUM ] 


SET INIT FLAG 


SKIP LEADING BLANKS 


RESET FLAG 


2*HL 


2*HL+8*HL 


CHECK FLAG 


D3 


C6 
5D 
F3 
FA 


Cc 


8C 
2D 
OD 
D3 
OA 
77 
30 


8C 


OD 


9C 


F2 


F2 


FA 


1B 


1B 


1B 


20 
1B 
00 
1c 


1B 


20 


1B 


1D 


1D 


FF 


ER1 
YE1 


MERI 
MER2 
SIGN 


e 
geece 


SYS3 


Y3 


WR 


e 
geee 


P00 


e 
geoe 


POP 


e 
geoee 


PUSH 


e 
a 


NEGATE THE NUM IF SIGN IS '=-' 


' INPUT ERROR',0D,0A 
' SIZE ERROR',OD,0A 


00 


—=e re me ~e 


@—e =e 


=e we 


=e =e ~7e 


=e ~Oe@ %O 


~e 


~™~e 


{ OUTNUM ) 
SAVE NEW STK PTR 


PUT -1 & FLAG 
TEST SIGN 


NEGATE THE NUMBER 
DIVIDE BY 10 


CONVERT TO ASCII 
SAVF ON STACK (REVERSE ORDER) 


OUTPUT EACH DIGIT 


{[ PROC RETURN] 


BB=S (T+2) 


P=S(T+3) IN DE 


2*S COMP OF -6 
=BB-1 


S(T-1) -> H,L 


H,L -> S(T) 
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1BCB 


1BCC 
1BCD 
1BCE 
1BcF 
1BDO 
1BD1 
1BD2 


1BD3 
1BD4 
1BD5 
1BD6 
1BD7 
1BD8 
1BD9 
1BDB 
1BDC 
1BDD 


1BEO 
1BE1 
1BE2 
1BE3 
1BE4 
1BE5 
LBE6 
1BE8 
1BE9 
1BEA 
1BED 
IBFO 


1BF3 
1BF5 
1BF6 
1BF7 
IBFA 
IBFB 
1BFE 


IBFF 
1C02 
1003 
1004 
1c05 
1C06 
1C07 
1C08 
1c09 
1coc 


1COF 
1012 


1c15 
1¢18 
1019 
1C1B 
1c1c 
1C1F 
1€20 


1C23 
1C24 
1025 
1€26 
1€27 
1C28 
1C29 
1C2A 
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80 


EA 


C6 
FA 


BC 
02 


BC 
80 
FF 


03 


1B 


1A 
1B 
1B 


20 


1B 


1B 


1B 
1B 


1B 
1c 


1B 


1B 


1c 


e 
@oec50oe 


POP1 


@ 
ge0ee 


NEGH 


e 
gece 


NEGB 


OVFL 


; 
PRINT 
PNT 


@ 
geee 


SUB1 


ADD16 ! 


SU2 


e 
geee 


P02 


e 
gece 


P03 
SUB16 


° 
gece 


POl 


> 


» 


FPomrmmenr py, 
Oe 


eo) 
< 
4) 
t 


yy 


» 


AMWAWANY 
os 


2 


QATAR SsS 
= 
» Dp 


~e 


e 
e 


=e 


me tO 


~e 


S(T) 


-> H,L 


NEGATE HL 


NEGATE B,C 


PRINT MFSSAGE 


[16 BIT SIGNED ADD} 


XOR SIGN OF CARRY 
SIGN OF RESULT 


( ADD ] 


(16 BIT SIGNED SUBTRACT ] 


[ NEGATE ] 


1C2B 
1C2C 
1C2D 
1C2E 


1C2F 
1c31 
1C€32 
1€33 
1036 
1037 
1038 
1C3B 


1C3C 
1C3F 
1040 
1c41 
1Cc42 
1045 
1C46 
1049 
1C4A 
1C4D 
1C4E 


1c51 
1c54 
1C55 
1C58 
1C59 


1C5C 
1C5F 
1C62 
1c65 
1C66 
1C67 
1C68 
1C77 
1C78 
1079 
1C7C 
1C7D 
LC7E 
1C7F 
1C82 
1C83 
1c84 
1c85 
1C88 
1c89 
1Cc8C 
1C8E 
LC8F 
1090 
icol 
1092 
1c95 
1096 
1097 
1098 
1C9B 
1c9C 
1C9D 
1C9E 
1C9F 
1CA2 
1CA5 
1CA6 
1CA7 


08 


37 


31 


BC 


00 
2F 
2F 
C6 
BC 
77 
C6 
68 


F3 
00 


5C 


E0 


D3 


00 
LO 


96 


A5 


8E 


1c 


ic 


1B 


00 
1c 
1c 
1B 
1B 
1c 
1B 
1c 


1B 
00 


1c 


1B 


1B 


00 


1c 


ic 


ic 
1c 


1c 


e 
@ec5$o5e 


DVCK 


DM1 


DIV16 


D2 


D3 


D4 


A,H 
E,L 


H, #0000 


A 
MUL8 
A,Ff 
MUL8 
D 
PUSH 


POP 
D 


DIV16 


D 
PUSH 


H,DM1 
PRINT 
H, #0000 


D,H 
E,L 


; 


; 


3 


8 


8=-BIT MULTIPLY 


[ MULTIPLY] 


HIGH BYTE 


LOW BYTE 


{ DIVIDE ] 


' NIVIDE CHECK',0D,0A 


A,B 
Cc 
DVCK 
A 

B 

SW 
NEGR 
A 

H 

SW 
NEGH 


H, #0000 


A,10 
H 


H 


D3 


SAVE SIGN OF DIVISOR 


SAVE SIGN OF DIVIDEND 


: DIVIDEND IN DE 


SHIFT HL 


SHIFT DE 


ADD CARRY FROM DE 
SAVE HL 


PUT 1 IN LOW ORDER BIT OF DE 
THROW AWAY OLD HL 


GET OLD HL 


1CAA 
1CAB 
1CAC 
1CAD 
1CAE 
1CBl 
1CB2 
1CB3 
1CB4 
1CB5 
1CB6 
1CB7 
1CB8 
1CB9 
1CBA 
1CBB 
1CBC 
1CBD 


1CBE 
1CBF 
1ccl 
1cc2 
1CC3 
1cc4 
1ccs 
1CC6 


1CC7 
1CCA 
1CCB 
1CCE 
1CCF 
1CDO 


1CD3 


1CD5 
1CD6 
1CD9 
LCDA 
LCDB 
LCpDC 
1CDD 
LCDE 
1CE1l 
1CE2 
LCE3 
1CE6 
1CE7 
1CE8 


1CE9 
1CEA 


LCED 
1CEF 
1CFO 
1CF1 
LCF 4 
LCF5 
LCF6 
1CF7 
1CF8 
1CF9 
LCFC 
LCFD 
LCFE 
1CFF 
1D02 
1D03 
1D05 
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D3 


01 


BC 
77 


Cé 
01 


BC 


02 


02 


D5 
00 


BC 


07 


E6 


> Ol 


1B 


1B 


1c 


1B 


1B 


1D 


1D 


1c 


1B 


1D 


ic 


D4A 


Ze 


FALSE 


wn 
= 


NEGH 


ty 
* 
Oo 


» 


UMNOUHM Yr WY 


j~ 


vUUrUOU 


=e ~O *O 


~™-e 


~e 


~-e 


™=e 


; 


=e *%e %O 


~e me 


™~e 


SWITCH QUOT. & REM. 
SIGN OF DIVIDEND 
" DIVISOR 


REMAINDER=0 ? 


DIVIDEND + ? 


NEGATE THE REMAINDER 


TEST FOR ODD 


SET HI BYTE TO 0 


{ MOD J 


PUT REMAINDER IN HL 


TEST FOR = 


SAVF. FLAG 


PUT 0 IN HI BYTE 


TEST FOR <> 


TEST FOR >= 
(OPPOSITE OF P10) 
SAVE FLAG 


PUT 0 IN HI BYTE 


GET CARRY IN MSB 


COMPLEMANT FLAG 


1D06 
1D07 
1D08 
1D09 
1pOoCc 
LDOD 
1DOE 
1D11 
1D12 
1D14 
1D15 


1D16 
1D18 
1D1A 


1D1D 
1D1F 
1D21 


1D24 
1D26 
1D27 


1D2A 
1D2D 
1D2E 
1D2F 
1D30 
1D31 
1D32 
1D33 
1D34 


1D35 
1D38 
1D39 
1D3A 
1D3B 
1D3C 
1D3D 
1D3F 
1D3F 


1D40 
1D41 
1D42 
1D43 
1D44 
1p45 
1D46 
1D47 
1D48 


1D49 
1D4C 
1D4D 
1D4E 
1D4F 
1D52 
1D53 
1D54 
1D57 


LDS5A 
1D5D 
ID5E 
1D5F 
1D60 
1D63 
1D64 
1D65 


E6 


12 
01 


01 
00 
FO 
00 
ol 
FO 
O01 
FO 


BC 


BC 


BC 


64 
52 
C6 


BC 


52 


1c 


1D 


1c 


1c 


1c 


1B 


1B 


1B 


1D 
1D 
1B 


1B 


1D 


EQH 


NE 


® 
gece 


P10 


e 
geoece 


P12 


e 
gece 


P13 


° 
gence 


P14 


e 
peoe 


P15 


° 
geoe 


P16 


e 
09 @ee 


P17 


SL1 


e 
¢$e@e@e 


P18 


SR1l 


te 
oO 
> 
~~ 
00 UDO >) 


me 


~e *e 


~™e 


-=e 0 


=e 


a 


Ud 


e 


6 


e 


RETRIEVE FLAG 


L<>c 
HL=BC 


TEST FOR < 


TEST FOR > 
(OPPOSITE OF P13) 


TEST FOR <= 


[OR ] 


C AND ) 


[ COMPLEMENT J 


( SHL) 


SHIFT LEFT 


[ SHR ] 


CLEAR CARRY 
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1D66 
1D67 
1D68 
1D69 
1D6A 
1D6B 
LD6C 
LD6F 


1D72 
1D73 
1D75 
1D76 
1D77 
1D78 
1D79 
1ID7A 
1D7B 


1D7C 
1D7D 
1D7F 
1D80 
1D81 
1D82 
1D83 
1D84 
1D85 


1D86 
1D87 
1D88 
1D89 
1D8A 
1D8B 
1D8C 
1D8D 
LD8E 
1D8F 
1D90 


1D91 
1D92 
1D95 
1D96 
1D97 
ID9A 
1D9B 
LDIC 
1D9D 
1DSE 
IDA1 
1DA2 
LDA3 
1DA4 
1DA5 
1DA6 
1DA9 
1DAB 
IDAE 
1DBO 
1DB1l 
LDB3 
IDB6 
1DB8 
1DB9 
1DEC 
1DBF 
1DCO 
1pcl 
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64 
C6 


01 


01 


9E 


9E 


A6 


E2 
30 
BQ 
OA 


07 
B9 


. LO 


5D 
F3 


92 


1D 
1B 


1D 


1D 


1D 


1A 


1D 


1D 


1B 
1B 


1D 


@ 
geoe 


P19 


e 
gpec5e 


P20 


e 
§eee 


P21 


e 
@eee 


SYS4 
Y4 


INHEX 


IHX 


Y4E 


 ) 


2 
moO 


= 


OUPrNtooUrnona 
bh) 
= 


C,A 
GFTC 
30 
Y4F 
OA 


07 
Y4E 
10 


H,MERI 
PRINT 


H 
H 
Y¥4 


~e 


=e 


™-e 


we 


=e 


é 


e 


0 


SHIFT RIGHT 


{Inc ) 


INCREMENT HI BYTE BY 1 


( DEC J 


DECREMENT HI BYTE BY 1 


{ COPY ] 


C INNEX J 


INPUT 2 HEX DIGITS 


SAVE HI OPDER REX DIGIT (SHIFTED) 


1DC4 
1pc5 
1DC6 
1DC7 
1DC8 
1DC9 
1DCC 
1DCD 
1DCE 
1DDO 
1DD1 
1DD2 
1DD3 
1DD4 
1DD7 
1DD8 
1IDDA 
1DDC 
LDDF 
IDE1 
1DE3 
1DE4 


LDE7 
1DE8 
1DE9 
1DEC 
1DED 
IDEE 
1DF1 


IDF 2 
1DF4 


CD 


FO 


DA 
OF 
OA 
El 
07 
30 


OD 


OD 


E8 


00 
00 


1D 


1D 


1D 


20 


20 


1D 


SYS5 


HEX 


HX 


L9 


e@ 
@eoe 


SYS8 
Y8 


~e ~O 


=e 


=e ~-e =e me 


=e 


=e Oe 


{ OUTHEX J 
SAVE LOW ORDER BYTE 


HI ORDER HEX DIGIT 


LO ORDER HEX DIGIT 


CONVERT TO ASCII 


{ ourstrR ] 


CHAR COUNT 


JUMP TO LOC FOLLOWING STRING 


BASE ADDR 
COMPLEMENT OF STACK END ADDR 
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Listing 2: P-Code to 8080 Assembly 
Translator 


The p-code to 8080 translator is written in North Star BASIC. The p-codes are usually 
translated into subroutine calls to the appropriate run time routine. In this way, a pseudo- 
macroassembler is used. The translator also performs a crude form of 8080 code optimization 
which is discussed in table 4 of part 3. 


LIST 


SREM..LAST MOD 5/21/78 

10REM..P-CODE TO 8080 TRANSLATOR 

20REM HY.1 2/5/78 BY fF. YUIN 

25REM HY.2 3/23/78 

3C DIM A$(4),B$(4) ,HO$ (16) ,BO$ (4) 

40 $1=500:S2=400 

50 PIM T$(£1):ROM..TABLE OF RFFMRFNCES 
60 DIM D$(S2):REM..8080 ADDR OF P-CODE LAPELS 
65 DIM E(S2):REM..TABLE OF FORWARD REF 
€8 DIM WS (36) ,27$ (88) :02=21 

70 DIM Y¥1(15) ,¥2(15) ,¥$(60) 

75 DIM Z1(30),22(30) 

78 HOS="0123456789ABCDEF" 


SOREM.. LIT LOD LD1 LDX LX1l LDA ©TO ST1l 
82 Y$(1,32)="1A201A521A491A5F1A601ACB1A7A1A71" 
S4REM.. STX SX1 STA CAL CL] CLA INT 


86Y$ (33,60) ="1A861AR71ADE61AAFLAA31LADE1A27" 
9OREM..P00,P01,..P21 

94 Z$(1,32)= "1BA61C231CNF1C151C3C1C511CBE1CC7" 
96 2$(33,64)="1CD31CE91D161CED1D1D1D241D2A1D35" 
98 Z$(65,88)="1D401N491N5A1D721N7C1D86" 

S99REM. .SYSO,..SYS8 

100 WS (1, 24)="1AE91AF21AF91B791D911DC4" 

102 WS (33,36) ="1DE7" 


110 M=0:FOR K=1 TO 60 STEP 4 

112 M=M+1:Y2(M)=FND(YS$ (K,K+1) ,2)+X 
113 Y1(M)=FND (Y$ (K+2,K+3) ,2)+XsNEXT 
114 M=0:FOR K=1l1 TO 88 STEP 4 

115 22 (M)=FND(Z$ (K,K+1) ,2)+X 

116 21(M)=FND(ZS$ (K+2,K+3) ,2) +X 

117 M=M+] :NEXT 

118 M=02+]:FOR K=1 TO 36 STIP 4 
119 Z2(M)=FND (WS (K, K+1) , 2) +X 

120 Z1(M)=FND (WS (K+2,K+3) ,2) +X 

122 M=M+1:NEXT:GOTO 300 


125REM..CONVERT HEX TO DECIMAL 
130 DEF FNC (H1$,L) 

135 N=0:FOR I=1 TO L 

140 J=ASC(H1$ (I,I))-48 

145 IF J>9 THEN J=J-7 

150 N=N*16+J:NEXT: RETURN N 

160 FNEND 

165REM..CONVERT INTEGER TO HEX 
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Language 


170 DEF FNHS (L) 

175 R=INT(L/16) +1:S=L-R*16+17 
180 RETURN HOS$(R,R)+H0S$(S,S) 
185 FNEND 

190REM..CODE GENERATOR 

200 DEF FNG(O,M,N) 

210 FILL P,O:FILL P+1,M 

220 FILL P+2,N:RETURN P+3 

230 FNEND 

240REM..CODE GENERATOR 2 

250 DEF FNQ(O,M) 

260 FILL P,O:FILL P+1,Y1(M) 
270 FILL P+2,Y2(M):RFTURN P+3 
280 FNEND 


300 PRINT"*** P-CODE TO 8080 TRANSLATION **** 
302 INPUT"ADDR (HEX) OF PAS.LIB:",B0$ 

304 IF BOS$="" THEN BOS="1A00" 

306 X=FND(BOS, 4)-FND("1A00", 4) 

310 INPUT"ADDR (HEX) OF P-CODF:",A$ 

315 IF A$="" THEN A$="9800" 

320 X=FND(AS$, 4) :X0=X 

330 INPUT"ADDR (HEX) OF OUTPUT 8080 PGM:",B$ 
335 IF B$="" THEN B$="9000":P0=FND (BS, 4) 

340 INPUT"STACK START ADDR (HEX):",B$ 

345 IF B$<>"" THEN 360 

350 PRINT"DEFAULT STACK ADDRESSES USED" 

355 A$="9FFF":GOTO 365 

360 INPUT"STACK END ADDR (HEX) :",A$ 

365 K=65536-FND (AS, 4) 

370 J=INT (K/256) : I=K-J3*256 

375 P=P0+3:P=FNG(17,1I,J) 


380 P=FNG(205,FND(BO$ (3,4) ,2) ,FND(BO$ (1,2) ,2)) 


385 BOS=B$ 


390REM..1ST PASS..PICK UP LABELS 

400 W=1:REM..TABLE PTR 

420 J=EXAM(X):IF J=255 THEN 470 

430 X=X+4:IF J<4 THEN 420 

435 IF J=5 OR J>7 THEN 420 

440 TS (W,Wtl) =CHRS (EXAM (X-1) ) +CHRS (EXAM (X=2) ) 
450 W=W+2:GOTO 420 

470 PRINT (W-1)/2," REFERENCES" :W=W=2 
472REM=== 

475REM..PRE-COMPRESS TABLE 


477REM COMPARE ITEM WITH LAST 3 ENTRIES, DELETE IF 


480 IF W<160 THEN 500 

482 J=5:FOR I=7 TO W STEP 2 

484 FOR K=J-4 TO J STEP 2 

486 IF T$(I,I+1)=T$(K,K+l) THEN EXIT 490 
488 NEXT: J=J+2:TS$ (J,J+1)=TS$ (I, I+1) 

490 NEXT: W=J 

492REM=== 

495REM..BUBBLE SORT 

500 FOR I=1 TO W-2 STEP 2:AS="0" 

510 FOR J=W-2 TO I STEP -2 

520 IF T$(J,J+1)<=T$ (J+2,J3+3) THEN 550 
530 BS=TS$ (J,J+I) :TS$ (J, I+1)=TS$ (J+2,5+3) 
540 TS$(J+2,J+3)=BS:AS="1" 

550 NEXT:IF AS$="0" THEN EXIT 600 

560 NEXT 

565REM=== 

570REM..REPACK TABLE 

600 J=1:FOR I=3 TO W STEP 2 

610 IF TS$(I,I+1)=T$(J,J+1) THEN 630 
620 J=J+2:T$ (J,J+1)=TS$ (I,I+1) 

630 NEXT:W0=J 

640 TS (J+2,J+3)=CHRS$ (255) +CHRS (255) 
660 FOR I=1 TO J STEP 2 

670 D$(I,I+l)="_ ":NEXT 

680 PRINT(J+1)/2," ACTUAL LABELS" 
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690REM..2ND PASS..TRANSLATE 
700 X=X0—-4:K=-1:G=0 
702 K1=0:L1=0 
705 U=ASC(TS (2,2) ) sW=1:M=15 
710 X=X+43K=K+1:RO=0 
711 J=INT (P/256) :I=P-J*256 
712 M=M+l:IF M<=14 THEN 715 
714 PRINT:PRINTS41I,K," ",FNHS (J) ,:M=0 
715 PRINTFNHS(I)," ", 
716 F=EXAM (xX) 
720 Cl=FhXAM (X+2) :C2=EXAM (X+3) 
725 IF K<U THEN 765 
740 DS (W,Wt+1) =CHRS (1) +CHRS (J) 
750 W=W+2:RO=1:REM RO=1 MEANS INSTR. REFERENCED 
760 U=ASC (TS (W,W) ) *256+ASC (TS (W+1,W+1) ) 
765 V=0:IF F<=8 THEN 780 
770 V=1:F=F-16:REM..INDFX ADDR 
775 IF F>8 THEN 1700 
T7BREM. ce ccccce ee eLILTL.OPR.LOD.STO..CAL.. INT. .JMP..JPC..CSP. 
780 ON F+l GOTO 800,850,900,1100,1200,1500,1250,1550,1600 
790RE! === 
800 IF Cl+C2=0 THEN 830:REM..LIT 
810 P=FNG(1,C1,C2) 
820 P=FNQ(205,1):GOTO 710 
830 P=FNG(175,19,18) 
840 P=FNG(19,18,0)-1:GOTO 710 
8 45REM=== 
650 J=205:IF C193 THEN 890:REM..OPR 
855 IF C1l=0 THEN 885 
860 IF FEXAM(X=-4)<>0 THEN 890:REM LAST INSTR. =LIT ? 
862 IF Cl>1l THEN 870:REM LAST CODE = NEGATE ? 
864 J=P-5:FILL J,256-EXAM (J) 
866 FILL J+l,255-EXAM(J+1):GOTO 710 
870 IF EXAM(X-1)>0 THEN 890 
872 L=EXAM(X-2) :IF L>3 THEN 890 
874 P=P-6:N=17+Cl:REM CONVERT ADD TO INC, SUB TO DEC 
876 FOR I=1 TO L 
878 P=FNG(J,Z21(N) ,22(N) ) 
880 NEXT:GOTO 710 
885 J=195;:REM JMP 
890 P=FNG(J,Z21(Cl) ,Z2(Cl)):GOTO 710 
895 REM=== 
900 F=2:REM..LOD 
902 IF RO OR V THEN 925 
904 IF K>Kl1+l1 OR L<>L1l THEN 925 
906 IF Cl<> FXAM(X-2) OR C2<>EXAM(X=-1) THEN 925 
910 Kl=K:IF EXAM(X=4)=2 THEN 920:REM LAST CODE = LOD ? 
915 P=FNG(19,19,0)-1:GOTO 710 
920 P=FNG(205,2Z1(21),22(21)):GOTO 710 
925 J=4:L=EXAM(X+1):IF L=255 THEN 1040 
930 GOSUB 1450:REM..GET 2A 
940 P=FNG(1,C1,C2) 
950 J=2:IF V THEN 960 
955 J=0:Kl=K:L1=L:REM..NON-INDEXFD LOD OR STO 
960 IF L=0 THEN 1040 
1030 J=J+1:P=FNG(62,L,9)-1 
1040 P=FNQ(205,F+J) :COTO 710 
1090RFM=== 
1100 F=7:GOTO 925:RFM..STO 
1190REM=== 
1200 L=FXAM(X+1):IF L>O THEN 1225:REM..CAL 
1210 P=FNOQO (205,12) 
1220 GOTO 1260 
1225 IF L<255 THEN 1230 
1227 P=FNQ (205,14) :GOTO 710 
1230 P=FNG(62,L,0)-1l 
1240 P=FNQ (205,13) :GOTO 1260 
1245REM=== 
1250 IF C1+C2*256=K+l THEN 710:REM..JMP 
1260 GOSUB 1300 
1270 P=FNG(195,1,J):GOTO 710 
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1280REM===== 

1290REM...TABLE LOOKUP, RETURNS ADDR IN I,J 
1300 AS=CHRS (C2) +CHRS (C1) 

1310 I=1:J=W0:REM..BINARY SEARCH! 

1320 N=INT((I+d) /4) *2+1 

1330 IF AS=TS$(N,N+l) THEN 1360 

1340 IF AS>TS(N,N+l1) THEN I=N+2 ELSE J=N-2 
1350 IF I<=J THEN 1320 

1360 IF DS(N,N+l)<>" " THEN 1400 

1370 G=G+1:E(G)=P+1:REM..FORWARD REF 

1390 J=INT (N/256) : I=N-J*256:RETURN 


1400 I=ASC (DS (N,N) ) sJ=ASC (DS (N+1,N+1)) : RETURN 


1440REM===== 

1450 Cl=C1+C1:C2=C2+C2:REM..2A 

1460 IF Cl1<256 THEN 1480 

1470 Cl=C1-256:C2=C2+1 

1480 IF C2>256 THEN C2=C2-256: RETURN 
1490REM=== 

1500 IF Cl+C2=0 THEN 710:REM..INT 

1505 GOSUB 1450:N=C1+C2*256 

1510 IF N>4 AND N<65530 THEN 1530 

1515 J=19:IF N<=4 THEN 1520:N=65536-N:J=27 
1520 FOR I=1 TO N/2:P=FNG(J,J,0)-1 

1525 NEXT:GOTO 710 

1530 P=FNG (33,C1,C2) 

1535 P=FNQ(205,15):GOTO 710 

1540REM=== 

1550 IF Cl+C2*256=K+l THEN 710:REM..JPC 
1555 P=FNG(26,27,27) 

1560 FILL P,31:P=P+1:REM..RAR 

1570 GOSUB 1300:N=210 

1575 IF EXAM(X+1)>0 THEN N=218 

1580 P=FNG(N,1I,J):GOTO 710 

1590REM=== 

1600 I=C1+02+1: REM. .CSP 

1605 IF Cl=8 THEN 1620 

1610 P=FNG(205,21(I) ,22(1I)):GOTO 710 
1620 J=EXAM(X-2):RFM GET LENGTH OF STRING 
1625 P=P-J*6-6:X1=X=-J*4-2:REM BACK UP 
1630 P=FNG(14,J3,0)-1 

1632 P=FNG(205,21(I) ,22(I)) 

1635 FOR I=l1 T0 J 

1640 FILL P,EXAM(X1) 

1645 P=P+1:Xl=X1+4 

1650 NEXT:GOTO 710 

1700 PRINT:PRINT" ",G," FORWARD REFERENCES" 
1710 Pl=P 


1775REM..3RD PASS..FIXUP FOR. REF. 

1780 FOR N=1 TO G 

1790 P=E(N) 

1800 J=EXAM (P) +EXAM (P+1) *256 

1810 FILL P,ASC(D$(J,J) ) 

1820 FILL P+1,ASC(D$ (J+1,J+1) ) 

1830 NEXT 

1840REM..SETUP STACK ADDR 

1850 IF BOS="" THEN P=Pl ELSE P=FND(BO$, 4) 
1860 J=INT (P/256) :s I=P-J*256 

1870 P=P0:P=FNG (33,1,J) 

1940 PRINT"P-CODE..",K," INSTRUCTIONS" 
1950 PRINT"8080..",P1-P0," BYTES" 

1960 PRINT"P-CODE:8080 =", (P1=-P0) / (K*4) 
1970 PRINT"* END TRANSLATION *" 

1980 PRINTCHRS (129) :REM. .TURNOFF PRINTER 
2000 END 

READY 
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BLANK 


Appendix B: 


“Tiny” Pascal 8080 Assembly Language 


BLANK 


Listing 1: A Sample 
Pascal 


0010 SPROGRAM NECOLE 3 

0020 CONST STOPSZFFs EXIT-Z%69465 
0030 VAR STADRs INIXs NUM? INTEGERS 
0040 PROC CRLFS 

0050 BEGIN WRITE (13) ENDs 

0060 FROC FMT (VALs LEN)s 


0070 VAR Is Ji INTEGERS 
0080 RBECIN 3FMT3 
0090 J t= VAL s 


0100 FOR I 8= 2 + (J-0) TO LEN lO 
01190 
0120 IF J>9 THEN WRITE ¢°&7% )5 
0130 WRITE (VAL#) 

0140 END SFMT 335 

0150 REGIN MAIN} 


Compilation in 


IF J-O THEN WRITE (32) ELSE J c= J DIV 103 


0160 WRITE (12s “START DECODING AT ’ ds READ (STADRZ )s CRLF 
0170 CRLFs INDX $= 03 

0180 WHILE (STADR < 26900) AND (MEMCSTADKI <> STOP) DO 

0190 REGIN FMT CINDXs 10)5 WRITE (’ “de INDX $= INDEX + 15 
0200 NUM $= MEMCSTADRIs 

0210 


CASE NUM OF 
0220 0 > WRITE (’LIT?’ 5 
0230 1 > WRITE (’OPR’ D5 


s= STOP END 


0240 294125 WRITE (’LOD’ D5 

0250 394133 WRITE (’STO’ Ds 

0260 4 > WRITE (’CAL?’ D5 

0270 ra) > WRITE (INT? D5 

0280 6 > WRITE ¢’ JMP’ 05 

0290 7 > WRITE ¢(’JPC’ Ds 

0300 8 ; WRITE ¢(’CSP’ ) 

0310 ELSE BEGIN WRITE ¢’ILL’ Ds MEMCSTADR 
0320 ENIts 3CASE 3 

03350 IF (NUM=212) OR CNUM=Z%13) THEN WRITE (’X’ ) 
0340 ELSE WRITE (€32)8 WRITE (32 )5 

0350 WRITE (MEMCSTADR+1 389% 5’ 05 


0360 NUM $= MEMCSTADRtS] SHL 8 + MEMCSTADRt2I5 


0370 WRITE (NUM#)s CRLF s 

0380 IF INDX MOD 15 = 0 THEN BEGIN 

0390 READ (NUM)s IF NUM=Z18 THEN CALLC EXIT) ENDs 
0400 IF MEMCSTADRI <> STOP THEN STADR $= STADR ¢ 43 
0410 ENDS JWHILE > 


0420 END. 3IMAIN} 


> 
? 


F-CONE STARTS AT 2C00H 
WANT CODE FRINTED? Y 
0 $ICOLles 
OQ 3FROCRAM DECOME 3 
0 CONST STOP-AZFFs EXIT=Z4£69465 
oO JMF 0 90 
1 VAR STADRs INTXs NUM INTEGERS 
1 FROC CRLF Ss 
1 BEGIN WRITE ¢€13) ENTIs 
1 JMP 0 


ANNK AT 1 CHANGED TO 2 


2 INT 0 90 
3 LIT 0 13 
4 CSP o i 
4» OFR 0 

6 PROC FMT (VALs LEN); 


a ir ny” 
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é 


7 
7 


ALDNK AT 6&6 CHANGED 


10 


ADDR 


ADDR 


ADDR 


37 


ANTIK 
43 


4S 


4&6 
46 
ARTI 


AT 


AT 


VAK Is 


Js 


& JMP 0 


KEGIN 3FMT3 


J 


© = 
err 


VAL 5 
TO 7 
INT 


+ 
~*~ 

G, 
i 


20 
IF J=0 
21 
22 
23 
24 


2 


JPC 
THEN WRI 
LOD 
LIT 
OPR 
JPC 
LIT 

26 CSP 
27 = JMP 
24 CHANGED TO 2 
28 LOD 
29 LIT 
30 OPR 
31 STO 
27 CHANGED TO 3 
32 LOD 
33 OPR 
34 STO 
35 JMP 


ecoonoocoocemoocoococecouncococec|ec]ecoocooo 


AT 20 CHANGED TO 36 


ENT! SFMT 335 
435 


36 INT 0 


IF J>9 THEN WRITE 


37 
38 
39 
40 
4} 


42 


LOD 
LIT 
OPR 
JPC 
LIT 
CSP 


AT 40 CHANGED TO 43 


WRITE (VAL) 


43 Lon 
44 CSP 


0 
0 


OPR 0 


REGIN 3MAING 


WRITE (12,5 
AT 0 CHANGED 


“START 
TO 46 
INT 
LIT 
CSP 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 


eocccooococeoc 


INTEGERS 


wT 


E 


0 


ie 


O LEN HO 


Orn om Pb — = 


opr i 
~ 


11 


0 
(32) ELSE 


eo = 
= 


DECODING AT % Ds 
3 


12 
1 

83 
84 
65 
82 
84 
32 
68 
69 
67 


J DIV 103 


REAL (STADRZ )» 


CRLF 


72 


735 


84 


97 


100 


101 


CRLF 5 


v8 
9 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 


LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
LIT 
CSP 
CSP 
STO 
CAL 


INDX $= 05 


72 
73 
74 


CAL 
LIT 
STO 


ooo eceooocooooocooooedcsd 
Gl 
bh 


© i nos 


WHILE (STADR < 26900) AND (MEMCSTADRI <> STOP) DO 


73 
76 
77 
78 
79 
80 
81 
82 


LOD 
LIT 
OPR 
LOD 
LOD 
LIT 
OPR 
OPR 
JPC 


BEGIN FMT ( INDX 


NUM 


= 
= 


97 
98 
99 


LOD 
LIT 
CAL 
INT 
LIT 
LIT 
LIT 
LIT 
CSF 
LON 
LIT 
OF'K 
sto 
MEMCSTAL 
LOL 
LOL 
sT0 


CASE NUM OF 


0 


ALIK AT 104 


111 


1 


100 


e 
® 


101 
102 
103 
104 
103 
106 
107 
108 
109 
110 
CHA 


® 
® 


111 
112 
113 
114 
115 
116 
117 


LOD 
WRITE ¢ 
OPR 
LIT 
OPK 
JPC 
LIT 
LIT 
LIT 
LIT 
CSP 
JMP 
NGEI! T0 
WRITE ¢ 
OPK 
LIT 
OPR 
JPC 
LIT 
LIT 
LIT 


o 0 


Js 


vo =O 


eccceccccocoeooc 3c erpncmeccccoccccoeooewmlcoeooelcoOo 
N ho Gl 
O 


ps 
ry 
ps 
J 
ps 


& 


ceoccccoed 
oS 


WRITE ¢’ 


“)s INDX 


© a= 
~~ 


INDX + 13 


223 


ADDR AT 
121 


ADDR AT 


ADDR AT 
135 


ALK AT 


ALIIK AT 
149 


ADIK AT 
159 


ALDK AT 
169 


224 


118 
119 
120 


LIT 
CSP 
JMP 


0 3 
0 8 
0 0 


114 CHANGED TO 121 


29h125 


WRITE (’LOID’ D5 


121 OFR 0 21 
122) «#LIT 0 2 
123 OFR 0 8 
124 JPC 1 0 
125 OPR 0 21 
126 LIT o 18 
127 OFR 0 8 
128 JPC 0 9 

124 CHANGED 129 
129 LIT 0 76 
130) «6LLIT 0 79 
131 LIT 0 68 
132 LIT 0 3 
133 CSP o 8 
134 JMP o 9 

128 CHANGED TO 135 

39%Z133 WRITE (’STO’ D5 
135 OPR 0 21 
136 LIT 0 3 
137 OPR 0 8 
138 JPC 1 90 
139 OPR 0 21 
140 LIT o 19 
141 OFPR o 8 
142 JPC o 9 

138 CHANCET 143 
143 LIT 0 83 
144 LIT 0 84 
145 LIT 0 79 
146 LIT 0 3 
147 CSP 0 8 
148 JMP 0 9 

142 CHANGET 149 

4 ¢ WRITE (’°CAL’ Ds 
149 OFRK Q 21 
150 =LIT 0 4 
151 OFK 0 8 
152) «(JPC 0 90 
1535 LIT 0 67 
154 LIT 0 65 
ISS LIT 0 76 
156 =6LIT 0 3 
157 CSP o 8 
158 JMP 0 9 

152 CHANCEL 159 

ss > WRITE (’ INT’ D5 
139 OPK 0 21 
160 LIT 0 3 
161 OPR o 8 
162 JPC 0 90 
163 LIT 0 73 
164 LIT o 78 
165 LIT 0 84 
166 LIT 0 3 
167 CSP 0 8 
168 JMP 0 9 

162 CHANGED TO 169 

6 ¢ WRITE (’ JMP’ Ds 
169 OFR 0 21 
170 ~=6LIT 0 6 
171 OPK o 8 
172) =6JPC o 9 
173 «LIT 0 74 


174 LIT 0 77 
175) «=6CL IT 0 890 
176 LIT 0 3 
177 CSP o 8 
178 JMP o 0 
ADIR AT 172 CHANGED TO 179 
179 7 ¢ WRITE ¢’JPC’ D5 
179 OPR o 21 
180 LIT 0 7 
181 OPK o 8 
182 JPC 0 oO 
183 LIT 0 74 
184 LIT 0 890 
185 LIT 0 67 
186 =LIT 0 3 
187 CSP o 8 
188 JMP o 90 
ADDR AT 182 CHANGED TO 189 
189 8 $ WRITE (’CSP’ ) 
189 OPR 0 21 
190 ~=LIT o 8 
191 OFK 0 8 
192 JPC 0 0 
193 ~=LIT 0 67 
194 LIT 0 83 
195 LIT 0 80 
196 LIT 0 3 
197 CSP 0 8 
198 ELSE BEGIN WRITE (’ILL’ )s MEMCSTANRI] $= STOF ENT 


198 JMP 0 9 
ALIK AT 192 CHANCED TO 199 


199 ~=LIT 0 73 
200 LIT 0 76 
201 LIT 0 76 
202 LIT Oo 3 
203 CSP 0 8 
204 LOD o 9 
205 LIT 0 253 
206 STO 255 9 


207 ENIs 3CASE 3 

ADDR AT 198 CHANGED TO 207 
ADDR AT 188 CHANGED TO 207 
ABIR AT 178 CHANGED TO 207 
ADDR AT 168 CHANGED TO 207 
ARIK AT 158 CHANGED TO 207 
ANDR AT 148 CHANGED TO 207 
ANDR AT 134 CHANGED TO 207 
ADDR AT 120 CHANGED TO 207 
ADDR AT 110 CHANGED TO 207 

207 INT Oo -1 
208 IF (NUM=2%212) OR (NUM=213) THEN WRITE (’X’ ) 


208 LOD 0 2 
209 LIT o 18 
210 OPK o 8 
211 LOD 0 2 
212) sLIT o 19 
213 OFPR o 8 
214 OPR o 14 
215 JPC 0 0 
216 LIT 0 88 
217 CSP 0 1 
218 ELSE WRITE (32)5 WRITE (32 )3 


218 JMP 0 0 
ADDR AT 215 CHANGED TO 219 
219 LIT 0 32 
220 CSP o 1 
ADIR AT 218 CHANGED TO 221 
221 LIT 0 32 


223 


250 


RQ 
CA 
ary 


ADDR 
ALDR 


209 


ADIR 
268 


ADDR 
269 


222 


CSP 


0 


1 


WRITE (MEMCSTADRt1 389% 9’ 05 


NUM 


223 
224 


225 


226 
227 
228 
229 


LOD 
LIT 
OPR 
LOD 
CSP 
LIT 
CSP 


3= MEMCSTAD 


230 
231 
232 
233 
234 
2355 
2356 
257 
2358 
239 
240 
241 


LOD 
LIT 
OFR 
LOD 
LIT 
OF'R 
LOU 
LIT 
OFR 
Lon 
OPR 
STO 


WRITE (NUM#)s C 


242 
243 
244 


IF INIX M 


2435 
246 
247 
248 
249 


250 


LOL 
CSF 
CAL 
or 

LOD 
LIT 
OPK 
LIT 
OPR 
JPC 


REAL (NUM )5 


AT 256 
AT 250 


251 


MJ PO BQ BO PD PO 
cAcA cA CACA CA 


NO Ch & GIP 


298 
CHANG 
CHANG 


CSP 
STO 
LON 
LIT 
OF R 
JFC 
LIT 
CAL 
1 f 

Ett 


15 


© 


cA 
ch 


+3 


qn 
cn 


LF 


0 


ecococecltooeoAconcoceoceoonceonaoooncoce 


“NBWOUW Au 


So 


oe 
i) 


BS GIRO @ BO ROS 


THEN BEGIN 


cn 


coacn = ~ 


SHL 8 + MEMCSTADRt2]35 


IF NUM=%18 THEN CALLCEXIT) ENDs 


TO 
TO 


IF MEMCSTADRI «< 


AT 263 
ENTts 


29 
260 
261 
262 
263 
264 
265 
266 
267 


LOD 
LOL 
LIT 
OPR 
JPC 
LOD 
LIT 
OPR 
STO 


eccececoneovNnpnhiaNncoceceocsd 


CHANGED TO 268 


SWHIL 
268 


E 3 
JMP 


0 


AT 83 CHANGED TO 269 


ENT. 


IMAIN 3 
269 


FILE ENDS AT 3039 


INTERFRETC I Ds 


G 


226 


OPR 


0 


pS ees 


O 
co 
cn 
So 


TOP THEN STAT 
0 


cn 


Sor hk oo OR 


73 


0 


OR TRANSLATECT)? T 


OO =- 
= 


STADR + 43 


KxXXKK F-COLE TO 8080 TRANSLATION ¥XxXxXx 


AUIRESS OF RUNTIME MODULE? 46900 


P-COLE START ALLRESS? %2C00 


ORJECT-CODE START ADLRESS? 
STACK START ADURESS? se 
DEFAULTS USED 


40 REFERENCES 
27 TIFFERENT LABELS 


0 100F 
20 10582 
40 10K 
60 112A 
80 1137 

100 1186 
120 11C90 
140 120A 
160 1246 
180 1282 
200 12C1 
220 130€E 
2490 1358C 
260 1388 
31 FORWARE 


BE 


Ci 


C4 


CK 


REFERENCES 


270 P-COLIES TRANSLATED 
OSE6H RYTES OF OBJECT CODE PRODUCED - CONE ENIIS AT 13E6 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
10990 
10A0 
10K0 
10C0 
1010 
10E0 
10FO 
1190 
1110 
1120 
11390 
1140 
11350 
1160 
1170 
1180 
11990 
11A90 
1180 
11090 
110 
11£90 
11F90 
1200 
1210 
1220 
1230 
1240 


1K 
79 
lié 
48 
30 
9A 
[ié 
26 
62 
9E 
C9 
26 
70 
Tit 


1E 
82 
LF 
34 
uC 
AS6 
LIF 
32 
6E 
AA 
D2 
26 
7C 
DA 


41000 


(TOTAL 0438H BYTES) 


Chi 


8h 


vi 
AE 
18 
2B 
77 
C4 
F It 
ra] 
8C 
C8 
02 
JS 


A9 


JA 
RA 
24 
34 
80 
Lid 
07 
43 
7F 
RR 
08 
39 


B2 


227 


Ch 


Ci 


lig 
Of 


Si 


KO 
4E 
00 
RS 
F8 
8D 
60 
00 
8D 
CA 


6C 
6C 
00 
6B 
FF 
6B 
én 
00 
6B 
6C 


Z1000H 


Z1012H 


Z101EH 


Z1051H 


4E 
6C 
C3 
1B 
12 
1F 
03 
cD 
00 
cD 
o1 
6C 
00 
cD 
4C 
6D 
cD 
6R 
cD 
R2 
cD 
cD 
FF 
00 
00 


74 
1A 
D2 
1B 
ch 
D2 
CD 
6C 
cn 
6C 
¥8 
6B 
CD 
6C 
6D 
01 
4E 
C3 
A4 
13 
6C 
6C 
00 
00 
Chi 


C3 
1B 
12 
1F 
69 
BB 
v2 
6B 
6C 
6B 
00 
CD 
8D 
6B 
CD 
00 
6C 
12 
6C 
CD 
6B 
6B 
cD 
ch 


KS 


A 

004H 
Ps01000H 
H»01S5E6H 
[ivO09701H 
06900H 
O10L9H 
KyQ000DH 
O0SR6CH 
O6B00H 
06C25H 

It 

[t 

[t 

[t 

Ry OF FF 6H 
O6BR8IH 
BR,x00002H 
O6BRSH 
Bs00002H 
O6B6CH 
B»990002H 
O6BS8SIH 

A 

It 

[i 

I 

nh 

O06CKROH 
06C4EH 
B»90000H 
Oé6BRSH 
By OFFFSH 
O6B8IH 
06D60H 
Bs00000H 
O6B8DH 
06CCAH 

DB 


nh2 
1B 
CD 
D2 
6D 
12 
6B 
CD 
6B 
CD 
9 
00 
6B 
CD 
4C 
00 
01 
10 
AF 
F7 
cD 
CD 
6C 
Sit 
6B 


10SF 
1060 
1061 
1064 
1067 
106A 
106B 
106C 
10612 
106E 
106F 
1072 
1073 
1074 
1075 
1076 
1079 
107C 
107F 
1082 
1085 
1088 
108B8 
108E 
1091 
1094 
1097 
1094 
109f 
10A0 
10A3 
10A6 
10A9 
10AC 
10ATi 
10AE 
10B1 
10B4 
10K7 
10BA 
10BN 
10BE 
10BF 
10C90 
10C1 
10C4 
10C7 
10CA 
10CI 
10n0 
10D3 
10D6 
1009 
10BC 
10DF 
10E2 
10ES 
10E8 
10EA 
10EDR 
10EE 
10EF 
10F90 
10F 1 
10F2 
10F3 
10F4 
10FS 


iB 
iF 
D2 
O1 
CD 
AF 
13 
12 
13 
12 
CD 
1A 
1B 
iB 
iF 
ni 
o1 
cu 
CD 
C3 
o1 
cn 
O1 
cn 
cu 
O1 
Ch 
O14 
cn 
ch 
O1 
ch 
C3 
iB 
1B 
O1 
cD 
01 
cn 
cD 
1A 
1R 
1R 
iF 
n2 
01 
cn 
cn 
O1 
cn 
cD 
C3 
21 
cD 
O1 
cD 
cD 
OE 
cn 
53 
54 
41 
52 
54 
20 
44 
45 
43 


AC 
02 


8D 


BO 


85 
20 
6C 
00 
9A 
02 
Sit 
OA 
6C 
90 
02 
RS 
00 
Bh 
4C 
00 
BS 
vil 


02 
80 
09 
6C 
F9 


Ci 
26 
6C 
00 
Fé 
8D 
10 


2o 


06 
73 
oc 
6C 
00 
12 


Je 


10 
00 
6B 


6C 


10 
00 
éR 
6K 
10 
00 
6B 
00 
6K 
6C 
00 
6K 
00 
éK 
él 
00 
6B 
10 


090 
6B 
090 
6B 
6C 


10 
00 
6B 
6K 
FF 
6B 
6B 
6C 
00 
6B 
00 
6B 
6B 


6B 


0410 
0420 
0430 
0440 
0450 
0460 
0479 
0480 
04990 
05090 
0510 
0520 
0530 
05490 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
04680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
07690 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
08350 
0860 
0870 
0880 
0890 
0900 
0910 
09290 
0930 
0940 
0950 
0960 
0970 
09890 
09990 
1000 
1010 
1020 
1030 
1040 
19059 
1060 
1070 
1080 


Z108SH 


Z109AH 


Z10ACH 


Z10CDH 


Z10D9H 


BCX 
RAR 
JNC 
LXI 
CALL 
XRA 
INX 
STAX 
INX 
STAX 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
LXI 
CALL 
CALL 
JMP 
LXI 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
JMP° 
Licx 
DCX 
LXI 
CALL 
LXI 
CALL 
CALL 
LDAX 
BCX 
cx 
RAR 
JNC 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
JMP 
LXI 
CALL 
LXI 
CALL 
CALL 
MVI 
CALL 
MOV 
MOV 
MOV 
MOV 
MOV 
DB 
MOV 
MOV 
MOV 


ft 


010ACH 
Bs00002H 
Oé6BS8DH 


01085H 
Kks00020H 
OS6KR6CH 
O6B00H 
O109AH 
ks00002H 
OSK8IIH 
Ks Q000AH 
O6K6CH 
06C90H 
BKs00002H 
OS6RKSH 
Bs00000H 
O6BRSLIH 
0604CH 
Kky00000H 
O6RERSH 
01051H 

te) 

nh 
B:s00002H 
OSB8DH 
BRy00009H 
O06B6CH 
O6CF9H 

[i 

t 

D 


010CBH 
Bs00026H 
O6R6CH 
OSB00H 
BsOFFF6H 
Oé6B8IiH 
O6B10H 
06C25H 
H»s00006H 
06B7 3H 
Bs0000CH 
046B6CH 
O46B00H 
Cs012H 
O06B52H 
Det 

Det 

Bel 

DvD 

Det 

020H 

Bs 

Bol 

BoE 


Ome AnDPraAN 


229 


10F6 
10F7 
10F8 
10F9 
10FA 
10FB 
10FC 
1OF Li 
10FE 
10FF 
11902 
1105 
1108 
110K 
L10E 
1111 
1114 
1113 
1116 
1117 
1118 
1119 
111C 
L11F 
1122 
1125 
1128 
112K 
112E 
1131 
1134 
1137 
113A 
1130 
11490 
1143 
1144 
1143 
1146 
1147 
114A 
1140 
1150 
1153 
1156 
1159 
113C 
115D 
L11SE 
115F 
1160 
1162 
1163 
11466 
1167 
1168 
116B 
116E 
1171 
1174 
1177 
117A 
117D 
11890 
1183 
1186 
1187 
1188 


230 


6B 


090 
6B 
60 
00 
6B 
00 
6B 
6C 
00 
6B 


él 


1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
12690 
1270 
1280 
12990 
1300 
1310 
1320 
1330 
13490 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
14690 
1479 
1480 
1490 
1500 
1519 
1520 
15390 
15490 
15590 
15690 
15790 
15890 
1590 
1600 
1610 
1620 
1630 
1640 
16590 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 


ZAL1FH 


MOV 
MOV 
MOV 
MOV 
MOV 
DB 
MOV 
MOV 
[tk 
CALL 
LXI 
CALL 
CALL 
JMF 
CALL 
JMF 
XRA 
INX 
STAX 
INX 
STAX 
LXI 
CALL 
LXI 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
CALL 
LIAX 
Licx 
LiCX 
RAR 
JNC 
LXI 
CALL 
LXI 
CALL 
CALL 
JMP 
DCX 
BCX 
DCX 
BCX 
MVI 
CALL 
DB 
DB 
DB 
LXI 
CALL 
CALL 
LXI 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
INX 
INX 
CALL 


CoA 

Bs 

CeC 

CoM 

Brf 
020H 
BsC 

I's H 

020H 
OSK3CH 
By90000H 
O6RRSH 
OSKESH 
01012H 
OS6RE9H 
01012H 

A 

f 

It 

n 

It 
B:s900002H 
OSRESH 
Bs00000H 
OS6R8IIH 
Bs06900H 
06B6CH 
06CF 3H 
Ks00000H 
OSK8IIH 
O06COEH 
Bs000FFH 
O6R6CH 
06CC6H 
OSD0FH 

it 

t 

Qn 


O13E3H 
Bks00002H 
Od6B8IH 
Rr0000AH 
O06B6CH 
O6BE9H 
O101EH 

Nh 


[i 

n 

D 

Cv003SH 
O06BS2H 
020H 
020H 
020H 
Br00002H 
O6B8DH 
06D4CH 
Bv090002H 
OSBBSH 
B,s00000H 
OS6B8DH 
O6COEH 
Bs00004H 
OSBBSH 

DB 


D 
O6N60H 


aAd OQBwoo 


118K 
118C 
1181 
118E 
118F 
1190 
1193 
1194 
1193 
1196 
1197 
119A 
119C 
L1I9F 
11A0 
11A1 
11A2 
11A5 
11A8 
L1AKE 
L1AE 
11B1 
11K2 
11R3 
1184 
LIBS 
11k8 
11BRA 
11BfI 
11BE 
11 BF 
11C0 
1103 
1106 
11C9 
11CC 
11CF 
110290 
11D1 
11D2 
11D3 
11D6 
11D9 
11nC 
11DF 
11E2 
11E3 
11E4 
11ES 
11E6 
11E9 
11EB 
11EE 
L1IEF 
11F90 
11F 1 
11F 4 
1177 
11iFA 
LiF DI 
1200 
1201 
1202 
1203 
1204 
1207 
120A 
1200 


RO 


AS 
03 


ve 


li2 
60 
01 
6C 
k0 


C3 
03 


ve 


[i2 
40 
02 
6C 
BO 


E9 
60 
12 
6C 
BO 


F4 
03 
52 


D2 
60 
03 
6C 
kO 


14é 
60 
13 
6C 


6C 


11 


11 


6B 


12 
én 
00 
6B 
6C 


11 
60 
00 
6B 
6C 


11 
6B 


12 
6D 
00 
6B 
6C 


12 
él 
00 
6B 


1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
19390 
1940 
193590 
1940 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
20490 
2050 
2060 
2079 
2080 
2090 
2100 
2110 
2120 
21390 
21490 
2150 
2160 
21790 
21890 
2190 
2290 
2210 
2229 
2230 
22490 
2259 
2260 
2279 
2289 
2299 
2300 
23190 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
24350 
2440 


Z11ASH 


Z11C3H 


Z11E9H 


Z11F 4H 


XKA 
INX 
STAX 
INX 
STAX 
CALL 
LTWAX 
DCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LTIAX 
BCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
nicx 
DCX 
RAR 
JC 
CALL 
LXI 
CALL 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
ncx 
licx 
RAR 
JC 
CALL 
LXI 
CALL 


O11ASH 
C2003H 
O6BRS52H 
Cet 
CsC 
TisH 
012I0'2H 
060N60H 


Bv00001H 


O6B6CH 
O6CROH 
It 
It 
ni 


011C3H 
Cs003H 
06B52H 
Cr 
[ty B 
DeD 
01202H 
06D60H 


Bs00002H 


O6B6CH 
O6CROH 
n 
D 
D 


O11E9H 
06D60H 


B,00012H 


O06B6CH 
O6CBOH 
ni 
D 
D 


011F4H 
Cv003H 
O06BS52H 
Cert 
Cerf 
Bs 
012D2H 
06D60H 


Bs00003H 


06B6CH 
O06CRBOH 
I 
i 
DB 


0121AH 
06N60H 


Bs00013H 


OSB6CH 


0 
p 
R 


wor 


1210 
1213 
1214 
1215 
1216 
1217 
121A 
121C 
121F 
1220 
1221 
1222 
1225 
1228 
122B 
122E 
1231 
1232 
1233 
1234 
1235 
1238 
123A 
1230 
123E 
123F 
1240 
1243 
1246 
1249 
124C 
124F 
1250 
1251 
1252 
1253 
1256 
1258 
125B 
125C 
125D 
125E 
1261 
1264 
1267 
126A 
126D 
126E 
126F 
1270 
1271 
1274 
1276 
1279 
127A 
127B 
127C 
127F 
1282 
1285 
1288 
128K 
128C 
12811 
128E 
128F 
1292 
1294 
1297 


232 


BO 


[2 


Ti2 


ve 


6C 


12 
6B 


12 
6D 
00 
6B 
6C 


12 
6B 


12 
6D 
00 
6B 
6C 


12 


6K 


6B 


2450 
2460 
2470 
2480 
24990 
2300 
2010 
2529 
25350 
2340 
2900 
2960 
2079 
2980 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
26990 
2709 
2710 
2720 
27390 
2740 
2759 
2769 
2779 
27890 
2799 
28090 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
299090 
29190 
29290 
2930 
29490 
29590 
2960 
29790 
2980 
2990 
30900 
3010 
3020 
30350 
3040 
3050 
3060 
3070 
3080 
3090 
31900 
3110 
3120 
3130 


Zi21AH 


Z1243H 


21261H 


Z127FH 


CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
DCX 
BCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
hex 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 


O6CBOH 
t 
D 
DB 


012235H 
C2003H 
O06B52H 
DvE 
Det 
CerA 
012D2H 
06D60H 


B:00004H 


O06B6CH 
06CBOH 
DB 
D 
D 


01243H 
Cs003H 
06B52H 
BsE 
BsC 
CoH 
012D2H 
06D60H 


Bs00005H 


06B6CH 
O06CBOH 
DB 
DB 
D 


01261H 
Cr003H 
06B52H 
Cel 
Cot 
Dot 
012BD2H 
06D460H 


Bs00006H 


06B6CH 
06CBOH 
D 
D 
D 


0127FH 
C»003H 
06B52H 
Cot 
Cel 
[DisB 
01202H 
061N60H 


B»00007H 


O&6R6CH 
OSCBOH 
[i 
Di 
nh 


01290H 
Cv003H 
06BS2H 
CrB 


S 
T 
0 


Cc 
A 
L 


4ze 


J 


1298 
1299 
1294 
1290 
12A0 
12A3 
12A6 
12A9 
12AA 
12AB 
12AC 
12AD 
12B0 
12B2 
12BS 
1286 
1287 
12B8 
12BB 
12Bn 
12C0 
12C1 
12C2 
12C3 
12C6 
12C9 
12CC 
12CF 
12D2 
12D3 
12D4 
12D7 
12DA 
12DD 
12E0 
12E3 
12E6 
12E9 
12EC 
12EF 
12F2 
12F5 
12F6 
12F7 
12F8 
12F9 
12FC 
12FF 
1302 
1305 
1308 
130K 
130E 
1311 
1314 
1317 
131A 
131D 
1320 
1323 
1326 
1329 
132C 
132F 
1332 
1335 
1338 
1338 
133E 


12 
6i 
00 
6B 
6C 


12 
6B 


12 
6B 


31490 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3279 
3280 
3290 
3300 
3319 
3320 
3330 
3340 
3350 
3360 
3379 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
5460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
5560 
3570 
3580 
3590 
3600 
3610 
5629 
56390 
36490 
3650 
56690 
3679 
346890 
3690 
37090 
3710 
37290 
37390 
37490 
3759 
3760 
3770 
37890 
37990 
5800 
5810 
38290 


Z129DH 


Z12BBH 


Z12D2H 


Z1308H 


Z1311H 


MOV 
MOV 
JMP 
CALL 
LXI 
CALL 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
MVI 
CALL 
MOV 
MOV 
MOV 
JMP 
MVI 
CALL 
MOV 
MOV 
MOV 
LXI 
CALL 
LXI 
CALL 
CALL 
DCX 
DCX 
LXI 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
LXI 
CALL 
CALL 
CALL 
LDAX 
ricx 
nCX 
RAR 
JNC 
LXI 
CALL 
CALL 
JMP 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
CALL 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
CALL 
CALL 


DeB 

BrE 
012DB2H 
06N60H 
Bs00008H 
06B6CH 
Oé6CBOH 

B 

t 

BD 


012RRH 
C»s9003H 
06BS2H 
BoE 

DeE 

DeB 
012D2H 
C»s003H 
06B52H 
CeC 

CoH 

Cet 
Bs00000H 
Oé6B8IH 
BsO00FFH 
06B6CH 
06C19H 

D 

D 
Bs00004H 
Oé6B8DH 
Bs00012H 
06B6CH 
Od6CBOH 
Bs00004H 
Oé6B8DH 
Bs00013H 
06B6CH 
Od6CBOH 
06D04H 

D 

D 

D 


01308H 
B,00058H 
06B6CH 
06B00H 
01311H 
R»00020H 
046R6CH 
06B00H 
Br00020H 
06B6CH 
06B00H 
B»00000H 
O6B8DH 
06D4CH 
06COEH 
06B10H 
B»r0002CH 
06B6CH 
06B00H 
R00000H 
O6BSDH 
06D4CH 
06D4CH 
06D4CH 


Pp 
C 


VAIO 


L 
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1341 Cn 
1344 01 
1347 CD 
134A CD 
1341 01 
1350 CD 
1353 CD 
1356 CD 
1359 CD 
135C CD 
135F 01 
1362 CD 
1365 13 
1366 13 
1367 CD 
136A CD 
136D C3 
1370 01 
1373 CD 
1376 01 
1379 CD 
137C CD 
137F AF 
1380 13 
1381 12 
1382 13 
1383 12 
1384 CD 
1387 1A 
1388. 1B 
1389 1B 
138A 1F 
138B D2 
138E CD 
1391 01 
1394 Cr 
1397 13 
1398 13 
1399 O01 
139C CD 
139F CD 
13A2 1A 
13A3 1B 
13A4 1B 
13AS 1F 
13A6 D2 
13A9 01 
13AC CD 
13AF CD 
13B2 01 
13BS ChB 
13B8 CD 
13BE 01 
13BE CD 
13C1i CD 
13C4 1A 
13C5 1B 
13C6 1B 
13C7 1F 
13C8 D2 
13CB 01 
13CE CD 
13D1i 01 
1304 CD 
13D7 CD 
13DA 01 
13D CD 
13E0 C3 
13E3 C3 


BO 


B2 
F7 
04 
BS 


18 
6C 
BO 


R2 
46 
6C 
21 
00 
8D 
OE 
FF 
6C 
Cé 


EO 
00 
8D 
04 
6C 
4E 
00 
BS 
1F 


2u 


6C 
00 
6B 
60 
00 
6B 
é6r 
6B 
6C 
6C 
00 
6B 


6B 
6k 
10 
00 
6B 
00 
6B 
6C 


6C 


13 
6A 
090 
6B 


00 
6B 
6C 


13 
69 
6B 
6C 
00 
6B 
6C 
09 
6B 
6C 


13 
00 
6B 
00 
6B 
6C 
00 
6B 
11 
6C 


3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 


Z1SB2H 


CALL 
LXI 
CALL 
CALL 
LXI 
CALL. 
CALL 
CALL. 
CALL. 
CALL 
LXI 
CALL 
INX 
INX 
CALL 
CALL 
JMP 
LXI 
CALL 
LXI 
CALL 
CALL 
XRA 
INX 
STAX 
INX 
STAX 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
CALL 
LXI 
CALL 
INX 
INX 
LXI 
CALL 
CALL 
LDAX 
Cx 
Ticx 
RAR 
JNC 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 
CALL 
LDAX 
DCX 
DCX 
RAR 
JNC 
LXI 
CALL 
LXI 
CALL 
CALL 
LXI 
CALL 


4500 ZISEOH JMP 
45190 ZISESH JMP 


O6COEH 
&»00008H 
O6B6CH 
06D23H 
B»00000H 
OSKSIIH 
06D4CH 
06D4CH 
O06COEH 
06C4EH 
Bv00004H 
O6BBSH 

[i 

D 

O06B10H 
O6BE9H 
01012H 
Bs90002H 
O6B8DH 
B,0000FH 
O6B6CH 
06CA4H 


> 


013B2H 
O6AF7H 
K»00004H 
O6BRSH 

rt 

Ii 
B»00018H 
06B6CH 
Oé6CBOH 

I 

B 

D 


0135B2H 
BR:96946H 
O6B6CH 
06C21H 
Bs00000H 
O6BS8DIH 
06COEH 
RrO00FFH 
O6B6CH 
06CC46H 

Dh 

B 

I 


O1S3E9H 
K»00000H 
OS6B8IH 
By 00004H 
06B6CH 
06C4EH 
R»00000H 
OS6BBSH 
O111FH 
06C235H 


Listing 2: 8080 Run Time Routines for 
Object Code 


0000 
0000 
0000 
6700 
69035 
6903 
6903 
6903 
6903 
6903 
69035 
S903 
49035 
6903 
6903 
69035 
65903 
69035 
6903 
&90A 
690B 
6908 
6900 
&90F 
6915 
S91E 
S91F 
692B 
692C 
6937 
6933 
469435 
E946 
&949 
694C 
E&94F 
6952 
6955 
6933 
E959 
6954 
695K 
693C 
69S 
69SE 
69SF 
49750 
6961 
6962 
69635 
E964 
6965 
5966 
£967 
4943 
E949 
596A 
696E 
&96C 
6960 
696E 
S&96F 


C3 46F 6D 


* RUN-TIME ROUTINES FOR PASCAL OBJECT CODE 


OSEQ EQU ZADH 
BYTE1 EQU OAI1H 
BEOUT1 EQU OAOCH 
BLKi EQU O0A0DZH 
CLEAR EQU 9FDH 
POS EQU OCOEH 
POS1 EQU 727FH 
MENTR EQU 7390H 
ABLUF DS 7 
SFLG BS 1 
SIGN EQU SFLG 
STK2 DS 2 
BBR DS 2 
SMi DOB ’” STACK’ 
SM2 DB ”“ OVERFLOW’ 
TR 13 
MERI DR ’” INPUT ERROR’ 
OB 13 
MER? DB ’” SIZE ERROR’ 
DEB 13 
DMI DB ’” BIVIDE CHECHK’ 
DB 13 
EXIT CALL CRLF 
LHLGO FOS 

SHLD POS1 

JMP MENTR 
PRINT CALL OSEQ 
JMP CRLE 
POP XCHG 

MOV CsM 

DCX H 

MOV EBs 

TCX H 

MOV Es 

DCX H 

MOV DsM 

XCHG 

RET 
PUSH XCHG 

MOV MoD 

INX H 

MOV MrE 

XCHG 

RET 
POP1 XCHG 

MOV EsM 

DCX H. 

MOV DsM 

DCX H 

XCHG 

RET 
NEGH XRA A 


Pascal 


235 


6970 
4971 
6972 
6973 
6974 
69735 
6977 
6973 
6979 
697C 
697F 
6982 
6983 
6984 
49383 
6986 
6937 
6938 
S938A 
693E 
6938C 
&93F 
4990 
E991 
4992 
E993 
E994 
E995 
E996 
E997 
E997A 
499R 
E&99E 
E&9A1L 
E&9AS 
E&9AG6 
E9ASB 
69AR 
697A 
S9BO 
69B2 
S&9BS 
69BS3 
S&9B9 
5&9BA 
69BR 
69RD 
S9RE 
6&9BF 
69C1 
69C4 
&9C7 
&69C9 
69CC 
69CE 
69D1 
69013 
69D4 
6905 
69T6 
69019 
690DB 
69DE 
69DF 
S&9E0 
69E5 
69E4 
69ES 
69E8 
S9EA 
69ED 
697EE 
S9EF 
69F2 
E&9F 4 
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AD USSR SAS MENMIEMS UNG OMS MSMEMR ASA QS ARAQNS ORES SSH SR QONO RES RASS 


ae 


79 


69 
69 
6&9 


6&9 


oc 


oc 
69 


oc 
69 
69 


5&9 
oc 


69 
oc 


69 
69 


69 
oc 


69 


é&9 


oc 


&é&9 


CMD MOV AsD 


Hs» ABUF 


DCR C 


SASHES ENS ESR 
gbrngger bes 
g 0 


AVIIR man a 


0A 


CPI “-- 
STA SFLG 


éAS7 
6ASS 
6ASE 
6ASC 
SASF 
SAP1 
SAP4 
AIS 
SAIS 
65A97 
SAVA 
SATE 
SA9T 
SADF 
SAAZ 
SAAS 
6AAB 
SAAR 
SAAE 
SAB1 
SAB2 
GARS 
SARS 
6ARS 
6ABSG 
6ARP 
6ABA 
SABER 


00 


DS 


S&F 


SF 


$$ § 


69 


&9 
00 


$$ 


6&9 


&9 


oc 


DIViIG MOV AsB 
ORA C 


285 
Re UUMee 


: 
ri 


STESAE25 GEE AE, 
wD neg 


4B02 
65803 
SB0S6 
S4B07 
SBOA 
SROER 
SEOC 
SBOD 
6B10 
6B13 
46RB1i4 
S5BiS 
SBISG 
SBLI7 
SBiS 
SBIE 
SBI 
6B20 
6B23 
6R26 
6EB29 
6B2E 
6E2C 
SB2T! 
S5E2E 
SEB2F 
6E32 
SRSS5 
S5E356 
S5E37 
SEBSA 
SBSE 
S6ES3C 
S5B30 
5E40 
SER41 
6R42 
6ER43 
SE46 
S5B47 
S5EBh43 


‘GR49 


SRB4A 
SH4E 
S5R4E 
SR4F 
6EBS2 
SESS 
SEE4 
S5RS7 
6833 
SEBS 
SEBSC 
SBSIE 
6ESE 
SBS61L 
6R62 
SB63 
5864 
SB63 
5B55 
SEHS6/ 
SBSA 
SBSE 
S5B6C 
SEBS 
SBSE 
SBSF 
S5R70 
5B71 
6B72 
6B73S 
6B74 
5B73 
6573 


11 


11 


van 


FA 


OB 


oc 
69 


é9 
&9 


6B 


oc 


69 


oA 


OF 


oc 


65 


FF 


6B 


69 


2880 
2870 
2700 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3O1L0 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
30970 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
33350 
3340 
3350 
3360 
3370 
3380 
3370 
3400 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 


0220 


Y¥3 LXI Bsid 
CALL DIV16 
MVI Az350H 
ADD E 
PUSH P 
MOV AsH 
ORA L 
JNZ YS 
FOP P 

WR CALL OUTP 
FOP P 


SYS4 PUSH I 
CALL HEXIN 
XCHG 
POP Of 
INX D 
JMP PUSH 

SYSS LIDAX UD 
MOV LsA 
nex BD 
LDAX TD 
rcx oO 
CALL BYTEL 
MOV ArL 
JMP BYTEL 

SYSS FOP H 
MOV AsM 
CALL OUTP 
INX H 
DCR C 
JNZ SYSS+1 
PCHL 

BRASE PUSH I 

BS1 LXI Dsv-S6 
AD O 
MOV Es 
nCxX H 
MOV Dsl 
XCHG 
DCR A 
JNZ BS1i 
POP DB 
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6B79 
&B7A 
6B7T! 
6BS0 
6RS1 
6BS4 
S887 
é6éRBB8A 
é6BS0r 
S5R90 
SEL 
6B92 
SBIS 
S894 
SEIS 
SRBIS 
SB97 
SEIS 
SB99 
SBIPA 
6RIVE 
SB9E 
SB9F 
SBA2 
SBAS 
&BA4 
SBAS 
SEAS 
SBA? 
SBAS 
SBA? 
SBAC 
SBAF 
6BRB2 
S6BES 
6BRS 
SBE? 
SERA 
SBER 
SBEC 
6BED 
SBRE 
SBRBF 
SBCO 
S6BC1 
6BC2 
6BCS 
SBC4 
6BCS 
SBCSG 
6BC/7 
6BCS 
&BC9 
SBCA 
6BCER 
46BCC 
6BCI 
6BCE 
SBCF 
SBD0 
6B01 
SB4 
6BDS 
6BUS 
SB 
SBDA 
6éBDR 
6BDC 
SBO00 
SBOE 
6BE1 
SBE2 
SBES 
6BEG 
SBE9 
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on 


rar) 8 


oD 
aL 


ob 


59 


6B 


6&9 
SB 


6&9 


=i 6B 
EE 6B 
oD 69 


RNC 
STROV LXI HsSM1 


JMP EXIT 
LODI LHLD BB 
CALL BASE 

JMP $43 
LOD LHLD BB 
INX D 

DAD B 

DCX H 

MOV AsM 
STAX D 

INX H 

MOV AsM 
INX 0D 
STAX 2D 
RET 
LODX XRA A 
LODX1 LHLD BB 


JMP LOD+4 
STO1 LHLD BE 
CALL BASE 

JMP $43 
STO LHLO BB 
DAD B 
LDAX DB 
MOV MsA 


nCX H 
nIcx DB 
LDAX D 
MOV MsA 
ncX D 
RET 


STOX XRA A 
STOX1L 


DAD H 


SEE: 
gee. 


UEP EELS: 


6BREC 
SBET 
6BEE 
SBEF 
SBFO 
SEF 1 
6BF2 
6BFS 
SBF 4 
SBFS 
SBFS 
SBF? 
SEBFS 
SBF? 
SEFA 
SBFR 
SEFC 
6BFII 
SBFE 
6BFF 
6000 
S6C01 
6C02 
5003S 
6C04 
6005 
6006 
6C07 
6C0S 
6009 
éC0A 
6C0n 
SCOE 
45C0F 
6C10 
éC1i1 
6C12 
6C14 
é6Cis 
6C16 
é6C17 
6C18 
éC197 
SC1A 
S6SCiB 
é6C1ic 
S6C1iF 
6C20 
6C21 
6C24 
6C235 
6028 
6C2E 
6C2C 
6C20 
6C2E 
6C2F 
6050 
60335 
6034 
6CSS 
6CS6 
6C37 
6C3E 
6CSE 
6C3C 
6C3I 
6C3E 
6C41 
6C42 
6C43 
6C44 
6C45 
6C46 
6C47 


on 69 


00 


63 


FR 


oD 


FA 


é9 


69 


é9 


69 


“ “ 
m © 


“ 
wo 


g 
Wstsreogeooeosrsat 
0 


. 


< 
TLSLEIOO 
Oo 


SHLD BE 


POO LHLD BR 
LAT Des—-S 
DAD D 


SUBI1 CALL NEGB 
ADDLG MOV Ass 
SU2 XRA H 


0S 


DF 


DF 


69 
69 
&9 
éC 
&9 


éC 
éC 


éC 


éC 


é9 


00 
é6C 
é6C 


69 
69 


6A 


69 


é9 


oA 


69 


69 


é6C 


6C 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1630 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2250 
224oO 
220 
2260 
2270 
2280 
2290 
2500 
23510 
2320 
23350 
2540 
25u0 
23560 
2370 
2380 
23590 
2400 
2410 
2420 
2430 
2440 
2450 
2450 
2470 


JP PUSH 


JMP 


OVFL 


PO2 CALL POP 


JMP 


ADDLS 


POS CALL POP 
SUB14 MOV Ask 


SUI 
ORA 
JNZ 
MOV 
JMP 
POL 
XRA 
SUB 
MOV 
MOV 
nex 
SBB 


80 
os 
SUBI 
AsC 
SU2 


ACHG 


ray 
mM 
MsA 
CrxA 


MVI Ds8 
H 


$t1 

B 

BD 
MULS+2 


PO4 CALL POP 
PUSH 2D 


MOV 
MOV 
LXI 
ORA 
CNZ 
MOV 


AsH 
Esl 
Hs0 
A 
MULS 
AvE 


CALL MULS 


FOP 
JMP 
FOS 


D 
PUSH 


CALL POP 


FUSH 2D 
CALL DIV16 


FOP 
JMP 


D 
PUSH 


POS LDAX 0D 


ANT 


1 


STAX BD 


ARA 
DCX 


A 
DB 


STAX D 


INX 
RET 


0 


PO7 CALL POP 
PUSH D 

CALL DIVI6 
XCHG 


POP 
JMP 


DB 
PUSH 


POS MVI Avi 
EQUAL PUSH P 
CALL POP 


ARA 


A 


STAX OU 


INX 
MOV 
CMP 
JNZ 
MOV 
CMP 
JNZ 
TRUE 


| a 

AsL 
FALSE 
AsvH 
EB 
FALSE 
POP PF 


STAA D 


6015.70 


6016 
6017 
40138 
6019 
SOLA 
SLE 
601C 
601T 
S501E 
SD1F 
60:20 
6021 
6022 
6023 
6025 
6027 
6028 
60275 
602E 
6012F 
6D30 
60335 
6036 
6039 


AL 
13 
12 
Cc? 
1A 
2F 
i2 
1k& 
1A 
ed 
12 
13 
Cc? 
5 & 
AF 
Si 
CA 
FA 
a? 


oD 


E4 


C3 


Oo1 


C3 


EF 


O1 


00 
Cr 
Oo1 
cn 
O1 
Cc 


vars = 


C2 2E 


C3 
CB 
AF 


é&9 


éC 


é6C 


é6C 


o1 
é6C 
00 
6C 


é6C 
69 


69 


2430 
2490 
2I00 
2310 
220 
250 
2oIt0 
sO 
250 
2u7 0 
23380 
2370 
2500 
2610 
2520 
2630 
2640 
2650 
2550 
2470 
2580 
2590 
2/90 
2710 
2720 
2730 
2740 
2730 
2750 
27709 
2780 
2790 
2800 
28310 
2820 
2330 
2B40 
2850 
2350 
28370 
2830 
2890 
2700 
2<?10 
2P20 
239 
=F40 
2950 
2750 
2770 
2980 
2790 
35000 
35010 
3020 
3035 
5040 
3050 
3040 
3070 
5080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3169 
3170 
3180 
3190 
3200 
3210 
5220 


RET 
POS XRA A 
JMP EQUAL 
P11 MVI Bz0 
MOV CsE 
LESS PUSH 5 
CALL FOP 
xARA A 
STAX I 

INX I 

MOV AvH 
CMP B 


EQH MOV AsL 
CMP C 

JC TRUE 
FOP B 


Pi0 LXI Bsid0H 
JMP LESS 
Pi2 LXI Bri 
JMP LESS 
Pi3s MVI Berl 
JMP LESS-1 
FPi4 CALL POP 
MOV AvH 

ORA EB 

STAX I 

MOV AsL 

ORA C 

INX II 

STAX Of 

RET 
PiS CALL POP 
MOV AvsH 

ANA EB 


P1ié LOAX D 
CMA 

STAX DU 
DCX D 


Pi7Y CALL POP 
XRA A 

ADD C 

JZ PUSH 

JM SRI 

SLi DAD H 
DCR A 

JNZ SLi 

JMP PUSH 
Pi8 CALL POP 
XRA A 


239 


603A 
6035 
605E 
6041 
6D42 
6043 
6D44 
6045 
6D46 
6047 
6D43 
6049 
SD4A 
6040 
6050 
6031 
60535 
6074 
6053 
6056 
6057 
6033 
60359 
605A 
605K 
6050 
S60DSE 
é603F 
6060 
S061 
6D62 
60463 


240 


O1 


69 
60 


60D 
69 


3250 
5240 
3250 
5260 
3279 
3280 
32970 
33500 
3510 
3320 
3350 
3540 
33550 
3360 
3379 
3380 
33970 
35400 
5410 
3420 
5450 
5440 
3450 
5460 
54790 
5480 
3490 
3300 
353910 
3520 
3350 
5340 


6064 
S165 
6066 
6067 
6046S 
4069 
S0D6A 
S06E 
60D6C 
6060 
SD6E 
6&0D6F 
6070 
6072 
6073 
6D76 
6079 
607A 
6070 
6D7E 
é6éD381 
60382 
60835 
6084 
6087 
6033 
6039 
608C 
6080 
é6038E 
S603F 
6D70 


oD 


OB 


v2 
oc 


00 


é9 


69 


69 


Listing 3: P-Code to 8080 Translator 


6090 0010 
6D90 0020 
6D90 0030 
SA0O C3 F7 64 0040 
SA0S 0050 
SA0S 0060 
SA0S 0070 
SA0S 0080 
SA0S 0090 
SA0S 0100 
SA0S 0110 
SA0S 0120 
SERFS 0130 
S089 0140 
SF1iB 0150 
SF39 0160 
SF7S 0170 
SF75 0180 
S77 0190 
SF79 0200 
SF7B 0210 
SF7U 0220 
STF 0230 
SFSi 0240 
=FSs 0250 
5FS4 0260 
SF85 0270 
SFBS 0280 
SFS7 0290 
=5F3s 0300 
Sra? 0310 
SFSB 0320 
SFen 0330 
SFSF 0340 
SFP1 0350 
SFOS 0360 
SFOS 0370 
SFO7 0380 
SF9O9 0390 
SFOR 0400 
SFO 0410 
SFOF 6C 02 0420 
SFAL Sn 02 0430 
SFAS 84 02 0440 
SFAS 9A 02 0450 
SFA7 9B 02 04.40 
SFA? OE 03 0470 
SFAB RS 02 0480 
SFAD AC 02 0490 
SFAF C1 02 0500 
SFRi C2 02 O510 
SFBS 19 03 0520 
SFRS ES 02 0550 
SFB7 DE 02 0540 
SFB? 21 03 0550 
SFBR 73 02 05460 
SFRD 25 03 0570 
SFBF 62 03 0580 
SFC1 4£ 03 0590 
SFCS 54 03 0600 
SFCS 7B 03 04610 
=FC7 90 03 0620 
=FC? 9B 03 0630 


*x P-CODE TO 8080 TRANSLATOR 
ORGA2 EQU SA00H 

ORG ORGA2 

TRANS JMP ORGA2Z+0AF7H 
O2 EQU 21 

S1 EQU S00 

S2 EQU 400 

PCDEF EQU 2COOH 

OBDEF EQU 1000H 

STK1I EQU O 

STAK2 EQU RUN-1 

TST DS Sitt 

DST DS S2t+1 

FA DS S2+2 

Yi2 DS 30 

Zi2 DS 38 

AST DS 2 


aT TT Manel 1-1- 
PROBE Raa a 
WYNN NNNN 


<EECZOCOAAGH 


3 
- 


DW LIT—-RUN 
LOD—RUN 
LOD1I—RUN 
LODX—RUN 
LODX1—RUN 
LODA—RUN 
STO—RUN 
STO1—RUN 
STOX—-RUN 
STOX1—-RUN 
STOA—RUN 
CAL—RUN 
CAL1—-RUN 
CALA—-RUN 
INT—RUN 
DW POO—-RUN 
PO1—-RUN 
PO2—-RUN 
POS—RUN 
PO4—RUN 
FPOS—-RUN 
FOé6—-RUN 


EPPPSEE geese 


PEEP EROS 


Routines 


241 


co 
ES 


co 


. 44 


43 


4A 


41 


AD OS 


~O0 6A 


43 


43 


0640 
06350 
0660 
0670 
06380 
0670 
0700 
0710 
0720 
0730 
0740 
0730 
0760 
0779 
0780 
0770 
0800 
0810 
0820 
0830 
0840 
o8So0 
0360 
0870 
08go0 
0870 
097090 
o?710 
09720 
0950 
09740 
0950 
0960 
0970 
09730 
0790 
1000 
1010 
1020 
10350 
10490 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
11350 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


1210 
1220 
1230 
1240 
12350 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1530 
1340 
1350 
1360 
1379 


Citd 
Tit 
Tit 
Tit 
Tih 
LitJ 
Cit 
rw 
Ci 
Cit 
itd 
Lig 
Cild 
Tit 
} a 
Tw 
Ti 
Titd 
Tit 
itd 
Titl 
Tit 


PO7—RUN 
POS—RUN 
FO9—RUN 
FP10—RUN 
P11—-RUN 
P12—-RUN 
F13—-RUN 
P14—RUN 
P1is—RUN 
P16—RUN 
P17—RUN 
FP18—-RUN 
FP19—RUN 
FP20—-RUN 
P21—-RUN 
SYSO—-RUN 
SYS1—-RUN 
SYS2—RUN 
SYS3—RUN 
SYS4—RUN 
SYSS—RUN 
SYS8—RUN 


GOMSG DE 12 


ne 
OB 
ng 
TE 
ba} E 
Tw 


7 *KKKK FP-CODE TO S080 TRANSLATION 314K" 
13 

? 

“ADDRESS OF RUNTIME MODULET ” 

13 

RUN 


FPCMSG DE 


ja} S 
DB 
Tit 


‘P-CODE START ADDRESST ’ 
13 
PCDEF 


DSTMSG OB 9 


DE 
Dg 
DW 


“OBJECT—-CODE START ADDRESS? ” 
13 
ORDEF 


STKMS1 DB 


a) 
OB 
DW 
Dw 


“STACK START ADDRESS? ” 
13 

STK1 

STAK2 


STKMS2 DE 9 


18) = 
DE 
Tit 


REF MSG 


DE 


DEB 


“STACK END ADDRESS? ” 
13 
STAK2 
DB ” REFERENCES’ 
13 

DB ” DIFFERENT LABELS’ °: 


DB ” FORWARD REFERENCES’ 
DB ” P-CODES TRANSLATED (TOTAL ” 
BYTES )” 

BYTES OF OBJECT CODE PRODUCED — CODE E 


13 


HOCMP MOV AvH 
CMP 0 


Avi 


SUB E 


OGRA A 


ARA A 

INR A 

RET 
ADDRIN CALL OSEQ 
FUSH H 

CALL HEXIN 


6144 
61435 
6146 
6147 
6143 
S14E 
S614C 
S140 
S14E 
S1L4F 
6152 
61355 
61356 
61357 
61353 
6158 
615C 
6150 
S135E 
SLISF 
6150 
S161 
6164 
S155 
6163 
51697 
616A 
S6145HB 
S616C 
S1LS6F 
6170 
S171 
6172 
6173 
6175 
S176 
6179 
S174 
6178 
617C 
617F 
6180 
6181 
6182 
6184 
6137 
61897 
618H 
S18E 
61971 
6193 
6196 
6199 
S19HR 
S197E 
SLISF 
S1A2 
61AS5 
61AS 
S561AS 
S1AP 
SLAC 
S1AE 
S61B1L 
61B2 
SLES 
61BS 
S61B9 
S1BA 
SLBB 
S1 BC 
SLB 
S61 BE 
S61CL 
61C4 


FS 


7D 


ik 


70 


83 


SE 


é1 


6&1 


61 


61 


61 


133890 
1390 
1400 
1410 
1420 
14350 
1440 
1450 
1460 
1470 
1430 
1490 
1500 
is10 
1520 
1530 
15490 
1550 
1560 
1570 
1iS80 
1S90 
1400 
14610 
1620 
1439 
1640 
1650 
1460 
1470 
1680 
1690 
1700 
1710 
1720 
1739 
1740 
17350 
1760 
1779 
1780 
1790 
1800 
1810 
1820 
18350 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
19769 
19790 
19380 
1990 
2000 
2010 
2020 
2050 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 


POP H 
MOV AvE 
ORA UD 
FUSH FP 
JNZ $47 
INX H 
MOV Est 
INX H 
MOV [tym 


CALL DEOUTL 
CALL CRLF 


MOV MsB 
INX H 
MOV MsC 


DCR A 
ADIL A 
AnD tL 
MOV LsA 
JNC $+1 
INR H 
MOV Crit 
INX H 
MOV Dei 
JMP FNG 


x LIT 
L800 LXI 


MOV AsM 
INX H 
ORA M 
JZ LS8so 
MOV Ds 
DCX H 
MOV CoM 
MVI Berl 


FNG LHLD PT 


FNGQ LAI Hr¥1i2 


HeyC1 


CALL FNG 


MVI Av1 


MVI Bs205 


JMP FNQ 


L350 LXI B»0AF 13H 
MVI DiS 
CALL FNG 


LAI Bril312H 


MMVI Disd 


x OFR 
L850 LAI Hs205 


SHLII J 
LTA C1 
CPI 4 
JP LSeyvo 
ORA A 
JZ L8ess 
LHL xX 
nCX H 
DCX H 
rcx H 
UCcxX H 
MOV AsM 
ORA A 


JNZ LEBVO 


LDA C1 
CPI 2 


6106 
S1C7 
61CC 
é61C0 
61CE 
61CF 
6100 
6101 
61012 
6103 
61035 
6106 
6107 
6103 
61097 
61DB 
61DC 
6100 
S61E0 
S1EL 
S1E2 
61ES 
SIES 
S1E7 
S1ES 
S1EA 
S1E0 
S1EE 
S1F1 
S1F 4 


G61FS 22 


61FS 
S1FB 
S1FC 
SIFF 
6201 
620 4 
6205 
6203 
6209 
620C 
620F 
6212 
6213 
6216 
6218 
6215 
621E 
6210 
6220 
6223 
6225 
6229 
622A 
622K 
62201 
6230 
62351 
62352 
62355 
6233 
62354 
6230 
6240 
6241 
6244 
62435 
6243 
6245 
624C 
62410 
6250 
62353 
62355 
62359 


np 
7D 


O1 


00 


61 
a 


2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
22a 
2250 
2240 
2250 
2260 
22/9 
2280 
2aFPO 
2500 
2310 
2520 
2530 
2540 
2350 
23560 
23579 
2539 
2590 
2400 
2410 
2420 
24350 
2440 
2450 
2460 
2470 
2430 
2APO 
2300 
2510 
2320 
23350 
240 
20 
2350 
our) 
2380 
270 
2600 
2610 
2020 
2530 
2640 
2650 
2660 
26/09 
2630 
2690 
2709 
2/10 
2? 20 
27350 
27 40 
2739 
2/760 
27/9 
2/80 
27990 
2800 
2310 
2820 
2830 
2340 
2850 
2350 
2370 


LXI Bs-S 


DAD EB 
SHLD PT 
LHLD J 
MOV Berl 
LDA C1 


L900 MVI 


STA F 


L925 LXI 


SHLD J 
LHLD X 
INX H 

MOV Leh 
MUI HO 
SHLD LO 
MOV ArL 
INR A 


JZ 1040 


JP LYSO 
LHLO Li 


Hy 4 


244 


a a 
él 


AN 


ACHG 
LHLDD LO 
CALL HDCMP 


JNZ 


L9YSO 


LHLD X 


DCX 
LDA 
CMP 
JNZ 
DCX 
LDA 
CMP 
JNZ 


H 
C2 
mM 
L930 
H 
C1 
M 
L9SO 


PUSH H 
LHLD K 
SHLD Ki 


POP 
DCX 
DCX 
MOV 
CPI 


H 
H 
H 
AsM 


= 


JZ L9Y20 


LXI 
MVI 


Bsi1313H 
Dsd 


CALL FNG 


DCX 


H 


SHLD PT 


RET 
L920 
MUI 
JMP 
L9YSO 
DAD 
MUTI 


MVI Bs205 
As37 


SHLD PT 
L1040 LDA F 
LHLE J 


ADD 
MVI 
JMP 


L 
Bs205 
FNQ 


x STO 
L1100 MVI A»7 


STA 


F 


62FC 
62FF 
6301 
6303 
5306 
5309 
630A 
6300 
530F 
6311 
6314 
6316 
6319 
6314 
631C 
S631F 
6320 
63235 
6325 
6327 
632A; 
6320 
6320 
63350 
63351 
63532 
53355 
63383 
63539 
633C 
633E 
6341 
6342 
6345 
53456 
6349 
634C 
6354F 


6352 


6355 
6333 
6355 
6335E 
635F 
6362 
6363 
6364 
6365 
6366 
63567 
6368 
6369 
6356B 
636C 
636F 
6372. 
6373 
6374 
637355 
6376 
6379 
637C 
637F 
6382 
63385 
6386 
6387 
638A 
6338D 
53970 
6391 
6392 
6395 
63983 
5399 


O1 
97 


A AAAISAHA A Wg 


4 


0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
O510 
0520 
0530 
0540 
0550 
0560 
0570 
0530 
0590 
0600 
0410 
0620 
0630 
0440 
0450 
0460 
0470 
0480 
04690 
0700 
0710 
0720 
0750 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 


JNZ L1225 
MVI Bs205 
MVI Avi2 
CALL FNQ 
JMP L1260 
Li225 INR A 
JNZ 1230 
MVI Bs205 
MVI Av14 
JMP FNQ 
Li230 MUI Bsé2 
LDA LO 

MOV CrA 
MVI Dsv0 
CALL FNG 
DCX H 

SHLD PT 
MVI Bs205 
MUTI AvilS 
CALL FNQ 
JMP £1260 
x JMP 
Li250 LHLD K 


11260 CALL S1300 
MUI Bvi19S 

LDA I 

MOV CA 

LDA J 

MOV DA 

JMP FNG 
$1300 LHLD Cl 
SHLD AST 

LXI Hei 

SHLI I 

LHLD WO 

SHLD J 
L1320 
ACHG 


J 
DAD D 
ARA A 
ORA H 


ORI 1 

MOV LrA 
SHLD N 
LXI D»sTST 
DAD D 

MOV EsM 
INX H 

MOV DsyM 
LHLDO AST 
CALL HDCMP 
JZ 1360 
JP +11 
LHLD N 
DCX H 

DCX H 
SHLD J 
JMP L1350 
LHLD N 
INX H 

INX H 
SHLD I 
Li3sS0 LHLD I 
XCHG 

LHLO J 


639C 
E39F 
63A2 
63AS 
63A8 
E3AP 
E35AA 
63AER 
63AC 
63AF 
6382 
63B5 
63583 
635E9 
63BC 
6380 
63C0 
63C1L 
63C2 
6305 
6306 
63C7 
635C8 
63CF 
63CA 
63C0 
63CE 
6300 
6303 
6304 
63D7 
6308 
6350B 
630C 
630F 
63E0 
63E3 
63E6 
63E7 
63E8 
63E9 
63EA 
63EC 
63EF 
63F0 
63F 35 
63F 4 
63F 4 
635F7 
63F3 
63F9 
63FA 
63FB 
63FE 
6401 
6404 
6407 
640A 
6400 
6410 
6411 
6414 
6417 
6413 
6419 
6414 
6410 
6420 
6421 
6424 
6427 
6428 
6429 
642E 
642C 


ve 


97 SF 


4 


"| 


| 


aq 4 4S 


C 


4 


090 
var a 


0860 
0870 
o88o0 
0890 
0700 
o710 
0920 
0930 
0940 
0950 
09650 
0970 
09380 
o790 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
L250 
1260 
1270 
1280 
12970 
1300 
1310 
1320 
13350 
1340 
13350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
L520 
1530 
1540 
1550 
1540 
1570 
1580 
1590 
1600 


CALL HDCMP 
JP £1320 
Li3é60 LHLD N 
LXI DsDST 
DAD D 

MOV Es 

INX H 

MOV DsM 

LXI H:2020H 
CALL HDCMP 
JNZ £1400 
LHLD G 

INX H 

SHLI G 

DAD H 

LXI DsEA 
DAD UD 

XCHG 

LHLD PT 


CALL NEGH 


JC Lis30 
LisiS XCHG 
LXI Hi? 
SHLO J 

XCHG 

MOV AsH 

ORA A 

JP Liszo 
CALL NEGH 
XCHG 

LXI H:27 
SHLD J 

XCHG 

LiS20 MOV AsL 
ANI OFEH 
MOV LeA 
LiS21 MOV AsL 


FA 


64 


CALL. FNG 
DCX H 

SHLD PT 

POP H 

DCX H 

DCX H 

JMP Lis2i 
Lis30 MOV CrL 


MVI Cr27 
MOV DeC 
CALL FNG 
MVI MsS1 
INX H 
SHLD PT 
CALL 51300 
MVI Bs210 
LHLD X 


*x CSP 
Lié600 LDA Cl 
ADI O2 
INR A 
PUSH P 
LDA Cl 
CPI Ss 

JZ 11620 
FOP P 

ADI 16 
MUTI Bs20S 
JMP FNQ 
Lié20 LHLD X 
OCX H 

BCX H 

MOV Ls 
MVT Hs0 
SHLD J 
CALL NEGH 
DAD H 

MOV EsyL 
MOV DsH 
DAD H 
PUSH H 
DAD D 

LXI Ds-S6 
DAD 0D 


245 


5456 
5457 
S4BA 
544BE 
545EE 
S4EF 
54C2 
6403 
5404 
64CE3; 
64C8 
64CA 
464C0 
54CE 
64T10 
6403 
5404 
6407 
641018 
64014 
645C 
640F 
S4E0 
S4E3 
64E4 
54E7 
S54ES 
S4ES 
G6AEF, 
S4ER 
54EC 
S4ETt 
54EE 
54EF 
b54F2 
54F 35 
54F6 
S4F 7 
64F7 
54FS3 
S4F 4 
64F 
6500 
6502 
650 3 
S650 4 
6505 
5506 
6509 
650C 
630F 
6512 
6513 
6516 
6519 
6514 
65171 
6520 


6522 


6525 
6524 


6525 


6526 
6527 
6528 
6529 
652A 
652B 
652C 
6520 
652E 
652F 
65,50 
6531 
65352 
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41 4 4 


4 4 


4 2 


14 2 


SP Oa oda Sad 


2360 
23790 
23580 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2440 
2470 
2480 
2470 
2300 
210 
220 
250 
2540 
20 
2350 
2/79 
2d 
270 
2600 
2510 
2620 
2530 
2640 
2650 
24560 
2679 
24580 
2O70 
27900 
2710 
2720 
27350 
2740 
2/30 
27640 
27790 
2780 
2790 
2300 
2810 
2320 
2330 
2840 
2850 
2860 
2370 
2880 
28390 
2700 
2710 
2920 
2P5O0 
a FP4O 
2950 
2740 
2770 
2780 
2990 
5000 
5010 
3020 
5030 
5040 
5050 
5060 
5070 
35080 
3090 
3100 


XACHG 
LHLD PT 
DAD DBD 
SHLD PT 
FOP D 
LHLD X 
DAD D 
DCX H 
DCX H 
SHLD X1 
MVI Bsi4 
LDA J 
MOV CrA 
MVI Ds0 
CALL FNG 
DCX H 
SHLD PT 
FOP P 
ADI 14 
MVI Bs205 
CALL FNQ 
ACHG 

LniA J 
MOV CrA 
LHL X1 


L1640 MOV AsM 


STAX It 


be 

< 

< 
POLL LIo 


1640 
ACHG 
SHLEID PT 
RET 


*X MAIN PROGRAM 
BEGIN XRA A 


OUT 4 
LAI Hy TST 
LAI Os YST-TST 


ZERO MVI M70 


INX H 

TCX 0 

MOV AsE 

ORA 

JINZ ZERO 
LXI HsGOMNSG 
CALL OSEQ 
CALL CRLF 
INX H 

CALL ADDRIN 
SHLO ROST 
FUSH H 

LXI OrY1i2 
LXI HsyYST 
MVI Av44 


SETL MOV CoM 


INX H 
MOV Bsit 
INX H 
XTHL 
PUSH H 
DAD B 
XCHG 
MOV MsE 
INX H 
MOV M*D 
INX H 
XCHG 
POP H 
XTHL. 
DCR A 
JNZ SETL 


65.35 
6536 
6559 
653C 
65.3F 
6542 
6545 
6548 
6545 
654E 
G6oSL 
6555 
63556 
6559 
6558 
655E 
S561 
6554- 
65655 
6568 
5569 
656A 
656H 
656C 
6355IL 
656E 
6571 
657 4 
6577 
657Fi 
6571! 
657F 
6530 
6531 
6504 
6538S 
6586 
65937 
653A; 
658LE 
6570 
6572 
6359S 
6394. 
6597 
63783 
6597HR 
659°R 
657E 
635AL 
65 A4 
65AS 
E5AS 
635A 
65 AA 
65ABR 
65AC 
é65AD 
S5AE 
6SE0 
65B3 
6585 
658 
658A 
6580 
6SBE 
65EF 
65C0 
65C1 
65C2 
65C5; 
63505 
65C7 
65CA 
65C0 


7B 


9B 
OS 


| 


89 


3110 
3120 
3130 
3140 
S150 
3160 
3170 
3190 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3440 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
00970 
0100 
O110 
01270 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 


POP H 

LXI HsPCMSG 
CALL ADDRIN 
SHLD X 

SHLD X0 

LXI HsDSTMNSG 
CALL ADDRIN 
SHLD PO 
SHLD FT 

LXI BsrOAFDOSH 
MUI DOv4 
CALL FNG 
LXI Bs35100H 
MUI Dyv10H 
CALL FNG 
LXI HsSTKMS1L 
CALL ADDRIN 
PUSH H 

JINZ $+9 
XCHG 

INX H 

MOV Estt 

INX H 

MOV Dstt 
XCHG 

JMP $+6 

LXI HsSTKMNS2 
CALL ADDRIN 
CALL CRLF 
CALL NEGH 
MUI BKreil7 
MOV CsL 

MOV DsH 
LHLO PT 

INX H 

INX H 

INX H 

SHLIX PT 
CALL FNG 
LHLDO BOST 
MVI Bs205 
MOV CrlL 

MOV DsH 
CALL FNG 
POP H 

SHLD BOST 
K FIRST FASS 
L400 LXI Heyl 
SHLD W 

LHLD xX 
L420 MOV AsM 
INR A 

JZ L470 

INX H 

INX H 

INX H 

INX H 

DCR A 

CPI 4 

JC L420 

CPI S 

JZ L420 

CPI 8 

JNC L420 
PUSH H 

DCX H 

MOV Bs 

ncx H 

MOV C7 
LHL W 

INX H 

INX H 

SHLD W 

LXI Ds TST 
DAD 


65CE 03500 DCX H 4D 56 1050 JMP L490 
65CF 0310 MOV MrB 1040 L489 FOP H 
65010 0320 DCX H 1070 L490 POP E 
6501 03350 MOV MrC 1080 MOV EvC 
6502 0340 POP H 1090 MOV DvB 
65013 A4 65 0350 JMP L420 SB SF 1100 LHLD I 
6505 77 SF 0360 L470 SHLD X 30 G1 1110 CALL HDCMP 
6509 SR SF 0370 LHLD W 0? &6 1120) JNZ L483 
650IC 0380 DCX H ap S 1130 LHLD J 
6500 0370 XRA A BRB S 1140 SHLD W 
650E 0400 ORA H 1150 L500 DCX H 
65 0F 0410 RAR 1160 DCX H 

S&5E0 0420 MOV DsH 1170 MOV CrL 
65E1 04350 MOV AvsL 1180 MOV EH 
65E2 0440 RAR Oo1 00 1190 LXT Heil 
65E3 0450 MOV EsA 8B SF 1200 LSOS SHLOI I 
65E4 0460 XCHG 1210 MOV EFC 
65ES 13 6B 0470 CALL SYSS+3 1220 MOV ItvyB 
65E8 0480 XCHG 30 61 12350 CALL HDCMP 
E65E9 0490 DCX H 79 66 1240 JZ +3 
65EA 9B SF o500 SHLD W C1 66 1250 JP L600 
6S5ETi 0510 XCHG 1260 XRA A 
SSEE AF 60 0520 \LXI HrsREFMSG 73 SF 1270 STA AST 
6SF 1 AD OS 0550 CALL OSEQ 1280 XCHG 

65F 4 FS 09 0340 CALL CRLF SD SF 1290 LSis SHLD J 
65F7 o550 XCHG 1300 XCHG 

65F8 AO 00 0560 LXI Dv160 3B SF 13510 LHLOT 
65FB 30 61 03570 CALL HDCMP 50 61 1320 CALL HDCMP 
6S5FE 3B 6&6 o580 JC L500 B5 66 13350 JZ $t+3 
6601 0390 *X PRE-COMPRESSION E2 66 1340 JF Loss 
6601 0600 MOV BrH 03 SA 1350 LXI HsTST 
6602 0610 MOV CrL 13560 DAD BD 
6603 oS 00 0620 LXI Hrs 1370 MOV EsM 
5405 SO SF 04650 SHLD J 1380 INX H 

6409 0640 L433 INX H 1370 MOV DryM 
640A 0650 INX H 14900 INX H 
660B SB SF 0660 SHLID I 1410 MOV Asm 
6450E 0670 PUSH B 1420 INX H 
&450F 03 0680 MMVI Cr 1430 PUSH H 
6611 8D SF 04690 LHLOI J 1440 MOV HyM 
6614 0700 DCX H 1450 MOV LrA 
6615 0710 DCX H 6692 EB 1460 XCHG 

6616 2B 0720 DCX H 6673 Cri 30 61 1470 CALL HDCMP 
6617 2B 07350 UCX H 66765 DA AY 66 1480 JC Loso 
6618 ES 0740 L486 PUSH H 6699 ERB 1490 XCHG 

66197 2A SB SF 0730 LHLD I 667A ES 1500 ATHL 

661C 11 03 SA 0760 LXAI Ds TST 669R 72 i310 MOV MD 
661F 19 0770 DAD 0D 667°C 2B iSs20) 6orTICX H 

6620 7E 0780 MOV Asi 6690! 73 1530 MOV MrE 
6621 23 0790 INX H 66597E UL 1340 FOP D 
6622 66 0S00 MOV Hy 669F 2B 1sS0 DCX H 
6623 6F 0810 MOV LerA 55A0 72 1360 MOV MrD 
6624 ES 0820 XTHL 66A1 2B is7O) 6=6—hrGRCX H 
6625 ERB 0830 XCHG 66A2 73 1s80 MOV MrvE 
6626 19 0840 DAD D 6643 SE FF IS?7O = MVI As-1 
6627 7E 0850 MOV Arm 66AS 32 73 SF 1600 STA AST 
6628 23 0860 INX H 66A8 ES 1610 PUSH H 
6627 46 0870 MOV Heit S56A9 EL 1620 LSS0O POP H 
64624 SF Oo880 MOV Ls»A 664A 24 SD SF 16350 LHLD J 
662H EB 0890 XCHG 6640 2B 1640 DCX H 

662C ES 0900) XTHL 666E 2B 1650 DCX H 
6620 Co SO 61 0710 CALL HDCMP 66AF C3 735 66 1660 JMP LSis 
6450 CA 43 66 0920 JZ L489? 66B2 SA 73 SF 1670 LSSS LDA AST 
64633 ERB 0930 XCHG 66B5 B/ 14680 ORA A 

6634 El 09740 POP H 645B6 CA Ci 66 1690 JZ L600 
6635 23 o7s0O INX H &56E9 2A SE SF 1700 LHLD I 
66356 23 09760 INX H 66EC 23 1710 INK H 

6637 OD 0970 BCR C 66B0 23 1720) «=4INX H 
6633 C2 18 66 0780 JNZ L486 66BE C3 62 66 1730) «6|XJMP LSOs 
6635B 22 8D SF 0770 SHLD J 64C1 21 01 00 1740 L600 LAI Hest 
6563E 01 03 SA 1000 LXI BsTIST 66C4 22 8D SF 1750 SHLOI J 
64641 09 1010 DAD B 46C7 21 03 00 1760 LXT Hr3 
6642 73 19020 MOV MrE 66CA 22 8B SF 1770 L605 SHLD I 
5643 23 1030 INX H 66C0 EB 1780 XCHG 

6644 72 1040 MOV MD 66CE 2A 9B SF 1790 =LHLO W 
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6601 
5604 
6607 
66DA 
6605 
660C 
6600 
66DE 
660DF 
&6E0 
66E3 
6&6E46 
65E7 
656E8 
&6E9 
&6EA 
6S6EB 
66EE 
66F 1 
66F2 
66FS 
S56F6 
66F7 
E&4FA 
66FLi 
66FE 
66FF 
6700 
6701 
67902 
6705 
6706 
6707 
570A 
6700 
6710 
6711 
6712 
6714 
6715 
6717 
6714 
6718 
671C 
671F 
6721 
6722 
67235 
6724 
6725 
6728 
672E 
672C 
67201 
672E 
672F 
6730 
6731 
6732 
6733 
6736 
6739 
673C 
67 3F 
673F 
6742 
6743 
6744 
6745 
6746 
6749 
674C 
674F 
67350 


67335 22 


248 


30 


03 


=) &) 
03 


SD 


4 


4 GP 


g4 


67 


uF 


1800 
1810 
1820 
18350 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
19710 
L920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2050 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
21350 
2140 
21350 
2160 
2170 
21380 
2190 
2200 
2210 
2220 
2250 
2240 
20 
2250 
22/0 
2280 
2oFO 
2300 
2310 
23520 
2550 
2540 
2550 
23560 
2370 
2380 
2370 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2480 
2490 
2300 
2310 
220 
250 
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CALL HDCMP 
Ji L635 
LXI Hs TST 
DAD D 

MOV EsM 
INX H 

MOV DsM 
INX H 
PUSH D 
LHLD J 

LXI DsTtTST 
DAD BD 

MOV EvyM 
INX H 

MOV Dstt 
POP H 
CALL HDCMP 
JZ Ld6é30 
PUSH H 
LHLO J 

INX H 

INX H 
SHLD J 

LXI DsTST 
DAD DO 

POP D 

MOV MrE 
INX H 

MOV MsD 
{630 LHLEI I 
INX H 

INX H 

JMP Lé60S 
L635 LHL J 
SHLD WO 
INX H 

INX H 

MUI Ms—1 
INX H 

MYVI My—-1 
LHL J 
DAD H 

XCHG 

LXI HsDST+1 
L670 MVI Ms’ 
INX H 

nex oO 

MOV AsvsE 
ORA BD 

JNZ L670 
LHLD J 

INX H 

xXRA A 

ORA H 

RAR 

MOV HsA 
MOV ArL 
RAR 

MOV LsA 
CALL SYS3+3 
LXI HesL_LABNSG 
CALL OSEQ 
CALL CROUT 
*x FASS 1 ENDS 
LHLD X00 
DCX H 

DCX H 

DCX H 

DCX H 
SHLD X 

LXI Hsy-1 
SHLD K 

INX H 

SHLD G 
SHLD Ki 


20 
2360 
2370 
2uso 
270 
2500 
26510 
2420 
26350 
2540 
2650 
2450 
2670 
2580 
2590 
2700 
2710 
2720 
2750 
2740 
2730 
2750 
2/79 
2/730 
2790 
2800 
2310 
2820 
28350 
2340 
2850 
2860 
23790 
2880 
2890 
2200 
2710 
2920 
2750 
2P4O 
2950 
2750 
=?7/90 
780 
2990 
5000 
5010 
3020 
39050 
5040 
3050 
3060 
3070 
5080 
3090 
3100 
3110 
3120 
31350 
3140 
35150 
5160 
3170 
3180 
35190 
5200 
5210 
3220 
3250 
3240 
3250 
35250 
3270 
3280 
3290 


SHLD Li 
INX H 
SHLD W 
LXI Hs TST 
INX H 
MOV Lest 
MVI Hrd 
SHLD U 
MYVI As20 
STA ML 


L710 LXI H»t710 


PUSH H 
LHLDID xX 
INX H 

INX H 

ENX H 

INX H 
SHLIN X 
LHLOD K 
INX H 
SHLD K 
ARA A 

STA RO 
LHLD PT 
LDA ML 
INK A 

CPI 20 

JC LIS 
CALL CRLF 
XCHG 

LHLD K 
XCHG 

PUSH H 
LXI Hr999 
CALL HDOCMP 
JC CSYS 
CALL BLAL 
LAI Hs99 
CALL HDOCMP 
JC CSYS 
CALL BLK1 
LXI Hs? 
CALL HDCMP 
JC CSYS 
CALL BLK1 


CSYS POP H 


ACHG 

CALL SYSSt+3 
ACHG 

CALL BLK1 
CALL BLK1I 
MOV AsH 
CALL BYTE1L 
ARA A 


L71iS STA ML 


MOV AvL 
CALL BYTE1 
CALL BLK1I 
LHLD xX 
MOV Avi 
STA F 

INX H 

INX H 

MOV AséM 
STA C1 

INX H 

MOV Azi 
STA C2 
LHLO U 
ACHG 

LHLO K 
CALL. HDCMP 
JINZ L765 
LHLD W 

INX H 


9B 
FS 


7U 


9B 
03 


30 
Al 


61 
68 


3300 
3310 
3320 
3330 
33540 
3350 
3360 
3379 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3470 
300 
3u10 
Ju20 
32350 
340 
JoO 
3360 
3u70 
3380 
3470 
3600 
3610 
3620 
3630 
3640 
35650 
56560 
3670 
35680 
35690 
3700 
3710 
3720 
3730 
3740 
3740 
3760 
37790 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
9110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 


INX H 
SHLD W 
LXI DsDST 
DAD OD 
XCHG 
LHLD PT 
XCHG 

DCX H 
MOV MsD 
DCX H 
MOV MrE 
MVI Aszl 
STA RO 
LHLD W 
LXI Ds TST 
DAD © 
MOV Eri 
INX H 
MOV Dem 
XCHG 
SHLD U 
L765 XRA A 
STA V 
LDA F 

CPI 9? 

JC L780 
SUIT 16 
STA F 

LXI HV 
INR M 


*X FORWARD REFERENCE CORRECTION 
L1i700 POP H 
CALL CRLF 

LHLD G 

MOV Esl 
MOV DsH 
CALL SYS3+3 
LXI HyFWOMSG 
CALL OSEQ 
CALL CRLF 
LHLD PT 
SHLD Pi 
LXI HrvEA 
PUSH H 

DAD D 

DAD D 

INX H 

INX H 

XCHG 

POP H 
L1780 INX H 
INX H 
CALL. HDOCMP 
JNC £1850 
PUSH H 
PUSH D 
MOV Es 
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250 


FS 


ver & 


" 


7D SF 


oc 
FS 


wa 61 


0? 
a 


6B 
49 


oS 


0280 
02970 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
03380 
0390 
04900 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
04380 
04970 
0500 
03510 
0520 
0530 
O=40 
0550 
05460 
0570 
0580 
035970 
0600 
0610 
0620 
06350 
0640 
04650 
0660 
0670 
06380 
0690 
0700 
0710 
0720 
0750 
0740 
07350 
0760 
0770 
0780 
0790 
03800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
08970 
0900 
0910 
0920 
09350 
0940 
0950 
0960 


Li780o 


LiSS0 LHLD BOST 


MOV AvsH 
ORA L 
JNZ $43 
LHLD Pi 
MOV CrL 
MOV DsvH 
MVI BsiS 
LHLD PO 
INX 
INX 
INX 
INX 
INX 
INX 
SHLD PT 
CALL FNG 
CALL. CRLF 
LHLD K 

MOV Esl 

MOV DsH 

CALL SYS3+3 
LXI HsFINNSG 
CALL OSEQ 
INX H 

XCHG 

DAD H 

DAD H 

XCHG 

CALL. DEQUT1 
CALL OSEQ 
CALL CRLF 
INX H 

PUSH H 

LHLD PO 

CALL. NEGH 
XCHG 

LHLD Pi 

XCHG 

DAD BD 

XCHG 

CALL BDEOUTI 
XTH. 

CALL. OSEQ 
POP 0D 

CALL. DEOUT1 
CALL CRLF 
JMP EXIT 


Os ee a ae we 


LSTBYT EQU $-1 


K1 
U 
Z5T 


STKMSL 
FUWIMSGC 


FING 
L850 
L200 
L960 
Li2z2es 
$1300 
L1400 
Lis2t 
L16290 
SETL 
L433 
LS00 
Loos 
L635 
L71is 
1780 


Symbol Table for listing 3. 


69700 
0C24 
OALL 
OCOE 
690A 
690F 
6938 
69762 
6982 
E9AS 
69F9 
6A47 
6ASF 
6ACB 
6AF7 
6523 
6B52 
6B73 
6B9A 
6BC1 
6COE 
6C3E 
6C54 
6C7B 
6CBO 
6CCA 
6CFS3 
SD0F 
6036 
60164 
sA0O 
C00 
SAS 
uF 3? 
uF? 
vF StL 
JF 86 
JF SB 
SFOS 
JF 9B 
JFF7 
6092 
60DB 
6165 
61DD 
6220 
62DF 
6314 
635B 
63F4 
6444 
64E7 
6595 
6618 
6662 
66C1 
671F 
6320 
68A1 


YST 


DSTMSG 
LABMSG 
ADDRIN 


LSso0 
LSyo 
L930 
L1i200 
Li2éo0 
1.1360 
Lis2o0 
L.1600 
ZERO 
L470 
L490 
L550 
L630 
CSYS 
L.1700 
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Listing 4: P-Code Interpreter 


3000 
2000 
2900 
2000 
3000 
20035 
J006 
3006 
W005 
W005 
05 
0S 
O06 
2006 
06 
3006 
2008 
DA 
200C 
WOE 
~O LO 
wW Le 
7014 
16 
~018 
WALA 
WLC 
3 LE 
920 
WADA 
VALS 
ASC 
468 
AGA 
~46C 
AGE 
ATO 
DAS 2 
HAS 4 
aAAT7OS 
aAS 7 
DAZE 
~43C 
4 OD 
349C 
w4APD 
M4AB 
HAC 
74-B/ 
a4-BS 
SA EF 
~4C0 
HACF 
~4D0 
HADIS 
PATS 
404A, 
408 
~40F 
DAEO 
AE 
4ES 
SAF 1 


252 


4C 
4C 


0010 
0020 
0050 
0040 
0050 
0050 
0070 
0030 
0070 
0100 
0110 
0120 
0130 
0140 
01350 
0160 
0170 
0130 
o190 
0200 
0210 
0220 
0230 
0240 
0250 
02460 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0330 
0370 
0400 
0410 
0420 
04350 
044% 
0450 
0460 
0470 
0450 
04970 
0500 
0510 
0520 
05.30 
0540 
0550 
02460 
05790 
0580 
0570 
04600 
0610 
0620 
0430 


*P-—CODE INTERPRETER 

*K 1979-I-23 

ORGA EQU S000H 

ORG ORCA 

COLDST JMF ORGATOCDIH 
WARMST JMF ORGATtOES62H 
U EQU 13 

WHO EQU O0C20H 

WHi EQU 9C24H 

BLKIL EQU OA0O2H 

DEOUTL EQU OAOCH 

OSEQ EQU OSAGH 

BFPLIM EQU S 

SIZE EQU S00 

SIZE1 EQU 430 

z20S 2 

IP oS 2 

BASE DS 2 

Tus 2 

BP TS 2 

FO IIS 2 

TF OS 2 

CHiNEID 
I OS 
J OS 
K OS 
STOF 
N us =: 
S DS SIZE+SIZEt2 
TRACE DS Ut+U+2 
MN DS 54 

BREAK DS BRPLIN+GPLIint+2 
Bil OS 2 

x OS 2 

EA HS 2 
EL ms 2 
Fos 2 
IpXx DS 2 
RES DS 2 
SFLG DS 1 
ABUF DS 7 
ILLOPC DE 
DB ODH 
ILLOPR DE 
DB ODH 
STOVFL DE 
DB ODH 
ILLCSP DR 
DB ODH 
BREAKM DE ’ 
DB ODH 
ADDRM DB 
DB ODH 
XMSG DB ’ 
DB ODH 
DB ’ B =’ 

DB ODBH 

DB’ T =’ 

DB ODH 

DB ’ SCTI =’ 
DB ODH 

DB ’ SCT-11 =’ 
DB ODH 


0) 


2 


0) 


= 


ONOSNNN 


“ILLEGAL OPCODE’ 
“ILLEGML OPERAND’ 
“STACK OVE IFL_OU? 
“ILLEGAL CSP’ 


‘START ADDRESS? ’ 
P= 


58 


CH 


o >} 
o 


ROR A STR AISBRUMSP ESR SEES GNBSS 


ah 


TRCMSG DB ’” xX TRACE x’ 


DB ODH 


FINNSG DB “END OF EXECUTION’ 


DB ODH 


MNEM DB “LITOPRLODSTOCALINTJMNPJIPCCSP’ 


TM1 LHLD T 
DCX H 

SHLD T 

RET 

STGET LHLOI T 
XCHG 

LXI HS 
ARRAY PUSH H 
MOV LrE 

MOV Hell 

BAG [It 


RET 

CMO MOV AsvE 
CHA 

ADT 1 

MOV ErvA 
MOV ArD 
CMA 

ACI 90 

MOV DvA 
RET 
SHL. PUSH E& 
MOV CrA 


BHCMP MOV ArB 
CMP H 
RNZ 
MOV AzvC 
SUB L 
RZ 
RAK 
ORA A 
RAL 
RM 
XRA A 
INK & 
RET 
COMP CALL STGET 
MOV Be 
MOV CrE 
CALL TN1 
CALL STGET 
XCHG 
CALL BHCMF 
XCHG 
LXI Dls9 
RET 
READ LXI HsABUF 
MVI Crd 
RLP CALL WHO 
CPI 7FH 
JZ RUE 
CFI 18H 
JZ CAN 
CPI ODH 
JZ $+3 
CALL WHIL 
MOV MrA 
INX H 


ay 
ay 


uh 


1390 6INK C 261C CD 24 OC 2140 CALL WHI 
1400 CFI ODH 2S51F CD 79 SS 2150 CALL REAL 
1410 RZ wo22 21 00 00 2160 \LXI HzO 
1420 MOV ArC wo2u O01 77 34 2170 LXI EKrsARUF 
1430 CFI 6 ~3Oo28 0A 2180 LDAX & 
1440 JNZ RLP w4297 03 2190 INX E 

1450 CALL WHO 262A FE 2D 2200 CPI ’”-’ 
1460 CPI 7FH w62l C2 34 36 2210 JNZ HEXIL+2 
1470 JZ RUE V62F 32 76 S4 2220 STA SFLG 
1480 CPI 18H 27632 0A 22350 HEXIL LUAX E 
14970 JZ CAN 36335 03 2240 INX E 

1500 MVI Mr0DH 37634 CD Cr SS 2240 CALL DIGIT 
1510 RET 3637 DT? 46 36 22640 JNC HEX16 
15270 RUB MOV 44°C 343A T6 07 2270 SUI 7 

1530 ORA A 363C FE OA 2280 CPI OAH 
1540 JZ RLF V6s5E DA 33 36 22970 JC HEXIDT 
ISSO MYVI Ar7FH 53441 FE 10 2300 CFI 10H 
i560 CALL WH1 3643 [I 33 36 2310 JNC HEXID 
is7o0.060CU BCR C 2446 29 2320 HEX16 DAT H 
iSdso oOCX H 3547 29 2330 DAD H 

1390 06(JMF RLP 37548 29 23540 DAD H 

1600 CAN MOV Arc WOo49P 29 2350 DAD H 

1610 ORA GA [464A 85 2360 ADD L 

1620 JZ RLP 354B 6F 2370 MOV LrAé 
1630 MVI Ars7FH 264C [2 S32 36 2380 JNC HEXIL 
1640 CALL WHL —54F 24 2390 INR H 

1650 DCX H 3650 C3 32 36 2400 JMF HEXIL 
1660 DBCRK C WOuI5 EB 2410 HEXID XCHG 
1670 JMP CAN 264 Ci 2420 POP E 

1680 DIGIT SUI SOH 2655 El 2430 FOF H 

16970 RC 3656 BZA 76 S4 2440 LIA SFLG 
1700 CPI OAH wou? HT 2450 ORA A 

1710 CHC w5oA CB 2460 RZ 

1720 86 RET V6uBK C3 44 SS 2470 JMP CMO 
1730 DECIN XRA A Woe O46 00 2480 DCALC MVI Esr0 
1740 STA SFLG 3460 19 24970 DAG LE 

1750 PUSH H W661 O04 2300 INR E 

1760 PUSH KE W662 7C 2310 MOV AsH 
1770) =60MVI As’ ¥’ 7563 Ee 2w20 ORA A 

1780 CALL WHI 3664 F2 60 346 2350 JF $~—7 
1790 CALL READ 2567 CD 44 SS 240 CALL CME! 
1800 LXI Hr0 WO6A 19 2550 DAR 

1810 LXI HsARUF V66B OF 2360 DOCK EB 

1820 LIIAX B I66C 78 270 MOV ArsE 
1830 INX B VO6r! EK? 24380 CMF C 

1840 CPI ’-’ WOo6E CB 270 RZ 

1850 JNZ DECIL+2 [24S5F OD 2500 KCK C 

1860 STA SFLG 2746470 C4h& BO 2610 ADI 30H 
1870 DECIL LDAX E& wO/2 CP? 2620 RET 

1880 INX E 3IO73 7A 2630 DECOUT MOV A-I 
18970 CALL DIGIT IO74 E77 2640 ORA A 

1700 JC DECIEIE 27674 F2 80 36 2650 JF CHIEC 
1910 MOV Esl 2678 3E 20 2560 MVI Ar’ —’” 
192006 6©MOV [trH wO7A CD 24 OC 2670 CALL WHI 
1930 6>DAD H 2670 CD 44 SS 2680 CALL CMI 
19740 DAL H wOo0 ES 26470 CDEC FUSH H 
1930 DAD Oo 2681 21 77 34 2700 LXI HrARUF 
19760 DAT H 7684 ES 27/10 PUSH H 
1970 )«6ADT L 3635 EB 2720 8 XCHG 

197380 MOV LrA 3686 11 FO DS 2730 LXI Usr—-10000 
1990)=«6\JNC DECIL ~2oS? OE 00 2740 MMVI Crd 
2000 INK H JOSE CD SE 36 2/730 CALL DCALC 
2010 JMF DECIL JOSE CA 9S 36 2750 JZ $+4 
2020 DECIO. XCHG 2OF1l £3 2/770 XTHL 

2030 POF KE BOP! 77 2780 MOV MrA 
2040 FOP H SIOPS 25 2/70 INK H 

2050 LIA SFLG W694 ES 2800 XTHL 

2060 GORA A 2oF7o 11 18 FC 2810 L~LXI Tts—-1000 
2070 RZ 3698 CD SE 36 2820 CALL DCALC 
20380 JMF CHU ~497B CA AZ 36 2830 JZ $+4 
20970 HEXIN XRA A S469E ES 2840 XTHL 

2100 STA SFLG WoSF 77 2850 MOV MrAh 
2110 PUSH H WORD 25 2860 INX H 

2i20 FUSH EB W4AL ES 2870 XTHL 

21350 MMVI Ar’ xX’ wOA2 11 3C FF 2880 LXI Os-100 


SRR ASRREASRERBRERBERERBNERSESAEENRSROBER SAS Nah & 


BS 


OA 


EE 


OA 


al fast 
UO 


Ai 


223 


2370 
27900 
2710 
2720 
2?50 
2aP40 
29750 
2750 
29770 
2730 
2790 
3000 
5010 
3020 
5030 
3040 
3050 
5050 
3070 
3080 
3070 
3100 
5110 
3120 


0010 
0020 
00350 
0040 
0030 
00460 
0070 
00c80 
0070 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
O170 
0200 
0210 
0220 
0250 
0240 
0250 
0260 
0270 
0280 
0270 
0300 
0310 
0320 
03350 
03540 
0350 
0360 
03570 
0380 
0390 
0400 
0410 
0420 
04350 
0440 
0450 
0460 
0470 
0480 
0490 
o500 


INTL 


CRLF 


CALL DCALC 
JZ $+4 


ATHL 


MOV MrA 
INX H 


ATHL 


LXI Itr—10 


CALL DICALC 
JZ $+4 


ATHL 
MOV 
INX 
ATHL 


Mr 
H 


MOV ArL 


POP 


H 


AUT SOH 
MOV MrA 


INA 


H 


MVI M*s0DH 
LXAIT HsABUF 


SHLID 


BASE fCHLII 


Bi 


ORA I 
JZ BAZ 


PUSH 
LHLO 


je 
Bi 


DCX H 
DCX H 
rCX H 


ACHG 


LXI HeS 
CALL ARRAY 


ACHG 
SHLD 


Et 


FOF I 
DCX 
JMF EAL 


ACHG 
RET 


SHLOE 
SHLD 
SHLIN 
SHLU 
SHLD 
SHLD 


St+4 


BCX H 


SHLD 


S+6 


LXI He 


SHLE 


T 


INK L 
SHLDID BASEER 
LXI Hs 


SHLO 


TP 


DAD H 


ACHG 


HEXOUT EQU DEOUTL 


GASER 


BAL MOV AvE 


BA2 LHLD BL 


INIT LAI Hrd 


LXI Hy TRACE 


INX H 
DCX Uw 
MOV AvrE 
ORA I 


JNZ 
RET 


INTL 


nCX H 


MVI Ms-1 


EQU O9FSH 
*CODE FOR CASES OF EA IN CASF1 
EA1CO LHLDD BASE 


255 


wl A 


v7 AC 


v7 AE. 
u7 AE 
w/7 EL 
v7 B2 
u/ RS 


256 


0? 
31 


2o 


0s 


0510 
0520 
05350 
0540 
0550 
0560 
0270 
0230 
o570 
0400 
0610 
0420 
0430 
0640 
06350 
0560 
0670 
0450 
06970 
0700 
0710 
0720 
0730 
0740 
07350 
07460 
0770 
0780 
0790 
0800 
0310 
0820 
0830 
0840 
0850 
0860 
0870 
0380 
03870 
0700 
0710 
0920 
0950 
0940 
0950 
0960 
0970 
09380 
0790 
1000 
1010 
1020 
1030 
1040 
1050 
1960 
1070 
1080 
1090 
1100 
1110 
1120 
11°50 
1140 
L150 
1160 
1170 
1180 
11970 
1200 
1210 
1220 
1230 
1240 


L250 


DCX H 

DCX H 

DCX H 

SHLOIO T 

INX H 

INX H 

ACHG 

LXTI HS 
CALL ARRAY 
XCHG 

SHLDID BASER 
INX I 

INX OU 

LUIAX I 
STA IF 

INX I 

LIAX [ 

STA IF+1L 
RET 


EAIC1 CALL STCGET 


CALL CMI 
MOV ME 
INX H 
MOV MoI 
RET 


EA1IC2 CALL STGET 


MOV Eyl 
MOV CrE 
CALL TML 
CALL STGET 
XCHG 
DAG KE 
XCHG 
MOV MrE 
INX H 
MOV Mri 
RET 


EALCS CALL STGET 


CALL CME 
JMP EALIC2+3 


SIGNED MOV AvsD 


ANI SOH 
RZ 

LUA SFLG 
CMA 

STA SFLG 
JMF CMO 


EALIC4 CALL STGET 


XRA A 

STA SFLG 
CALL SIGNI 
MOV Est 
MOV Cre 
CALL TM1 
CALL STGET 
CALL SIGND 
PUSH H 

LXI HO 
MOV ArC 
CALL XSEIT 
MOV AvsE 
CALL XSEIT 


EA1C4D XCHG 


LUA SFLG 
OGRA A 
CNZ CMD 
POP H 
MOV ME 
INX H 
MOV MrI 
RET 


ABBIT MVI Cr8 
ASEBL RAK 


JNC $41 
DAD 


57 BS 
57 B7 
57B8 
57 BP 
57BA 
57 BU 
57 BE 
57C1 
57C2 
5703 
57C6 
57CP 
57CC 
57CU 
57 D0 
5713 
57 D4 
5707 
S7DA 
5700 
57 DE 
57DF 
57E0 
S7E1 
57E4 
57E7 
5S7E8 
57EB 
57EE 
S7EF 
S7FO 
S7F1 
57F4 
S7FS 
S7F8 
57FB 
S7FC 
57FD 
S7FE 
S7FF 
5302 
S803 
5804 
5305 
5806 
5807 
5808 
5809 
SS0A 
S80B 
S80E 
SS0F 
5810 
SSii 


vwol2 


73135 
wo14 
VeLS 
27318 
wel? 
wS1LA 
wS1LE 
381C 
vS1D 
VBLE 
VOoLF 
7820 
we21 
3824 
VB2Z5 
par 
we2? 
VELA 
vo2B 
VS2C 


Bg eR Sea SES BONN RRS ERENT URNA EB YNEa SE 


cp 


a 


74 


74 


E7 


Cf On 
0 Of 


12460 
1270 
1280 
1270 
1500 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1330 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1470 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
1570 
1530 
1590 
16090 
1610 
1620 
1430 
1640 
1650 
1660 
1670 
1680 
16970 
1700 
1710 
1720 
17350 
1740 
17350 
1760 
17790 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
19700 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 


ACHG 

DAD H 
XCHG 
DCR C 
JNZ XGBL 
RET 


EAICS CALL STGET 


MOV ArE 

ORA 0D 

JNZ NOTO 

LXI Hs ILLOFR 
JMP ERR 


NOTO XRA A 


STA SFLG 
CALL SIGNI 
PUSH I 
CALL TML 
CALL STGET 
CALL SIGNED 
MOV Ei 
MOV CrE 
FOF I 

FUSH H 

LXI Hrd 
SHLOU RES 


EFALICSL XCHG 


CALL BHCMP 
JM EAICSO 
MOV Esl 
MOV ItvH 
PUSH H 

LXI Hei 
XTHL 


CSI CALL BHCMF 


JM CoID 
DAD H 
XTHL 


XCHG 
CALL. CMD 
XCHG 

DAT B 
MOV EsH 
MOV CrL 
POP H 
XCHG 
PUSH H 
LHLD RES 
STC 

CMC 

MOV AsD 
RAR 

MOV IivA 
MOV AvE 
RAR 

MOV Ev 
DAD DB 
SHLD RES 
POF I 
JMF EAILCSL 


EAICSI POP H 


PUSH H 
INX H 
MOV Ari 
ORA A 


WI 


WI 
a oh 


TEC CEC CEE EEELL 


afc 
Gh ch 


oh 
a) 


cn ch 
cnn 


a 


2010 LHLD RES 

2020 JF EAIC4D 

2030 MOV E-C 

2040 MOV ItrB 

2050 CALL CMD 

2060 MOV Bro 

2070 MOV CrE 

2080 JMP EAIC4SD 

2090 EAICS CALL STGET 
2100 MVI Ari 

2110 ANA E 

2120 MOV MrA 

2130 INX H 

2140 MMVI MrO 

2150 RET 

2160 EAIC7 CALL EAICS 
2170 MOV MrB 

2180 DCX H 

2190 MOV M-C 

2200 RET 

2210 EAICS CALL COMP 
2220 JNZ NO 

2230 YES INR E 

2240 NO MOV MrE 

2250 INX H 

2260 MOV MrD 

2270 RET 

2280 EAIC9 CALL COMP 
2290 JZ NO 

2300 JMP YES 

2310 EAIC10 CALL COMP 
2320 JZ NO 

2330 JM NO 

2340 JMP YES 

2350 EAICi11 CALL COMP 
2360 JZ YES 

2370 JM YES 

2380 JMF NO 

23970 EA1IC12 CALL COMP 
2400 JM YES 

2410 JMP NO 

2420 EAIC13 CALL COMP 
24350 JM NO 

2440 JMP YES 

2450 EA1C14 CALL STGET 
2460 MOV Be 

2470 MOV CrE 

2480 CALL TML 

24970 CALL STGET 

2500 MOV AsC 

2510 ORAE 

2520 MOV MrA 

2530 $INX H 

2540 MOV Ark 

2550 ORA I 

2560 MOV MrA 

2570 RET 

2580 EAICIS CALL STCET 
2570 MOV Bel 

2600 MOV CrvE 

2610 CALL Ti1 

2620 CALL STGET 

2630 MOV ArC 

2640 ANA E 

2650 MOV MzA 

2660 INX H 

2670 MOV ArR 

2680 ANA I 

2670 MOV MrA 

2700 RET 

2710 EAICi16 CALL STGET 
2720 MOV AvE 

2730 CHA 

2740 MOV MrA 

2750 INX H 


257 


258 


E2 
31 


31 


31 


oc 
oc 
AD 
FS 


Oo1 
1c 


oc 


A 
a 


cn ean 
Ch GA 


tH 


th 


eh Eh 


sy 


on ci 
Chl 


Ch 
Ch 


oc 30 


31 


=O 


00 
31 


2760 
2770 
2780 
2790 
2800 
2810 
2820 

2830 

2840 

2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2950 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 

3210 
3220 
32350 
3B24O 

3250 

3260 
3270 

3280 
3290 

3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 

33a0 

3390 

3400 

3410 

3420 

34350 

3440 

3450 

34640 
3470 

3480 
3490 
3500 


MOV ArD 

CMA 

MOV MrA 

RET 
EAIC1I7 CALL STGET 
MOV AsE 

ANI OFH 

MOV CrA 

CALL TML 
CALL STGET 
XCHG 

MOV A»zC 
CALL SHL 
XCHG 

MOV MrE 

INX H 

MOV M,D 

RET 
EAICIS CALL STGET 
MOV AsE 

ANI OFH 

MOV Cr 
CALL TML 
CALL STGET 
SHR MOV AsC 
ORA A 

JZ EALICL9+4 
MOV Art 

STC 

CNC 

RAR 

MOV ItvA 

MOV AsE 

RAK 

MOV ErsA 

DCR C 

JMF SHR 
EAICI? CALL STGET 
INX UO 

MOV MrE 

INX H 

MOV M-o 

RET 
EAICZ0 CALL STGET 
DCX 

MOV MrE 

INK H 

MOV Ms 

RET 
EAILC2Z1 CALL STGET 
INX H 

INX H 

MOV MrE 

INX H 

MOV MD 

LHLO T 

INX H 

SHLI T 

RET 
ERR CALL OSEQ 
CALL CRLF 
LXI Heri 

SHLD STOP 
RET 
*xCODE FOR CASES OF EA IN CASFS 
EA2CO LHLID T 
INX H 

SHLD T 

CALL STGET 
CALL WHO 

MOV MsA 

INX H 

MVI Ms0 

RET 
EAZCI CALL STGET 


5935 3510 MOV AE 59C38 Sr 0300 JZ EAICG 

5936 oc 3520 CALL WH1L JI7CE 0310 DCR A 

5939 SS 3530 JMP TM1 59CC 48 0320 JZ EAIC7 

593C 50 3540 EA2C2 LHLD T J9CrF 0330 DCK A 

593F 3550 INX H 590 4F 0340 JZ EAICS 

=940 =0 3560 SHLD T ws 0350 DCR A 

59435 bala’ 3570 CALL STGET o7D4 uA 0360 JZ EAIC? 

5946 5S 3580 CALL DECIN 59li7 0370 DCR A 

5949 35970 MOV MrE 5918 63 0380 JZ EAIC1LO 

594A 3600 INX H 590B 0390 DCR A 

=9°4H 3610 MOV MD 3I7DC 6F 0400 JZ EAICII 

594C 3420 RET SUF 0410 DCR A 

5940) 55 3630 EA2ZCS CALL STGET =9E0 7B 0420 JZ EAICI2 

5950 5S 3640 CALL DECOUT SIES 04350 DCR A 

5955 Ss 3650 JMP TM1 S9E4 84 0440 JZ EAICLS 

5956 50 3660 EAZC4 LHLE T SIET 0450 DCK A 

5959 3670 INX H 59ES Sn 0460 JZ EAICL4 

595A 50 3680 SHLOID T 59ER 0470 DCR A 

5950 paral 346970 CALL STGET S9EC AO 0480 JZ EAICILS 

5960 SS 3700 CALL HEXIN S9EF 0470 DCR A 

5963 3710 MOV MrE S9FO BS 0500 JZ EAIC16 

5964 3720 INX H 59FS3 0510 DCR A 

5965 3730 MOV Merk S9F4 BE 0520 JZ EAICI7 

=966 3740 RET SIF / 0330 DCR A 

5967 3750 EA2ZCS CALL STGET IIFS DS 0540 JZ EAIC1S 

596A 3740 CALL HEXOUT 59OFB Oo550 DCR A 

5960 3770 8=6JMP TML SOFC F3 0560 JZ EA1C19 

5970 3780 EA2ZCS CALL STGET SOFF 0570 DCK A 

5973 3790 LHLED T SA00 FB o580 JZ EA1IC20 

5976 3800 CALL CHI SA0S 0570 DCR A 

5979 3810 DAG DO 5A04 O35 0600 JZ EAIC2Z1 

5o7AH 3870 SHLEIR T SA07 Su 0610 LXI HrILLOPR 

S971 3830 CALL CHE SA0A 13 0620 JMP ERR 

59380 3840 PUSH I SA0n SA 0630 CASF2 LHLD X 

S981 3850 CALL STGET TALO 0640 INX H 

5984 3860 POF I SALL 0650 MOV LeM 

5985 3870 EA2ZCSL MOV Ar SAL2 00 0660 MVI Hr0 

5986 3880 INX H 5A1L4 6E 54 0670 SHLD EL 

5987 3890 INX H SAL7 0680 MOV ArL 

5988 3900 CALL WH1 5A1S 0670 INR A 

5985 3910 DCX LT SA1LS 53 SA 0700 JZ F2FF 

598c 3920 MOV ArE SALC 72 54 0710 LHLD IDX 

S9sn 3930 «ORAL SALF 0720 MOV ArL 

598E 3940 JNZ EAZCEL SAZ0 0730 ORA A 

S991 3950 JMF TM1L SALLI 31 SA 0740 JZ F20 
SAZ4 31 5S 0750 CALL STGET 

S994 0010 xXCASES OF F IN EXEC SA27 6C 54 0760 LHLD EA 

5994 2A 0020 CASFO LHLID T GAZA 0770 DALI LD 

5997 0030 INX H SAZE 46C 54 0780 SHLD EA 

5998 2 0040 SHLD T SAZE 38 SA 0790 JMP F21 

S99R EB 0050  XCHG SASL oc 50 0800 F20 LHLDD T 

599C 21 0060 LXI HrS SAS4 o8io0 INX H 

S99F CD 0070 CALL ARRAY SASS oc 50 0820 SHLD T 

SPA EB 0080 XCHG 5A38 6E 54 0830 F21 LHLD EL 

SIAS 2A 0090 LHLD EA SASB 0840 XCHG 

S9A6 EB 0100 xXCHG SASC CC 56 o8s50 CALL BASE 

SAF 73 0110 MOV MrE VASE éC 34 0860 LHLD EA 

SIAS 23 0120 INX H AS 2 0870 DAD 

SPA? 72 0130 MOV MrD ASS 0880 XCHG 

=S9AA C9 0140 RET WA44 21 20 30 0870 LXI H-zS 

SIAB 2A 0150 CASF1 LHL EA WALZ 38 So 0700 CALL ARRAY 

SSAE 7U 0160 MOV ArL DAFA, 09710 PUSH D 

SOAF B7 0170 ORA GA SA4B 31 5S 0920 CALL STGET 

S9EKO CA 0180 JZ EALCO SA4E 0930 POP I 

59B3 30 01970 UCR A SASF 0940 MOV MrE 

59R4 CA 0200 JZ EALCL SASSO 0950 INX H 

SOR7 30 0210 DCR A SASL 0960 MOV Ms 

S9BS CA 0220 JZ EALC2 SAG 0970 RET 

S9BB 30 0230 DCK &é SASS CD 31 55 0980 F2FF CALL STGET 

SSBC CA 6A 57 0240 JZ EAICS SATS 1A 09790 LIAX DB 

SOBF 30 0250 DCR A SAS 77 1000 MOV MrA& 

59CO CA 81 57 0260 JZ EAIC4 VAIS 23 1010 INX H 

59C3 Spr 0270 DCR A SASF 36 00 1020 MVI Mr0 

59C4 CA BE 57 0280 JZ EAICS SASB C? 1030 RET 

S9C7 3D 0270 DCR A SADC 2A 6A 54 1040 CASFS LHLD X 
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WASF 25 1050 INX H WAES 73 1800 MOV MrE 
wAGO 6E 1060 MOV Lem WAES 23 i810 INX H 

WAGL 26 00 1070 MMVI HO WAEA 72 1820 MOV MrT 
WAGES 22 6E 34 1080 SHLD EL ZAEB 2A OC S30 1830 LHLD T 

WAGS 7D 1090 MOV ArsL WAEE 23 1840 INX H 

WAGT BC 1100 INR A WAEF 23 1850 INX H 

wAGS CA AZ SA 1110 JZ FSFF WAFO 23 1860 INX H 

WAGE 2A 72 34 1120 LHLD IDx VAF IL 22 0C BW 1870 SHLD T 

LAGE 7D 1130 MOV AvL WAF 4A 235 i8so0 INX H 

WAGE BZ 1140 ORA A WAFS 22 0A SO 1890 SHLD BASEE 
wWA7O FS 1150 PUSH P WAFS 2A 6C 34 1700 LHLID EA 
wA71 CA 86 SA 1160 JZ FSO VAFB 22 08 30 1910 SHLD IP 
WA74 2A OC BO 1170 LHLD T JAFE C9 1920 RET 

WAST 2B 1180 DCX H VAFF CD 31 SS 1930 F4FF CALL STGET 
~A/SB EB 1190 XCHG wBO2 21 29 SS 1940 LXI HsTMl 
wA/F 21 20 30 1200 LXI HerS wBOS ES 1930 PUSH H 

wAZC CD 38 SS 1210 CALL ARRAY JB0S EB 1960 XCHG 

WAJF 2A 6C 34 1220 LHLD EA uB0O7 ES 1970 PCHL 

wAS2 19 1230 DAD BD YBOS 2A SC 34 1980 CASFS LHLD EA 
TASS 22 4C 34 1240 SHLD EA uBOB ER 1990 XCHG 

wABS CD Bil SS 1250 F30 CALL STGET ~BOC CD 44 SS 2000 CALL CMI 
uABS DS 1260 PUSH 2D VBOF 2A EO O1 2010 LHLD SIZE1 
GASA 2A SE 34 1270 LHLD EL ~wB12 19 2020 DAD DE 

~ASD EB 1280 XCHG ~B13 40 2030 MOV CrLlL 
VASE CO CC 56 12970 CALL BASE wB14 44 2040 MOV BsrH 
WAFL 2A SC 54 1300 LHLD EA ~B1S 2A OC So 20350 j\LHLD T 

SBA94 19 1310 DAD ZL ~B1i8 CD 38 SS 2060 CALL BHCHP 
vASS EB 1320 XCHG Y~B1B FA 27 SE 2070 JM OVER 
SAV6 21 20 50 1330 LXI HsS JBIE EB 2080 XCHG 

wASS CD 38 3S 1340 CALL ARRAY VBLF 2A 6C 54 20970 \LHLD EA 
SASC Di 1350 POF I wB22 19 21900 DAD Ii 

VAISD 7S 1360 MOV MsE wB25 22 OC 30 2110 SHLD T 

VAIFE 23 1370 INX H UB26 CP? 2120 RET 

SASF 72 1380 MOV MoD VwB27 21 9D 34 2130 OVER LXI HsSTOVFL 
SAAO Fi 1390 POF P V@B2ZA C3 13 SF 2140 JMP ERR 
BSAAL C4 29 55 1400 CNZ TMI UB20i 2A 6C 34 2130 CASF4S LHLIT EA 
SAAS C3 29 55 1410 JMP TMI JBSO 22 908 50 #160 SHLD IP 
wAA7 CD 31 SS 1420 FSFF CALL STGET VEBS3 CP? 2170 RET 

SAAA 4B 1430 MOV CrE UBS4 2A GA 34 2180 CASF7 LHLD X 
VAAB CD 29 SS 1440 CALL TM1 SBS 23 2l?7O INX H 

WAAE CD 31 3S 1450 CALL STGET YBSS 4E 2200 MOV Cri 
=SABiL ER 1460 XCHG uBS? CD Sl SS 2210 CALL STGET 
VABZ 71 1470 MOV MrC VBSC 7B 2220 MOV AsvsE 
WABS C3 29 SS 1480 JMF TM1 V=BSD ES Ol 223530 ANI 1 

PABG 2A GA 54 1490 CASF4 LHLD X UBSF ES? 2240 CMP C 

WARS 23 1500 INX H 3B40 C2 29 SS 2240 JNZ THL 
VABA 6E 1310 MOV Lei YB435 2A SC 34 2260 LHLU EA 
VABB 26 00 1520 MMVI Hs0 YB46 22 08 30 22/0 SGHLD IF 
MARD 22 GE 54 i330 SHLD EL JB49 CS 29 SS 2280 JMP TM1L 
~ACO 7D 1540 MOV AsL VB4C 2A SC S34 2270 CASFS LHLDID EA 
VACI SC 1iss0 INK A JB4F 7D 235900 MOV ArsL 
wACZ CA FF SA 1560 JZ FAFF uBoO B7 2310 ORA A 

wACS ER 1370 XCHG wBol CA 20 S39 2320 JZ EAZCO 
~ACS CD CC 36 1380 CALL BASE VBo4 SD 23550 DCR A 

~AC?S DS 1ISs90 PUSH D wBSS CA 32 39 2540 JZ EASCL 
wACA 2A OC S50 1600 LHLD T YESS SD 2390 DCR A 

VAC 23 1610 INX H VBaS CA 3C S39 2360 JZ EALZC2 
VACE EB 1620 XCHG VBOC SD 23790 DCR A 

VACF 21 20 50 16350 LXI HrS JwBoD CA 40 S9 2380 JZ EA2CS 
SAD2 CD 38 55 1640 CALL ARRAY ~B6O Sit 2370 DCR A 

wALS D1 1650 POF I UBG1 CA 36 3? 2400 JZ EALC4H 
VADS 73 1660 MOV ME 3B64 3D 2410 DCR A 

VALS 23 1670 INX H wBS6o CA 67 39 2420 JZ EAZCS 
VARS 72 1680 MOV MrD ~B63 DS 03 24350 SUI 3 

wAUIP 23 1690 INX H UB6A CA 70 SP? 2440 JZ EALZCS 
VADA EB 1700 XCHG SB6D 21 AC 34 2450 %LXI Hr ILLCsSF 
VALB 2A OA SC 1710 LHLD BASER ~B70 C3 13 S? 2460 JMF ERR 
VADE EB 1720) =60>XCHG VwB73 2A O08 SO 2470 EXEC LHLOID IF 
VALE 73 1730 MOV MrE JB/6 SE 02 2430 MMVI Ar2 
CAEO 23 1740 INX H ~B78 CD 4F SS 24970 CALL SHL 
VWAEL 72 1730 MOV M-D ~B7B EB 22990 XCHG 

WAES 23 1760 INX H wB/7C 2A 06 SO 2210 LHLD Z 

WAES EB 1770 XCHG wE/F 19 2w20 DAD D 

DAES 2A 08 So 1780 LHLD IP V~BSO 22 GA S34 2950 SHLD X 

DAE EB 17970 XCHG VwBS3S 23 240 INX 
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f 


BUSHOR QUSHSHO ROE SUO HOY OgOe AUN SER NNO NNS BANRRSREBRND 


ps 
0 


2uu0 INX H VOILA 22 GA 34 00380 SHLD X 


2560 MOV As SCiD 7E 0090 MOV Asm 
2o/O INX H SCiE 6F 0100 MOV LrfA 
2580 MOV Hs SCIF 26 00 0110 MMVI Hrd 
2570 MOV LerA SC?71 29 01270 DAD H 
2600 SHLD EA 5C22 385 0130 «AnD L 
2610 LHLD TRF SC23 6F 0140 MOV LrA 
2620 INX H 5024 D2 28 5c 0150 JNC +1 
2630 MVI ArU SCP7 24 0160 INR H 
2640 CMP L 5C278 27 1£ 50 0170 SHLU N 
2650 JNC $43 5C2B 01 18 00 0180 LXI Br24 
2660 LXI Hs0 SCPE CD 58 55 0190 CALL BHCMF 
26/70 SHLD TP SC31 BSE 20 0200 MMVI As’ * 
2680 XCHG 5C33 F2 42 Sc 0210 JF WRTCK 
2690 LXI Hr TRACE 5C36 2A 1E 50 0220 LHLD N 
27900 CALL ARRAY SC39 01 DO FF 0230 LXI Hr-48 
2710 XCHG 5SC3C 09 0240 DAD EB 
2720 LHLO IF SCSD 22 1£ 50 0250 SHLD N 
2730 XCHG 5C40 3E 58 0260 MVI Ar’xX’ 
2740 MOV MrE 5C42 FS 0270 WRTCD PUSH PF 
2/730 INX H 5C43 Cl 02 OA 0280 CALL BLKi 
2740 MOV MrD 5C46 CD 02 0A 0290 CALL BLKI 
2770 XCHG 5C49 Fi 0300 POF F 
2780 INK H SC4A Di 0310 POP I 
2790 SHLD IF 5C4B FS 0320 PUSH P 
2800 SHLD PO SC4C CO 73 56 0330 CALL DECOUT 
#810 LHLD K SC4F CD 02 OA 0340 CALL BLK1 
2820 INX H SC52 CD 02 OA 0350 CALL BLKi 
2830 SHLU NK 5C55 2A 1E 50 0360 LHLDID N 
2840 LHLO X 5C58 EB 0370 XCHG 
2850 MOV Levit SCSo9 21 OF 5S 0380 LXI H»yMNEM 
2860 MVI Hrd SCSC 19 o370 DAD I 
2870 SHLD F SConu 7E 0400 MOV Ari 
2880 MMVI Ars SChE 25 0410 INX H 
2870 CHF L SCSF CD 24 0c 0420 CALL WH1 
2900 JC FERIGRS 5C62 7E 04350 MOV Asi 
2910 MMVI Lyd SC63 23 0440 INX H 
2920 SHLD IDX 5C64 CD 24 OC 0450 CALL WHI 
2930 JP CASF 5C67 7E 0460 MOV Asi 
2740 FBIGRS MVI Lert 5C68 CD 24 0C 0470 CALL WH1 
2750 SHLI TUX SC6B Fi 0480 POP P 
2760 LHLD F SC6C CD 24 0C 04970 CALL WH1 
2770 LXI Drv-16 SC6F CD 02 0A 0500 CALL BLK1 
2780 DAD 0 5C72 2A 6A 54 0510 LHLD X 
27970 SHLD F 5C75 23 0520 INX H 
3000 CASF LHLII F 5C76 SE 0530 MOV Er» 
35010 MOV ArL SC77 16 00 0540 MVI [isd 
3020 ORA A S5SC79 CD 73 56 oS550 CALL DECOUT 
3030 JZ CASFO SC7C 3E 2C 0560 MVI Ay’ rv’ 
3040 DCR A SC7E CD 24 0c 0570 CALL WHIL 
3050 JZ CASFL SC81 23 oS5S80 INX H 
3060 DCR A SCS2 SE 0590 MOV Eri 
3070 JZ CASF2 5C83 23 0600 INX H 
5080 DCK A [C84 56 0610 MOV Dem 
3070 JZ CASFS 5C85 CD 73 56 0620 CALL DECOUT 
3100 DCR A 5C88 C3 F8 09 0630 JMF CRLF 
3110 JZ CASF4 SCSB 2A 08 50 0640 CKBF LHLD IF 
3120 DCR A SCSE 7C 0650 MOV AvsH 
3130 JZ CASFS SCSF B7 0460 ORA A 
3140 DCR A 5C90 FA CA SC 0670 JM PLTO 
3150 JZ CASFS 5C93 EB 0680 XCHG 
3160 DCR A SC94 2A OE 50 0690 LHLDD BF 
3170 JZ CASF7 SC97 7C 0700 MOV ArH 
3180 DCR A 5c9a BS 0710 ORAL 
3190 JZ CASFS SCS? Cs 0720 RZ 
3200 LXI HrvILLOFC SC9A DS 0730 PUSH D 
3210 JMP ERR SC9B O1 O1 00 0740 LXI Bri 
SCSE 5S? 0750 CKBPL MOV ErC 
0010 CODE FUSH BD SCOF 50 0760 MOV DerEB 
0020 XCHC SCAO 21 SC 54 0770 LXI HrBREAK 
0030 WMVI Ar2 SCAS CD 38 55 0780 CALL ARRAY 
0040 CALL SHL SCAG El 0790 POP H 
0050 XCHG SCA7 ES 0800 PUSH H 
0060 LHLD Z SCAS CD 44 55 o810 CALL CMI 
0070 DAD ft SCAB 19 os20 DAD I 
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wCAC 
vCAD 
wJCAE 
JCB1 
vCB2 
wCES 
~CBS 
~CBB 
JCBE 
JCBF 
~CCO 
~CC3 
~CCG 
wCC/ 
~CCA 
~CCD 
2CDO 
~CD1 
~CD4 
vCDS 
~CD7 
~CDA 
~CDD 
JCDF 
2CEO 
SCE1 
SCE? 
wCES 
wCES 
TICES 
vCE/ 
wCEA 
JCED 
CFO 
wCFS 
wCF 4 
wCF7 
wCF A 
JCFD 
~LOO0 
wDO1 
wL04 
wDO7 
wLDOA 
~DOD 
JD10 
3D13 
DLS 
wD1L? 
3D1LC 
~DLD 
SLIZ20 
wU21 
wU24 
va) 
~D28 
wD2B 
wD2C 
wOU2F 
wD S32 
D535 
wUS4 
wUS7 
VDSS 
DSB 
VDSE 
SDSF- 
3D40 
204-3 
JD44 
w047 
JD4A 
JD4B 
3D4C 
SU4F 
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oc 


0830 
0840 
03850 
0860 
0870 
O8eo 
03870 
0700 
0710 
0920 
0930 
0940 
090 
0950 
0970 
o7so 
0770 
1000 
1010 
1020 
1030 
1040 
10350 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
11350 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
L250 
1260 
1270 
1280 
1270 
13500 
1310 
1520 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1470 
1500 
L510 
1520 
1530 
1540 
L550 
12560 
1570 


MOV 
ORA 


AsH 
L 


JZ BFND 


INA 


KE 


LHLD BP 
CALL BHCMP 
JM CKBPL 
JZ CKBPL 


POF 
RET 
BEND 


H 
LAI Hs BREAKM 


CALL OSEQ 


POP 


DB 


CALL CODE 


PLTO 


LXT Hest 


SHLD STOP 


RET 
MAIN 
ARA 
OUT 
LAT 
LXI 
MVI 
MNLP 
INX 
MOV 
INX 
MVI 
INX 
DCR 
JNZ 


LXI FPs1000H 
A 

4 

Hsin 
DisMNEM 
Cr27 

LOAX I 

BD 


MrzA 
H 
wEr) 
H 

Cc 
MNLF 


LXI 

CALL 
CALL 
ACHG 
SHLD 
CALL 
CALL 
LHLOD 
XCHG 
CALL 


Hz: ADDRM 


OSEQ 
HE XIN 


Zz 
CRLF 
INIT 
IF 


CODE 


LXI Hs0 


SHLID 


BP 


JMP BEGIN 


SHLD 


CALL 


CMR LXI Hrd 


STOP 


CMRL CALL EXEC 


CKEF 


LUA STOF 
ORA A 
JZ CMRL 


RET 
LHLD 


CALL. 


CMS CALL EXEC 


IP 


CMA LXI HesXMSG 


OSEQ 


INX H 


ACHG 
LHLO 
ACHG 
CALL 
CALL 


IF 


DECOUT 
OSEQ 


INX H 


ACHG 
LHL 
ACHG 
CALL 
CALL 


BASEE 


DECOUT 
OSEQ 


INX H 


ACHG 
LHLD 
ACHG 


T 


Sol me 


8 th 


FER GRAS 


A 


o> 
0? 


ay 
o 


g8y 


Ch Ch 
Ch 


CALL DECOUT 
CALL OSEQ 
INX H 

PUSH H 
CALL STGET 
CALL DECOUT 
POP H 

CALL OSEQ 
LHLD T 

DCX H 

XCHG 

LXI HsS 
CALL ARRAY 
CALL DECOUT 
JMP CRLF 


CMG CALL INIT 


JMP CMRL 


CMT LXI Hs TRCMSG 


CALL OSEQ 
CALL CRLF 


MVI CrUt1 


CMTL LHLD TP 


INX H 

MVI ArU 
CMP L 

JINC $43 
LXI HO 
SHLD TF’ 
XCHG 

LXI Hs TRACE 
CALL ARRAY 
MOV AsIII 
ORA A 

JM $45 
FUSH B 
CALL CODE 
POF E 

TCR C 

JINZ CMTL 
RET 


Chik CALL DECIN 


MVI Cr7 


CMKL FUSH E 


PUSH UD 

LAI HS 
CALL ARRAY 
CALL BLKi 
CALL BLK1 
CALL DECOUT 
CALL. CRLF 
POF BD 

FOF E 

INX II 

DCR C 

JNZ CMR 
RET 


CMB LXI BrsEPLIM 


LHLD BP 
CALL BHCMPF 


PUSH D 

CALL DECOUT 
MVI Air’ $7 
CALL WHIL 
CALL BLK1I 
POF Ir 

LXI H»yBREAK 
CALL ARRAY 
CALL DECIN 
MOV MrE 
INX H 


SOME PSO SAS SRE AN 


OE 


10 & 


ae: 


Sa 48 8 


gous 
cans 


Wash 


© 


25350 
22.340 
2350 
2560 
23570 
23580 
2570 
24900 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2430 
2470 
2300 
2510 
2020 
250 
240 
20 
2260 
2370 
23380 
2570 
2600 
2610 
2620 
2650 
2640 
2650 
2660 
2570 
2630 
2670 


2700 


2/10 
2720 
2/30 
2/740 
2730 
2/60 
2/79 
«2/80 
2/90 
2800 
2310 
2820 
2830 
2340 
2850 
2360 
2870 
2380 
2370 
2700 
2710 
2920 
2730 
22740 
22750 
2740 
2970 
2780 
2790 
3000 
3010 
35020 
3050 
3040 
35050 
35960 
5070 


MOV MD 


JMP 


CRLF 


CMC LXI HzO 
SHLD BF 


RET 


CMY LHLD BP 


MOV 
ORA 
RZ 
MOV 
LXI 
CMYL 
MOV 
INX 
MOV 
INX 


AsvL 
H 


Cri 

Hs BREAK+2 
PUSH EB 

E rit 

H 

Drei 

H 


CALL BLK1 
CALL BLK1 
CALL. DECOUT 
CALL CRLF 


POP 
DCR 
JNZ 
RET 


B 
Cc 
CHYL 


CME CALL DECIN 
CALL CODE 


CMQ LXI Hyz-1 
SHLD IF 


RET 


FINISH CALL CRLF 


LAI HeyFINNSG 


CALL 
LHL 
ACHG 
CALL 
CALL 
CALL 


OSEQ 
NK 
DECOUT 


CRLF 
WHO 


JMP 7370H 


BEGIN LXI FPs1000H 


ARA A 


OGRA A 
JM FINISH 


LXI HrsBEGIN 


PUSH 


CALL 
CALL. 
CALL 
PUSH 
CALL 


H 


PROMPT MVI Ar’ 


WHI 
WHO 
WH1 
P 
CRLF 


POP FP 
STA CMNI 


SUT 


’ BR’ 


JZ CME 
DCR A 


HEGUMOASESASASASASESESESESES 


5980 
30970 
5100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
5200 
3210 
3220 
3250 
3240 
3200 
3250 
3270 
3280 
3270 
3300 
3310 
3320 
33350 
3340 
3350 
53360 


JZ CMC 
SUI 2 
JZ CME 
SUIT 2 
JZ CMG 
SUI 4 
JZ CMK 
SUI 3 
JZ CMN 
SUI 3 
JZ CMAQ 
DCR A 
JZ CMR 
DCR A 
JZ CMS 
DCK A 
JZ CMT 
DICK A 
JZ CMU 
SUI 3 
JZ CMX 
DCR A 
JZ CMY 


MVI Av’ ?’ 
CALL. WHI 
CALL. WH1 
CALL CRLF 
JMP PROMPT 
LB EQU ¢-1 
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2000 
2000 
2003 
oooD 
0Cc20 
0C24 
0A02 
0A0C 
OSAL 
0005 
O1F4 
O1E0 
W006 
2008 
wOOA 
2O00C 
JIOOE 
7010 
wO12 
7014 
w016 
27018 
wOLA 
~701C 
VOLE 
2020 
~40A 
426 
V4ASC 
74635 
~H46A 
246C 
~46E 
w470 
I472 
D474 
47S 
477 
I47E. 
~480 
49D 
J4AC 
~4ES 
24C0 
24D0 
w4F2 
~4F Ti 
VOOE 
sar wa 
WoL 
per er SS 
IAF 
SOAF 


pareve & 


val var ft = 


S565 


Symbol Table for listing 4. 


bal ta Pal 
wu7 E. 
SUAF 
SUBE 
voc 
Sol4 
Sor 2 
2609 
wo14 
3632 
IO45S 
S45 
SOE 
3673 
val Fane m4] 
0A0C 
2OCC 
O02 
VOEE 
VOFS 
v7 ol 
OFFS 
Ww? ot 
v7 4E 
7 Ie 
uw? OF 
w/7S 
uw/ Sl 
wrAZ 
U/AF 
w/ RL 
u? RE 
3/CC 
o/7E7 
u/FoS 
3802 
Ve2S 
2o3l 
37848 
Ue4r 
UBSs 
UIBS6 
vals c= ba 2 
3863 
SB6F 
3O7E 
U8B84. 
2Ssu 
UBSA0 
VeRS 
USBE 
UeDsS 
SBE2 
UeFS 
UOorFR 
wP?03 
wPr1s 


FINISH 
BEGIN 
PROMPT 
LB 


Listing 5: Pascal to P-Code Interpreter 


4F00 0010 XK PASCAL-TO-P-CODE COMPILER (FROM BASIC) 
4F00 0020 x 1978-XII-18 
4F00 0030 ORGA EQU 4F00H 
4F00 0040 ORG ORGA 

4F00O C3 EO 6C 0050 START JMP ORGATIDEOH ¢ RUN > 
4F03 C3 68 69 0060 F3490 JMP ORGATIAGSH (53490 > 
4F06 C3 ES 64 0070 F4290 JMP ORGATISESH (14290 > 
4FO9 CS 48 6B 00830 F5340 JMP ORGATIC4SH (55340 > 
4F0C 0090 PCODES EQU 2CO0H 
4FOC 0100 MEMLIM EQU ORGA-1 
4F0C 0110 SRCFIL EQU 1000H 
4F0C 0120 NO EQU 32 

4F0C 01350 TO EQU 50 

4F0C 0140 N1 EQU 32767 
4FOC 0150 N2 EQU 8 

4FO0C 0160 TST DS 400 

AIC 0170 TOST DS TO 

ACE 0180 LST DS 64 

VLOE 0190 AST DS N2+4 

w1llA 0200 BST DS N2 

wi 22 0210 S DS 200 

wLEA 0220 SST DS 100 

ves 02350 CST DS 80 

a Pg = 0240 OST DS 8 

LAS 0250 T1 DS TOtFTO+2 
350C 0260 T2 DS TOtTOt+2 
57 2 0270 TS DS TOtTOt2 
JoUS 0280 XST DS 1 

voD? 02970 FNEIST DS S 

SOUE 03500 YST DS 3S 

SES 0310 SOST DS & 

JSES 0320 KST DS &S 

VSED 0350 ZST DS S 

OF 2 0340 FRPTR OS 2 

SF 4 0350 BOFP DS 2 

aE S 0360 EOFP DS 2 

JSF SB 0370 P7 DS 2 

OF A 0380 PS DS 2 

oF C 0390 PY DS 2 

oF Ee 0400 Q? DS 2 

7400 0410 SY DS 2 

74902 0420 FS DS 2 

DA04 0450 Y9 DS 2 

AOS 0440 Z DS 2 

A498 0450 CO DS 2 

DADA 0460 E9 DS 2 

~490C 0470 LO DS 2 

~40E 0480 Ci DS 2 

A190 0490 K DS 2 

MALS 0500 T DS 2 

w4A14 0510 I DS 2 

AALS 0520 J DS 2 

418 0530 NS DS 2 

ALA 0-40 X DS 2 

~A1C 0550 I1 DS 2 

ALE 0560 I2 DS 2 

W420 0570 Li DS 2 

AZ? OS5S0 F9 DS 2 

ALS os70 LOO DS 2 

HA2ZG 0600 Ki DS 2 

74283 0610 K2 DS 2 

WAZA 0620 KS DS 2 

A2ZC 06350 BO DS 2 
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al val he ire 
SUAS 


VIRB 


266 


aR sR SER, ARREARS FR aR ES eR SE A Se PGCE GAA 


8S 8 


8S aN & 


SR 


aHR G8 6 Ff 


BR & 6 


rs 
qi 


> 
O 


WOST DB 


DB “’DOWNTELSE END FOR FUNC IF 


DB 


DB “SHR THEN TO 


“AND ARRAYBEGINCALL CASE CONSTDIV 2D 
INTEGMEM 


“MOD NOT OF OR PROC READ REPEASHL 


TYPE UNTILVAR WHILEWRITE 


IDENT DB ’ IDENT’ 
NUM DB “NUM ” 
STR DE “STR ” 
MST DB “LITOPRLODSTOCAL INTJMPJPCCSP’ 
L250 DR “P-CODE STARTS AT 2C00H’ 
DB ODH 
L280 DB “WANT CODE PRINTED? ” 
DB ODH 
L339 DB “FILE ENDS AT ’ 
DB ODH 
L340 DB “INTERPRET( I)» OR TRANSLATEC TD? ” 
DB ODH 
L360 DB “LDGO INTRP 70° 
L370 DE “LDGO TRANS 70” 
L710 DB ’MEM FULL’ 
DB ODH 
L720 DB “CONST EXPECTED’ 
DB ODH 
L730 DB ‘“"=" EXPECTED’ 
DB ODH 
L740 DB ’ IDENTIFIER EXPECTED’ 
DB ODH 
L750 DB ’“"s" GR "" MISSING’ 
DB ODH 
L760 DB “"." EXPECTED’ 
DB ODH 
L770 DB ’"s" MISSING’ 
DB ODH 
L780 DB “UNDECLARED IDENT’ 
DB ODBH 
L790 DB “ILLEGAL IDENT’ 
DB ODH 
LS00 DB “"s=" EXPECTED’ 
DB ODH 
L810 DB ’"THEN" EXPECTED’ 
DB ODH 
L820 DB “"3" OR "END" EXPECTED’ 
DB ODH 
L830 DB “"DO" EXPECTED’ 
DB ODH 
L840 DB ’ INCORRECT SYMBOL’ 
DB ODH 
L850 DB “RELATIONAL OPERATOR EXPECTED’ 
DB ODH > 
L860 DB “USE OF PROC IDENT IN EXPR’ 
DB ODH 
L870 DB ’")>" EXPECTED’ 
DB ODH 
L880 DB “ILLEGAL FACTOR’ 
DB ODH 
L890 DB ’"BEGIN" EXPECTED’ 
DB ODH 
L900 DB “"OF" EXPECTED’ 
DB ODH 
L910 DB “ILLEGAL HEX CONST’ 
DB ODH 
L920 DB “"TO" OR "DOWNTO" EXPECTED’ 
DB ODH 
L930 DB “NUMBER OUT OF RANGE’ 
DB ODH 
L940 DB “"¢" EXPECTED’ 
DB ODH 
L950 DB ’“"C" EXPECTED’ 
DB ODH 


SR SBR OA 


SUAVE SNSRRRIRRR RRR REVI ANI Gaaae & Ro A Rg 


8 


NJ 
o 


L960 DEB “”"7" EXPECTED’ 
DB ODH 
L970 DEB “PARAMETERS MISMATCHED’ 
DB ODH 
L980 DE “DATA TYPE NOT RECOGNIZED’ 
DB ODH 
t9790 DE ” BUG’ 
DB ODH 
L6570 DB “ADDR AT’ 
DB ODH 
DOB “CHANGED TO’ 
DEB ODH 
ETABR DW L710 
L720 


L990 

L810 

L820 

L830 

L840 

L850 

L860 

L870 

L8Beo 

Lo90 

LBvo 

L900 

L910 

L920 

L990 

L9SO 

L940 

L990 

L9SO 

L960 

L979 

L930 

Lis0oO DEB 

WHO EQU OC20H 
WH1 EQU 0C24H 
MOVE EQU 100H 
OSEQ EQU SADH 
CROUT EQU O9FSH 
CRLF EQU CROUT 
CLEAR EQU O9FDH 
KEUF EQU OCOCH 
FLAG EQU O 
BLK1 EQU OA02H 
BDEOUT EQU OAOCH 
ARRAY PUSH H 
MOV L»E 

MOV HsD 
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SMO SMS MER ENGR RAN ATR HIS Bas IRAS 


00 
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N 8 


CRF MVI Asv20H 
STAX D 

INX 5B 

MOV L»C 


oD 
9B 


YD 


ch ch 
eaies) 


LXI Ds—10000 
CALL DCALC 
JZ +4 
XTHL. 

MOV MrA 

INX H 

XTHL 

L_XI Ds—1000 
CALL DCALC 
JZ +4 
xXTHL. 

MOV MrA 

INX H 

XTHL 

LXI Ds—-100 
CALL DCALC 
JZ +4 


DECOUT CALL DECPR 


CALL BLK1I 
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oc cf 
ate) 


Cl 


SD 


EERE 


qh 
ry 


fl 
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ro) 
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JMP 111043 
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3760 
JIGS 
3IEHh 
JIIEP 
376C 
SIOF 
a7 2 
aII7S 
39/783 
397B 
JP7E 
SPSL 
JIBS 
JIBS 
uIP89 
VIFSBC 
JISF 
wIIP2 
TIPPS 
TID 
IPPA 
JIIPA 
2I79D 
VIOF 
UPAO 
SIPAZ 
SIIAS 
TIAS 
BIAS 
uPA 
UPAA 
JIAD 
aIPBRO 
JI7R1L 
JIPBS 
37 BA 
VIBS 
JIB 
JIBS 
JIBA 
J7BB 
JTBE 
VPBF 
37CO 
3PCS 
JIC4 
vI7CS 
JICS 
wIC/ 
37CS 
uICP? 
uIZCA 
~7CB 
3ZCC 
JPCF 
37D0 
3701 
37D2 
3703S 
J7D4 
v7DS 
wFDS 
JITI7 
s7DP 
VIIA 
ard 8) & 
VIEO 
VIES 
IIES 
JPE/ 
JIEA 
VIED 
JIFO 
SIF L 
UPF4 
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FS? 


oc 
ol 


oc 


oc 
oc 


Li210 LXI Hs-1 


SHLD FS 
LXI HeLST+1 
LXI Dv0CS4H 
LXI Br-S 
CALL MOVE 
LHLD BOFP 
SHLD FPTR 
SHLD OCéAH 
LXI He$t+11 
SHLD OCé6CH 
MVI As’ I’ 
STA 0C73H 
JMP READO 
LHLD 727FH 
SHLD OCOEH 
LHLD OC6EH 
MVI Mel 
SHLD EOFP 
JMP $1090 


MENTR EQU 7390H 
READO LHLD MENTRt2CH 


MUI Ms’ L’ 
INX H 


XCHG 

LHLD OC46AH 
MOV Cel 
MOV AsH 
CALL BINH 
DCX H 

MOV AsM 
STAX DB 

INX D 

INX H 

MOV Asi 
STAX D 

INX 2D 

MOV AsvC 
CALL BINH 
DCX H 

MOV Asi 
STAX D 

INX DTD 

INX H 

MOV AsM 
STAX DO 

INX D 

MVI AzsO0DH 
STAX BD 

LXI HsMENTR 
MENTR+2AH 
LHLD OCOEH 
727FH 


MENTRt+2CH 
MENTRtS2H 
MENTRt+20H 
DCX H 

SHLD OCS6EH 
LHLD OC4SCH 


SOFT 
S9FS 
SOF9 
SOFC 
SoFD 
SOFE 
SOFF 
SA00 
SA01 
SA04 
SA0S 
SA0S 
SA07 
SA0A 
SAOB 
SAOC 
SA0E 
SALO 
SA12 
SALS 
SALS 
SAL6 
SAL? 
SALA 
SAID 
SALE 
SA1IF 
SAZ0 
SAZ1 
SAZ4 
SA25 
SA28 
SA2B 
SA2C 
SA2F 
SAS2 
SASS 
SAZG 
SAB7 
SAS8 
SASB 
SASC 
SAS 
SASF 
SA42 
SA45 
SA46 
SA4S9 
SA4A 
SA4D 
SA4E 
SASF 
SASO 
SASL 
SAS2 
SASS 
SASG 
SASS 
SAA 
SASD 
SASE 
SASF 
SAGO 
SA61 
SA64 
SA6S 
SAG7 
SAGA 
SAGE 
SA6C 
SAG6F 
SA72 
SA7S 
SA7S6 
SA77 
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oc 


5 


5 


Ch 
hd 


ET 

PCHL 

BINH LXI HsyADDS 
MOV BsAé 


BINI ANI OFH 
ADI SOH 

CPI ’9’+1 
RC 

ADI 7 

RET 
$1960 LHLD T1 
INX H 

SHLD T1 

DCX 


INX H 

MOV MsD 

RET 
L2010 LXI DsT1l 
XCHG 

CALL ARRAY 
XCHG 

LHLD Li 

XCHG 

MOV MrE 

INX H 

MOV MrD 

LEA KST 

CPI 


SEPARA RMS MUN MS BRRSEME SE Sy VRQ BNA ANS VON SaSN SUN GAN ADS SRO VENO ONS OUMUNOeNO de 


88 


Al 


C4 


2440 
2450 
2460 
2470 
24380 
2490 
2200 
2310 
a0 
2at50 
240 
20 
ZOO 
270 
Fre, = 20] 
270 
2600 
2510 
2620 
2650 
24540 
2650 
2OH60 
24/70 
2680 
24590 
<790 
2710 
2720 
2750 
27490 
2730 
27640 
2/779 
2/7830 
2790 
2800 
2810 
2820 
23350 
2840 
2850 
2860 
2870 
2330 
2370 
2700 
2910 
2720 
2750 
2P?40 
290 
22750 
2979 
730 
2I9O 
5000 
5010 
3020 


0010 
0020 
0030 
0040 
00350 
0040 
0070 
0030 
00970 
0100 
0110 
0120 
0130 
0140 
0150 


RET 
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TGEaE: 


DCX H 
JMP S2060+35 


$1240 LDA XST 
CPI 20H 
JNZ 1280 
CALL S1030 
JMP S1240 
Li2s0 CPI 
JC £1460 
CPI ’2Z2’+1 
JNC £1460 
LXI Hd 
SHLD K 
tXI Hei1300 
LXI DsAST 
LXI Bs-12 
CALL MOVE 


“A’ 
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a 
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MOV MrsA 
MOV L»A 


JC £1310 

11360 LXI Hei 

SHLD I 

LXI HeNO+N0+4+N0-+4+N0-+4N0-—4 
SHLD J 

LXI H»AST 

LXI DsBST 

LXI Bs-8 

CALL MOVE 


13 


SOASAS & 
Jd@d 3 


Bs 


S 


00 


& 


aR 


HEAL SBINSE 


09710 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
09790 
1000 
1010 
1020 
1050 
1040 
10350 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12350 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
13350 
1340 
1350 
1360 
1370 
1380 
L370 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
14380 
1490 
1500 
1510 
1520 
1550 
1540 
L550 
1560 
1570 
1580 
1570 
1600 
1610 
1620 
1630 
1440 
16350 


MOV EBEsH 
LHLD I 
CALL BHCMP 
JP L13904+3 
LXI De-S 
DAD D 


£1460 LXI HrZsT 
LDA XST 

CPI “0” 

JC Lisso 

CPI ’°9’+1 

JNC 11580 
Lis00 MOV MzA 
INX H 


SREP PEELED 


be 
- 


LXI BsN1 


JMP MOVE 
Lisso LAI HsSOST 
CPI ’ 3” 
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EEE 
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Sagan 


BY 8 AsadesN Sse amas 
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QS 
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NBAGsaSd Ss 
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g weqdes = 8 


ay 
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a & 


6 


DOA OO 


L1620 MOV M2zA 


INX H 
MVI Mr’ 7” 
JMP S1030 
L1640 CPI 
JNZ L1710 
MOV MrA 
INX H 
PUSH H 


Fee 


CALL S1030 


POP H 
CPI ‘>’ 
JZ L1690 
CPI “= 
JZ 1690 
MUI Ms’ ” 
RET 


L1690 MOV MrsA 


INX H 
MVI Ms’ ” 
JmMP S1030 
L1710 CPI 
JNZ £17350 
MOV MsA 
INX H 
PUSH H 


, Ae 
ow 


CALL S1030 


POP H 
CPI ’= 
JZ L1690 
MUI Me’ ¢ 
RET 


Li7SO CPI ’’%?’ 


JNZ L1790 
LXI H»sSTR 


LXI DsSOST 


LXI Bs-S 
CALL MOVE 
LXI H»sCST 
Li770 PUSH 


H 


CALL S1030 


POP H 
CPI Ya a ad 
JZ QFND 
MOV MrA 
INX H 
JMP 11770 


QFND PUSH H 
CALL S1030 


POP H 


a ae ae 


Li78o0 
MrsA 
INX H 
L1770 


L1i7S0 MVI Mer’ 


RET 
Li790 CPI 
JNZ L1820 


COM CALL S10350 


CPI ” 3’ 
JNZ COM 


3? 


CALL. S1030 


JMP S1240 
Lis20 CPI 


de Ag 


A 
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lla 
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sy 


o 
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raate Sid F & 


00 
0A 


SUI ’0” 
JC 11910 
CPI 10 
JC Li1sso 
SUI 7 
CPI 10 
JC 11910 
CPI 16 
JNC 11910 
Lisso DAD H 
DAD H 


RNZ 

LXI He’ XX’ 
SHLD SOST 
RET 
Li930 LXI H»SOST 
MOV MrA 

INX H 

MVI Ms’ ” 
JMP S10350 
FNE2 PUSH H 
CALL S1240 
POP H 
FNE1 PUSH H 
LAT DeSOsT 
LXI H»FNEAST 


BLST LAI Hrl13500 
LXI DsFNEIST 
LAT Bs-S 
JMP MOVE 


wD71 
wLI7 4 
SL S 
S79 
S07C 
oD7T 
UD7E 
SDB1 
S084 
208s 
3088 
3D8B 
SUSE 
SUP 1 
SIP4 
SD97 
ule? 
sL9C 
UD9F 
uLAO 
UDALL 
uDA4 
SLAs 
SDAG 
SDA 
UDAS 
SUDAB 
SDAC 
SUAL 
UDAE 
UDELL 
UDB4 
SDB 
ULES 
UDR 
VDBA 
TDBE 
JUBC 
VUBD 
JURE 
SURF 
=BCO 
3LCS 
sDCS 
UDC 
~LCA 
JDCBR 
VDCH 
~DDO 
VRDD2 
vDDS 
JDDS 
JUDS 
bar) #) 8d 
SUBA 
VLDB 
VOUDC 
VUDF 
JDEO 
VDEL 
UE. 
JUE4 
VDE 
JDEA 
JDEB 
JDEE 
SDEF 
aDF 1 
UDF 2 
UDF S 
UDF S 
UDF 7 
YJOFS 
JOFE 
UDF C 
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oc 


oc 


BSOSYSS QNRSSBRSVeysE 


ws 
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BNAAGSAERABE 


0oE 
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ho OSH 
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OPE aE 


sEEaRRED ES 
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DAD D 
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BAB SASIIS SAS aR 
SH 9S ASsshssseqd se 


B1 
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SHHSd Few g 
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wr 


L6190 MOV AsM 
CPI 20H 

JZ L6200 
STAX D 

INX H 

INX B 

DCX B 

MOV AsC 


MOV AsC 
L6270 CPI -5 

RZ 

MVI Mr” 7” 

INX H 

DCR A 

JMP L6270 
$2180 LXI Hy» IDENT 
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PR OMSASERONMS ER ORNARN MOMS oO 
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INISIBUNSREBREAERESKEEEBOBS ORE 
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© 


Sh 4 Hdesh AMSA As F¥ ASS sseeqads F Vag 


JMP S1240 


$2240 LXI HsSOST 


LXI DsNUM 
CALL STCMP 
RZ 

LXI H»SOST 
LXI Ds IDENT 
CALL STCMP 
JZ L2290 

LXI HesSTR 
LXI Ds»eFNE1ST 


MVI As’ VV’ 
STA KST 
CALL S1960 
JMP S1240 


52380 LDA SOST 


CPrI ’ +’ 
JZ L2420 
CPI ? wn? 
JNZ L2590 


L2420 STA YST 


MVI Av’ 7” 
STA YST+1 
CALL S6190 
CALL S1240 
CALL S2610 
CALL S6240 
LDA YST 
CPI F oun? 
JNZ L2460 
LXI Devi 
LXI Bsid00H 
CALL FNG 


L2460 LDA SOST 


CPI ’ +’ 

JZ L2500 

CPI F am? 

JZ L2500 

LXIT HsWOST+9S 
LXI DsSOST 


co 


RRO NRO ONE UP NOTE EOF GU SMS PROB OO URED ORD RDO DED AN 


BRoame NS 
S Sens Someddd Ws 
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cp 
00 
03 


mG GR 


h 
CU 
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NX 
AsaAshHg s 


Oo 
Oeeo 


BTS R 
AS 


SR ASRSSBRRRSdmd GLVANNIRN 


PASE R aM AaN 


Ml 6S HSeAsSmeddd 68 6S SB 


esos $ S$ SSs 


CALL. STCMP 
JZ L2500 


RET 
L2500 LXI HsSO0OST 
LXI De YST 


LXI Des 


RNZ 


CALL S6240 
LAI Dr4 


L2830 
L2760 LXI Dell 
SUI 35 


CD 


SOD Tee OOO eee emo MON BSR EN MOR mA SR BORNASB ARS ESESESRSRRRESA SHEAS 


BN 
$38 


18 


$e 


Sir 


E9908 £ Vl S$Osiea Fa BF AY Fy 


JZ L2850 


INA 


L2830 CALL FNG 


JMP 


$2850 LDA SOST 


CPI 


B 
L26350 


“¢ ? 


JZ 3100 
CALL CKRES 


JNZ 
MVI 
SUB 


L29220 
Av1790 
L 


JZ L3080 


SUI 


v3 


JZ L3060 


SUT 


o 


JZ L2940 


SUT 


7a 


JZ L3260 


SUI 


10 


JZ L3140 


L2920 LXI Hv23 


JMP 


L2940 CALL S2060 


MOV 
ORA 
JNZ 
LXT 
JMP 
DCX 
LAT 


FNE 


AvH 
iL: 
$té 
Hil 


DAD D 


MOV 
CPI 
JNZ 
LXI 
JMP 


L2970 CPI 


JNZ 
LXI 
LXIT 


Avi 

7P?’ 
L2970 
He2l 
FNE 

eye 
L3000 
Bs500H 
Del 


CALL FNG 
LHLD I 


DCX 


H 


SHLD I 


JMP 


L3000 CPI 


F4270 
t A’ 


JZ L3190 


CPi 
JNZ 


"C’ 
L30350 


LHLD I 
ACHG 

LXT HsT2 
CALL ARRAY 


LAT 


Bs9 


CALL FNG 


JMP 


$1240 


130350 LHLD I 
XCHG 


LAT 


HesT2 


CALL ARRAY 
PUSH D 


6160 
6161 
6164 
6167 
616A 
616D 
616E 
6170 
6173 
6176 
6179 
617C 
617E 
6131 
6184 
61387 
618A 
618D 
6190 
6195 
6196 
6199 
619C 
619F 
61A2 
61AS 
6148 
61AB 
S1AE 
61B1 
61B4 
6157 
61BA 
61BD 
61C0 
6103 
61C6 
61C? 
61CC 
61CF 
6102 
6105 
6108 
6é1DB 
61DE 
610F 
61E2 
61ES 
61E8 
61EB 
61EC 
61ED 
S61EF 
61F2 
61F3 
S1F6 
61F9 
61FC 
61FF 
6202 
6205 
6208 
6205 
620E 
6211 
6214 
6217 
6218 
6219 
621C 
621F 
6220 
62235 
6226 
6227 


NRE BBBRRE AAS MSs eo Wek eRe 


CD 


13140 LXI Hy’ C’ 
SHLD FNE1ST 
LXIT Hr33 
CALL FNE2 
CALL S1240 
CALL S3270 
LXT He’ J” 

SHLD FNEAST 


LXI Hs’ CC’ 
SHLD FNEIST 
LXI H-r33 
CALL FNE2 
CALL S1240 
CALL S32970 
LXI Hy? JW 
SHLD FNEILST 
LXI Hr34 
CALL FNEL 
CALL S6150 
LHLO xX 

XCHG 

LXI HezT1 
CALL ARRAY 
CALL CMI 
LHLOD LL 

DAG 

MOV CrL 

MVI Brvi8 
LHL x 

XCHG 

LXI HrT2 
CALL ARRAY 
CALL FNG 
JMP S1240 
(3260 CALL S1240 
CALL S2850 
LXI Itv1s 
L_XI Bsid00H 
JMPF FNG 
$3270 CALL S235980 
LHLDO SOST 
LXI OUs8 

MOV EsH 

MOV Cyl 

LXI Hs*% =’ 
CALL EBHCMPJ 
INX 0D 

LXI He? S07 
CALL BHCHF.J 
INX I 

LXI Hr? <7 
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278 


1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1570 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1770 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 


2i?7O L3810 CALL S1i240 


L3650 LAT 


CALL BHCMPJ 
INX f 

LXI Hy’ =>’ 
CALL BHCMPJ 
INX I 

LXI He” >’ 
CALL BHCMPJ 
INX 2 

LAI Her? =<0” 
CALL BHCMF J 
RET 


BHCMPJ CALL BHCMP 


RNZ 

FOP H 
PUSH D 

LXI HrSOST 
LXI Dv YST 
LXI EBr-S 
CALL MOVE 
CALL. S6180 
CALL Sil240 
CALL S2360 
CALL S6240 
FOP IU 

LAI Bridd0hH 
JMP FNG 


L3630 CALL 52060 


JZ L3650 
LXI Heil 
JMP FNE 


DAG I 
DCX H 
MOV Ari 
CPI ’A’ 
JZ 3700 
CPI ’V’ 
JZ 37560 
Cri “ ¥7 
JZ 137569 
Cr I 7 PP f 
JZ F4290 
LXI Hri2 
JMPF FNE 


L3/700 LHL IT 


SHLD x 

CALL S6120 
LXI Hrié6 
SHLU xX 

CALL. S6120 
LXI Hz’ CC’ 
SHLOI FNELST 
LXIT Hr33 
CALL. FNE2 
CALL S1240 
CALL 53270 
LXI Hr” J’ 
SHLD FNELST 
LAI Hr34 
CALL. FNEL 
JMP L37380 


L3760 LHLI' I 


SHLD X 
CALL S6120 
LXI HO 
SHLD X 
CALL S46120 


L3780 CALL Si1240 


LHLD SOST 
LAI Br’=3’ 
CALL. BHCMPF 
JZ 13810 
LAI Hr1l3 
JMP FNE 


Ds TOST 


00 


7 


N 


00 


2200 
2219 
2220 
2250 
2240 
2250 
22250 
2/O 
2280 
22970 
2500 
2510 
2520 
23550 
2340 
23550 
23560 
2379 
23580 
23570 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2430 
2470 
2300 
23510 
2a20 
2350 
240 
evar #] 
2200 
270 
230 
27d 
24590 
2O10 
2420 
24350 
2540 
2050 
2O60 
25/79 
2650 
2O90 
=/900 
2/10 
af a 
2/59 
2/40 
2730 
z/ 40 
2/79 
=/ 80 
2/90 
2800 
2310 
220 
23350 
2340 
2850 
28640 
2870 
=830 
28970 
z7O0 
2710 
2720 
7350 
2740 


CALL. S3290 
CALL $6150 
LHLD X 
SHLD K 
CALL S6150 
LUA K 

ALDI 3 

MOV EA 
LHLD xX 
XCHG 

LXI HsT1 
CALL ARRAY 
CALL CHE 
LHLE Li 
DAD os 

MOV CrL 
LHLE X 
XCHG 

LXI HrT2 
CALL ARRAY 
JF ENG 


L3370 LAI Hs’ 
SHLO FNELST 


LXI Hr3l 
CALL FNE2 


C7 


LS880 CALL Siz49 


FUSH H 

LAI t4#sSTR 
LXI [tsS0ST 
CALL STC’ 
FOF 

JINZ L3Pso 
LXI ItyCST 
CALL Cintt 
TAG Oo 

MOV Ark 
CRI L 

JNZ L3PLO 
LXI ErdO 
LIA CST 
MOV EvA 
MOV ItrsC 
CALL FNG 
LXI EKr800H 
LXI Itvyl 
CALL FNG 
JHF L3940 


LS?L0 LAI HrCst 


MOV ErA 
MVI Ils 
FUSH UO 


L39720 FUSH H 


PUSH FP 

MOV Asi 
LXI rd 
MOV D7C 
MOV ErA 
CALL FNG 
FOF F 

DOCK A 

JZ LSPs 
POP H 

INX H 

JMF L3P2Zo 
L3930 POF I 
POP [i 

LXI Esd 
CALL FRG 
LAI EsS00H 
LXI Ors 
CALL FNC 


L39740 CALL S1i240 


JMP L4000 


L39S0 CALL S3290 


LXI Hril 


SED oe DOR om ee Neo A SAM BSE SBR ARNG 


00 
97 


LnA SOST 

CPI ”#° 

JZ L3980-2 
CPI *x’ 

JNZ L39SO 
INX H 

INX H 

INX H 

INX H 
L39S0 SHLD K 
MOV AsvL 

CPI 2 

CP S1240 
L3?770 LHLD K 
XCHG 

LXI KrS800H 
CALL FNG 
L4000 LIA SOST 
CRI 7% x” 

JZ L3eso 

LXI Hs’ )7 
SHLD FNELST 
LXI Hr22 
CALL FNEL 
JMP ~-S1i240 
L4040 LXI Hy’ ¢€7 
SHLDD FNELST 
LXI HsS1L 
CALL FNE2 
L4050 LXI Hy LUENT 
LXI OUsFRNELST 
LXI Es-S 
CALL MOVE 
LXI Hs4 
CALL FNE2 
CALL S2060 
MOV AvsH 

GRA L 


CPI ’A’ 

JZ 14190 
CPI ’v’ 

JZ L4090 
LXI Hs4 

JMPF FNE 
L4090 LXI HsrO 
SHLD LO 
L4100 CALL S1240 
LXI Herd 

LDA SOST 
CPI ”+#’ 

JZ L4130-2 
CPI ’xX’ 

JNZ 4130 
INX H 

INX H 

INX H 

INX H 
L4130 SHLD K 
LXI BKs800H 
XCHG 

CALL FNG 
LHLD K 

MOV AsL 

ORA H 

CNZ S1240 


hh 


3 


BND 8 & 


3790 
37190 
35720 
3730 
3740 
3730 
35760 
3779 
37380 
3790 
35800 
38310 
3820 
38330 
58340 
35850 
3360 
3370 
58380 
3870 
3900 
35910 
3920 
39730 
3SP4O 
SPIO 
3940 
3970 
3930 
357PO 
4000 
4010 
4020 
4030 
4040 
40350 
4050 
4070 
49030 
40970 
4100 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
00gG0 
0070 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0130 
0190 
0200 
0210 
0220 
027350 
0240 
0250 
02560 
02790 
0280 
0290 
0300 
0310 
0320 


CALL ARRAY 
CALL CME 
LHLOD LL 

DAD 

MOV Crl 
LHLD X 

XCHG 

LXI HryT2 
CALL ARRAY 
CALL FNG 
inA SOST 
CPI 7’ ’ 

JZ L4050 
LXI Hr” 9)” 
SHLD FNEILST 
LXI Hr3l 
CALL FNEL 
JMP S1240 
L41970 LXI Hs’ 
SHLD FNEIST 
LXI Hr33 
CALL FNE2 
CALL S1240 
CALL S3290 
LXI Hs” 7 
SHLO FNEIST 
LXI Hr34 
CALL FNEL 
LXI Hrié 
SHLD LO 

JHF 4100 
ASFPC EQU 


L4240 LXI Hs’ 
SHLOID FNELST 
LXI HsSl 
CALL FNE2 
CALL S1240 
CALL S3290 
LXI Her” 9)” 
SHLOU FNELST 
LEXI Hs22 
CALL FNEL 
LXI Es4FFH 
LXI Usr0 
CALL FNG 
JHF S1240 

L4290 LXI Hs9 
SHLU KR2 
LHL I 
SHLD NS 
XCHG 
LXI Hs tS 
CALL ARRAY 
MOV AvE 
ORA It 
JZ L44090 
LXI Hs’ (¢7 
SHLD FNEAST 
LXI HeSlt 
CALL FNE2 

L4320 LHLD K2 
SHLIt X 
CALL S6120 
LHL KS 


ig 


c.* 


279 


280 


BS SSS808 FSaRaA> 


03350 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0450 
0440 
0450 
0460 
0470 
0430 
04970 
0500 
0510 
0520 
0550 
0540 
0550 
0340 
0370 
0530 
on70 
04600 
0610 
0620 
0650 
0640 
0650 
0460 
0470 
06950 
0670 
0700 
0710 
0720 
0730 
0740 
07350 
0760 
0779 
0780 
0770 
0800 
0310 
0820 
0830 
0840 
0850 
0360 
0870 
08380 
03890 
0700 
o710 
0920 
0930 
0940 
0950 
0960 
0970 
097380 
07970 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


SHLD X 
CALL. 56120 
CALL S1240 
CALL S3270 
CALL 56150 
SHLD KS 
CALL S6150 
INX H 
SHLD K2 
LDA SOST 
CPI “%»’ 

JZ L4320 
LHLD KS 
LXI DsTS 
XCHG 

CALL ARRAY 
CALL CMD 
LHLD KS 
BAD OD 

MOV AsL 
ORA &A 

JNZ L43590 
LAI Hrs3s 
JMP FNE 


L4390 LXI Hs” )” 


SHLO FNELST 
LXI Hr22 
CALL FHEL 


L4400 MUI Br4 


LHLD KS 
LXI UvT1 
ACHG 

CALL. ARRAY 
CALL CMI 
LHLU Li 
DAD ft 

MOV Cyl 
LHLE! KS 
LXI OUsT2 
ACHG 

CALL ARRAY 
CALL FRG 
LHLE K2 
MOV AvH 
ORA L 

JZ 51240 
ACHG 

CALL. CMD 
LXI Brs00H 
CALL FNG 
JMP 51240 


L4440 CALL S1240 


CALL S3290 
LXI HrWOSTt+125 
LXI DvyFNELST 
LXI Es—-S 
CALL MOVE 
LXI His 
CALL FNE1L 
CALL 51240 
LHLO Cl 

SHLD X 

CALL S6120 
LXI Kr700H 
LXI Ov9 

CALL FNG 
CALL. F340 
LXI HsWOST+45 
LXI DsSOST 
CALL STCMP 
JNZ $6520 
CALL S6150 
SHLD K 

LHL Ci 

SHLD X 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1470 
1480 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


L4S00 


CALL S6120 
LXI Esé00H 
LXI Osv90 
CALL FNG 
LHLO KR 
SHLII X 
CALL L640 
CALL S1240 
CALL F3470 
JMF S6520 


L4570 CALL S1240 


CALL F34970 
LDA SOST 

CPI 7” 37” 

JZ L4590 

LXI HrWOSTtS0 
LXI DtvSOST 
CALL STCMP 
JZ S1240 

LXI Hriv7 

JMP FNE 


L4650 LXI Hr’ C7’ 


SHLD FNELST 
LXI H-3S 
CALL FNE2 
CALL S1240 
CALL S3290 
LDA SOST 
CPI 7” 23’ 

JZ L4680 
LXI Hr34 
JMP FNE 


L46S0 LAI Her*=2’ 


SHLD FNELST 
LXE H13 
CALL FNE2 
CALL S1240 
CALL S3290 
LXI Bs3FFH 
LXI Or0 

JMF FNC 


L4730 LHLD Cl 


SHLD xX 
CALL 56120 


L4740 CALL 51240 


CALL F3490 
LUA SOST 

CRI 7” 5’ 

JZ L4740 

LXI HsWOST+140 
LXI DsFNELST 
LXI Bes-S 
CALL MOVE 
LXI Hid 
CALL FNEL 
CALL S1i240 
CALL S32970 
CALL S6150 
XCHG 

LXI Er/O0OH 
JMPF FNG 
CALL S1240 
LHLD Cl 

SHLD X 

CALL S6120 
CALL S3290 
LHL CL 

SHLIU X 

CALL S6120 
LXI Kr7O0OH 
LXI Its9 

CALL FNG 

LXI Hs’ OD’ 
SHLD FNELST 
LXI HriS 


SESMELGS 


1830 
1840 
1850 
1860 
1370 
1880 
1890 
1900 
19710 
1920 
1950 
1940 
1950 
1960 
1970 
1780 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2060 
2090 
2100 
2110 
2120 
21350 
2140 
21350 
2160 
21790 
2130 
21970 
2200 
2210 
220 
2250 
2240 
a0 
22250 
22/70 
2230 
2270 
2599 
23510 
2320 
2550 
23540 
23530 
2560 
23570 
2330 
2370 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2430 
2470 
2300 
23410 
220 
250 
240 
2330 
2360 
2u/0 


230 


CALL FNEL 
CALL S1240 
CALL. F34906 
CALL S6150 
SHLD K 
CALL S6150 
XCHG 

LXI BsS00H 
CALL FNG 
LHLD K 
SHLD X 

JMP L6é540 
L4890 CALL S1240 
CALL S3270 
LXI Hr’FO’ 
SHLD FNEILST 
LXI Hs25 
CALL FNEL 
LXI Heri 
SHLD I2 
L4920 LXI HsO 
SHLD Ii 
L49730 CALL Si1240 
CALL S2240 
LXI Bsid0H 
LXI Us21 
CALL FNG 
LXI EKzdO 
LHLOU NS 
XCHG 

CALL FNG 
LXI BKrid0H 
LXI ItsS 
CALL FNG 
CALL S1240 
LUA SOST 
CPI ’ 3’ 

JZ L4990 
LXI Her’ #7” 
SHLD FNELST 
LXI Hrs 
CALL FNEL 
LHLOD Ci 
SHLD X 

CALL S6120 
LXI Bse7O01H 
LXI U0 
CALL FNG 
LHLD Ii 

INX H 

JMP L4930-S 


L4990 LHLD Ci 


SHLD K 

LAI EBr/00H 
LAI lsd 
CALL FNG 
LAI Hel 
SHLD I 


LS000 XCHG 


LHLD I1 
CALL CMD 
DAD D 

MOV AsH 
ORA A 

JM $413 
CALL S6520 
LHLD I 

INX H 
SHLD I 
JMP LS000 
LHLD K 
SHLD X 
CALL S6120 
CALL S1240 
LHLD I2 
SHLD X 


678E 
673E 
67971 
6794 
5797 
E&79A 
6790) 
&7A0 
E&7AS 
57AS 
57ASB 
67AB 
567 AE 
6751 
67B4 
6757 
67BA 
67BD 
67CO0 
67C3 
67CS& 
&7C9 
67CA 
67CD 
6700 
67013 
67T15 
6709 
6700 
670F 
67E2 
S57ES 
67ES 
67EEBR 
67EE 
&7F1 
67F 4 
5&7F7 
&7FA 
67FU 
4800 
4303 
65806 
6809 
680C 
430F 
6812 
6815 
6818 
6815 
681E 
é681F 
6822 
6823 
6826 
6829 
682A 
6825 
682C 
682F 
6832 
6835 
6838 
683B 
683E 
6841 
6844 
6847 
584A 
6841 
6850 
6853 
68356 
6839 
683C 
685F 


25°70 
2600 
2610 
2620 
2630 
2640 
24650 
2460 
2470 
2680 
24690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2710 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3070 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3270 
3500 
3310 
3320 
3350 
3340 


CALL S46120 
CALL F34970 
CALL S61350 
SHLD I2 
LXI HeWOST+43 
LXI OsS0ST 
CALL STCHMP 
JZ LSO?VO 
LDA SOST 
CPI 7’ 3” 
JINZ LS1so 
LHLOI Ci 
SHLD K 

LXI Ksrd500H 
LXI isd 
CALL FNG 
CALL S6520 
LHLD K 
SHLD X 
CALL S6120 
LHLD I2 
INX H 
SHLD I2 
JMP L4920 
LS5070 LHLIE CL 
SHLO K 

LXI Bsé6é00H 
LXI Its9 
CALL FNG 
CALL S6520 
LHL K 
SHLD X 
CALL S46120 
CALL 51240 
LHLOU I2 
SHLD X 
CALL 56120 
CALL F340 
CALL S6150 
SHLD I2 
£5130 
LXIT DrsFNELST 
LAT Er-S 
CALL MOVE 
LXI Hril/ 
CALL FNEL 
LXI Heri 

SHLU I 
L5140 CALL S620 
LHLO I 

INX H 

SHLD I 

XCHG 

LHL I2 
CALL CMD 
DAD It 

MOV AzH 

GORA A 

JP LS1490 

LXI BrS00H 
LXI Or-1 
CALL FNG 
JMF Si240 


LS170 LXI Hr IDENT 


LXI DOsFNELST 
LXI Es-S 
CALL MOVE 
LXIT Hr4 

CALL FNE2 
CALL L3630 
CALL S6120 
LXI Heri 

SHLUO F? 

LXI HrWOST+1350 
LXI DrSOST 
CALL STCHP 


281 


LAT HrWOST+S0 


282 


oc 
BA 


JZ LS2iod 
LXI HesWOST+40 
LXI OUsFNEILST 
LXI Br-S 


CALL 


MOVE 


LAI Hr26 


CALL 


FNEL 


LAI HO 


SHLD 


Lo2Lo 


CALL 
CALL 


F? 

CALL 51240 
53290 
56150 


SHLE K 
LHLE Cl 
SHLID X 
CALL 56120 
LAI Brild0H 
LAI Ity2h 
CALL. FNG 
MVI EKr2 
LHLO KR 

LAI ty TL 
ACHG 

CALL ARRAY 
CALL CMO 


LHLO Li 
DAD [i 

MOV CerLl 
LHLO K 

LXI ty T2 
XCHG, 

CALL ARRAY 
CALL FNG 
LHLD FS? 
LXI Itvsis3 
XCHG 

CALL CHE 
DAG I 

BAD 
XCHG 

LXI EBri00H 
CALL FNG 
LHLO Cl 
SHLD X 
CALL S6120 
LXI EBsr/700H 
LXI O90 
CALL FNG 
LHLD F? 
SHLD X 
CALL $6120 
LHLO K 
SHLOD X 
CALL S46120 
LXI He’ OF’ 


SHLD FNELST 


LAI Hri8 
CALL FNEL 
CALL 51240 
CALL S35470 
CALL. 56150 
MVI Be2 
LAI DvT1 
ACHG 

CALL ARRAY 
CALL CMD 
LHLD Li 
DAD LI 

MOV CrylL 
FUSH & 
LHL xX 
ACHG 

LAI HeT2 
CALL ARRAY 
PUSH [i 


6925 
6928 
6925 
692E 
6951 
6932 
6935 
6936 
5939 
E97SA 
69730 
69740 
6941 
6942 
59435 
6946 
6949 
694C 
E&94F 
6950 
6953 
6956 
69759 
6935C 
69SF 
6962 
6965 
6964S 
696B 
696C 
696E 
E96F 
6972 
6974 
6977 
4979 
697C 
697E 
6781 
6983 
69356 
69738 
693B 
69S 
6970 
E992 
E995 
E997 
E799A 
699C 
E99F 
6&97A1L 
O9A4A 
E&9AS 
E&9AGS 
697AB 
SE&97AE 
69751 
&9B4 
6957 
S&9BA 
69RD 
69BF 
69C2 
69CS 
67C3 
&9C? 
67CC 
69CF 
6902 
6905 
6908 
é69DB 
é69DE 
6&9E1 
69ES3 


OS10 
0520 
0530 
O540 
9 ber ver #] 
0360 
0570 
0=G0 
os70 
0600 
0610 
0620 
04530 
0440 
04650 
0460 
0670 
046580 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0730 
0770 
0300 
0310 
0820 
03830 
0840 
0850 
0860 
0370 
0880 
0870 
0700 
0710 
0920 
0950 
0940 
0950 
0760 
0o970 
0930 
09970 
1000 
LO10 
L020 
1030 
1040 
L050 
19460 
1070 
1030 
LO70 
1100 
LL1O 
1120 
1130 
1140 
LLSO 
L160 
1170 
L130 
LLVO 
1200 
1210 
L220 
1250 
1240 
1250 
1260 


CALL FHNG 
LHL xX 
SHLO K 
CALL S6é1350 
xXCHG 

CALL CHIE 
LXI Hr20 
DAL I 

xXCHG 

LXI Erid00H 
CALL FNG 
FOF I 

FOF E 

INK E 

CALL FNG 
CALL S61350 
SHLD K 
CALL S6150 
xCHG 

LXI EKsr600H 
CALL. FNG 
LHL K 
SHLI X 
CALL L6S40 
LXI Ity—1L 
LXI EKrSO0H 
JMP FNG 


S3470 CALL CKRES 


RNZ 

MVI Az1d60 
SUB L 
JZ L36350 
SUI 3 
JZ L3870 
SUI & 
JZ L4800 
SUI 40 
JZ L47S0 
SUI & 
JZ L4040 
SUI 30 
JZ L4650 
SUI 10 
JZ L4440 
SUI 10 
JZ L5170 
SUI 35 
JZ L4890 
SUI = 
JZ L4240 
SUI S 
JZ L4590 
RET 


LS/730 LALIT Hs IDENT 
LAI OUvFNELST 


LXI Er-S 
CALL MOVE 
LXI Hr4 
CALL FNE2 
LXI HO 
SHLD Ki 
MVI As’ FY’ 
STA KST 
CALL Si?60 
LHLD Li 
INX H 
SHLI Li 
JMP LSS10 


LS/77O0 LAI He IDENT 
LAI OyFNELST 


LXI EHe-S 
CALL MOVE 
LXI Hr4+ 
CALL FRE2 
MMVI As’F’ 
STA KST 


1270 
1280 
1290 
1300 
1310 
1320 
13350 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1430 
1440 
14650 
1440 
1670 
14680 
1470 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
17970 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 


2020 


CALL S1760 
LHLD Li 
INX H 
SHLD L1 
LXI Hel 
SHLO Ki 
MVI Aas’ ¥? 
STA KST 
CALL S1i?760 
LS810 LHLDO KL 
SHLD K2 
CALL 51240 
LHLD T1 
SHLD X 
CALL S6120 
LHLD [0 
SHLD X 
CALL S6120 
LBA SOST 
CPI *¢? 
JNZ Lasso 
LS5850 CALL S1240 
LXI HO 
SHLD F? 
CALL S2340 
LHLD Ki 
INX H 
SHLID Ki 
LEA SOST 
CPI “’»s’ 
JZ LESseo 
LXI Hr’ 9” 
SHLD FNELST 
LXI H-22 
CALL FNEL 
CALL S1240 
LHL KL 
XCHG 
CALL Crt 
LHLOI Ti 
DAD I 
xXCHG 
LXI HrTS3 
CALL ARRAY 
PUSH H 
LHL K2 
XCHG 
CALL CHE 
LHLE KL 
TAL It 
XCHG 
FOF H 
MOV MrE 
INX H 
MOV Merl 
LSS890 LXI Hr’ Ff” 
SHLEI FNELST 
LXI HeS 
CALL FNEL 
LHLO KL 
MOV Cerbl 
MOV EsH 
LXI Hel 
SHLID I 
LHL Ti 
XCHG 
LXI HesT2 
CALL ARRAY 
XCHG 
LHLD I 
LS?10 XCHG 
CALL CMD 
pex 
DCX I 
DCX I 
MOV MrE 


SS ONASABE RNA 


2030 
2040 
2050 
2040 
2070 
2050 
20970 
2100 
2110 
2120 
21350 
2140 
2150 
2160 
2170 
2130 
2190 
2290 
a2lO 


2220 


2250 
2240 
220 
2250 
22/0 
220 
22970 
2500 
2510 
2320 
2330 
2540 
20 
2560 
25/79 
23580 
2370 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
24709 
2450 
2470 
2a00 
2310 
220 
250 
240 
20 
200 
2u/0 
2380 
270 
2600 
2610 
2620 
2630 
2640 
2O50 
2669 
2470 
2430 
2Oo70 
2/90 
2/10 
27 20 


2/30 


0010 
0020 
0030 
0040 


INX H 

MOV MrD 
DCX H 

DCX H 

DCX H 
XCHG 

LHLD I 

INX H 
SHLD I 
CALL BHCMPF 
JNC LS?LO 
CALL S1240 
CALL FU340 
LHLD Li 
DCX H 
SHLD Li 
CALL S6150 
SHLD DO 
CALL S6150 
SHLD T1 
LXI Hr’ 357 
SHLD FNELST 
LXI HS 
CALL FNEL 
CALL S1l240 
CALL CKRES 
MVI Ar100 
SUE L 

JZ L530 
SUI 40 

JZ LS770 
SUI 30 

JZ LSSso 
LXI Hr25 
JMP FNE 


LS?7S0 CALL S1240 


CALL S6150 
SHLD K 
ACHG 

LAI HerT2 
CALL ARRAY 
ACHG 

SHLUE xX 
PUSH ID 
CALL L6é540 
LHL Cl 
ACHG 

FOP H 

MOV MrE 
INA H 

MOV MrT 
LHLD [0 
ACHG 

LAI BrS00H 
CALL FNG 


L6020 CALL 53470 


LDA SOST 
CPI ’ #” 
JNZ L6050 
CALL S1240 
JMP L6020 


L6050 LAI HsWOST+S0 


LXI DtrySOST 
CALL STCHMP 
JZ L6060 
LXI Hri7 
JHMF FNE 


L6060 CALL S1240 


LAI EBsril00H 
LAI Lv0 
JMP FNG 


$5540 LAI Hrd 


SHLD DO 
LHLD K1 
ACHG 
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6BS2 
G6BSS 
6B53 
6BS9 
6B5C 
6550 
6560 
6B63 
6B64 
6B6/7 
6B68 
6B69 
6B6A 
6B6B 
6B6E 
6571 
6B7 4 
6B77 
6B7 A 
6B7T 
6B/7F 
&BS0 
6BS3 
6BSS 
6BS8 
SBSA 
6BSD 
OBSF 
6B92 
OBP4 
6B97 
OBPA 
6B9E 
&BA0 
6BAS 
6BAS 
6éBA? 
6éBAC 
6BAF 
6BB2 
6BES 
6BE/ 
6BBS 
6éBEB 
6éBED 
6éBCO 
6BC2 
6BCS 
6BC/ 
6BCA 
6BCD 
6BD0 
6BD3 
6BD4 
6B0i7 
6éBDA 
6BDD 
6BE0 
6BE1 
6BE4 
6BE?/7 
6éBE? 
6éBEC 
O6BEF 
6BF2 
6BFS 
éBFS 
6BFB 
6BFE 
éC01 
6004 
&C0/7 
600A 
é6COD 
6C10 
6C13 
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0050 
0060 
0070 
0030 
00970 
01900 
0110 
0120 
0150 
0140 
01350 
0160 
0170 
01350 
0190 
0200 
0210 
0220 
02350 
0240 
0250 
0260 
0270 
0280 
02970 
0500 
0310 
0320 
0350 
0340 
0350 
0360 
0370 
0350 
0370 
04900 
0410 
0420 
0450 
0440 
0450 
0440 
0470 
0430 
04970 
0500 
O510 
0520 
05.30 
0540 
0550 
0360 
0370 
0530 
0570 
04900 
04610 
0620 
0450 
0640 
0650 
04660 
04670 
04680 
0690 
0700 
0710 
0720 
0730 
0740 
07350 
0760 
07790 
0730 
0770 
0800 


LHLD Ti 
CALL CMD 
DAD D 
SHLD X 
ACHG 

LAI HrT2 
CALL ARRAY 
ACHG 

LHLD CL 
ACHG 

MOV MrE 
INA H 

MOV M-D 
LAI E»rd00H 
LXI ted 
CALL FNG 
CALL S6120 
CALL CKRES 
JNZ L5440 
MVI Ar1l45 
SUB L 

JZ LSSSo 
SUI 45 

JZ L730 
SUI 40 

JZ Lo77O 
SUI 3S 

JZ L5460 
SUI is 

JZ LoVeo 


L5440 LXI Hr25 


JMP FNE 


L3460 CALL 51240 


CALL S2180 
LXI Hr’ 3°” 
SHLD) FNEIST 
LXI HrS 
CALL FNEL 
CALL S1240 
CALL CKRES 
MVI Av145 
SUB L 

JZ LSSSO 
SUI 45 

JZ LS730 
SUI 40 

JZ L5770 
SUI 50 

JZ LS?so 
JMP L5460+3 


LSSSO0 LAI Hrd 


SHLD LO 
INK L 
SHLI! F? 


L53560 CALL 51240 


CALL $2340 


LSo70 LHLD LO 


INX H 

SHLD LO 

LIA SOST 
CPI 7” x’ 

JZ LSS60 

LXI Hr’ 37 
SHLD FNEAST 
LXI HzS 

CALL FNEL 
CALL S1240 
LXI HrWOST+S 
LXI ItesSOST 
CALL STCHMP 
JZ L610 

LEXI HeWOST+70 
LXI DsFNELST 
LXI Bs—-S 
CALL MOVE 
LXI Hr36 


0310 
0820 
0330 
0340 
08350 
0360 
0370 
0830 
0870 
0900 
o?7190 
0920 
0930 
0940 
0950 
0960 
0970 
0930 
0770 
19000 
1010 
1020 
19030 
1040 
1050 
1040 
1070 
1080 
1090 
11900 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
L190 
1200 
1210 
1220 
12.30 
1240 
1250 
1260 
1270 
1280 
L270 
135900 
1310 
1320 
1330 
1340 
1350 
1360 
L370 
1350 
1370 
1490 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1430 
1470 
1500 
1510 
1520 
1530 
1540 
L550 


1560 


CALL FNEL 
JMP L3670 
L5610 LXI Hs’ 
SHLO FNELST 
LXI Hr33 
CALL FNE2 
CALL S1240 
CALL $2240 
LXI Hs’ J’ 
SHLD FNEIST 
LXI H:34 
CALL FNE2 
LXI Hr’ FO’ 
SHLD FNELST 
LXI Hr26 
CALL FNE2 
LXI HreWOST+70 
LXI OsFRELST 
LXI Br-S 
CALL MOVE 
LXI H-36 
CALL FNE2 
LHLD LO 
XCHG 

LHLD D0 
CALL CME! 
DAD 

SHLD 0 
LHLD T1 
PUSH H 

TAG I 

INX H 

SHLD I 

POF 5B 


C’ 


L5650 LXTI Os TOST 


DAD 0D 

riCcX H 

MUI Mr’ A’ 
LHLO I 
XCHG 

LXI HrTS 
CALL ARRAY 
XCHG 

LHLD NS 
INX H 
XCHG 

MOV MrE 
INX H 

MOV MrD 
LHLD DO 
XCHG 

DAD DT 

SHLD DO 
PUSH I 
LHLO I 
XCHG 

LXI HrT2 
CALL ARRAY 
POP - 

MOV MvE 
INX H 

MOV MsD 
LHLD I 

INX H 

SHLD I 
CALL BHCMP 
JNC LS650 
L5670 LXI He’ 
SHLD FNELST 
LXI HrS 
CALL FNE2 
CALL S1240 
CALL CKRES 
MVI A100 
SUB L 

JZ L5730 


Tago Oow 


1 


ae 


1570 
1580 
1570 
1600 
1610 
1620 
1630 
1440 
1650 
1640 
1670 
1680 
1670 

1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1840 
1870 
1880 
1890 
1900 
19710 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2070 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
21970 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 


23520 


SUI 40 

JZ LSr7o 
SUI So 

JZ LSEPso 
LXI Hrd 
SHLE LO 
INK L 
SHLD FO 
CALL S2340 
JHP LSs70 


RUN XRA A 


OUT 4 
LAT Frvi000H 


CALL CLEAR 


LXI HzsWOST 
LXI Dty—-TST 
TAD t 

LXI Us TST 
xCHG 


ZER MVI Ms0 


INX H 

ncx 

MOV ArE 
ORA It 

JNZ ZER 
CALL BLST 
LXI H»sSRCFIL 
SHLU BOFF 
SHLIt EOFF 
SHLUOD FPTR 
MVI Mri 
LXI HrSST 
SHLI FS 
LXI HrFCODES 
SHLIO FS? 
SHLI F7 
LXI HrL250 
CALL OSEQ 
CALL CRLF 
LXI HsMENLIM 
SHLI Qe? 
LXI HrL2980 
CALL OSEG 
CALL WHO 
CALL WH1 
MOV Be 
CALL CRLF 
MOV AsE 
CPI ’Y’ 
LXI HzO 

JZ $+1 

INK L 
SHLD Y? 
MVI Ar’ 7” 
STA XST 
CALL S1240 
CALL S5340 
LXI Hr’ .” 
SHLD FNELST 
LXI He? 
CALL FNEL 
LHLO FY 
MVI MrOFFH 
INX H 

MUI MrOFFH 
LXI DtrL 33? 
XCHG 

CALL OGSEQ 
CALL DEOUT 
MUI AsvH 
CALL WH1 
CALL CRLF 
LXI HrL340 
CALL OSEQ 
CALL WHO 
CALL WH1L 


2350 
23540 
2330 
2360 
2379 
2500 
2370 
2400 
24190 
2420 
24350 
2440 
2450 
2460 
2470 
2450 
2470 
200 
aoLO 
220 
250 
240 
ised ya 9) 
2360 
27 0 
280 


MOV BeA 

CALL CRLF 

MOV AvE 

CPI ’I’ 

JZ INTRE 

Cri? 77 

JZ TRANS 

LHLD OCOEH 
SHLD 727FH 

JHP 73SP0H 
INTRP LXI DivL360 
JHP t+35 

TRANS LXI UrL370 
LHLD MENTR+2CH 
XCHG 

LXI Br-13 

CALL MOVE 

MVI AsvODH 

STAX BD 

LXI HesMENTR 
SHLD MEHTR+A+2A4H 
LHLD OCOEH 
SHLO 727FH 
LHLO MENTR+2CH 
JMF MENTR+S2H 
LSTBYT ERQU €-1 
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F3470 
F4270 
F340 


PCODES 
MEML TM 
SRCF IL 


4F03 
4FO06 
4FOF 
2CO00 
4EFF 
1000 
0020 
0032 
7FFFF 
0006 
4FOC 
wO?C 
SOCE 
SGLOE 
ULIA 
vise 
SLEA 
wese. 
we FE 
VLA 
250C 
CS 
WoLIS 
ar a Bhd 
SOLE 
BOERS 
VoES 
SOE 
pal al red 
oF 4 
OFS 
UorS 
UoSFA 
SJoFC 
OF E 
3400 
40 2 
40 4 
I406 
3408 
U40A 
340C 
S40E 
W410 
2412 
W414 
W415 
~41é6 
S41 
2~41C 
V@4i1E 
420 
par ed 
al ns eS 
S425 
w42G 
34 2Fi 
2420 
V42E 
450 
W451 
S455 
2405 
2408 


STR 
MST 
L250 
L280 
L339? 
L340 
L360 
L370 
L6570 
L1300 
WHO 
WH1 
MOVE 
OSEQ 
CROUT 
CRLF 
CLEAR 
BLK1 
BDEOUT 
ARRAY 
Cor 
BHCMF’ 
READ 


DECOUT 
BECFMT 


$1030 
S1090 
MENTR 
READO 
S1960 
STCMF 
COoMsS 
SEAR 
$2060 
S1240 
FNE2 
FNE1 
BLST 
FNE 
FNG 
$6520 
L6540 
CKRES 
$6120 
66150 
S6180 
S6240 
$2180 
G2740 
S2PS40 
S280 
$2610 
S2850 
S3290 


BHCMP.J 


13630 
L3650 
L3700 
L3760 
L3780 
LS3810 
L3670 
L38S0 


Symbol Table for listing 5. 


V4 itt 
J4E 
U4FIt 
bal arg ie 2 
bal bar Ps = | 
WO 
bal va ates 
IOS 
7 I 
ww? AE. 
0C20 
0C24 
0100 
OSA 
OSFS 
OFFS 
OFFI 
0A02 
0ADC 
7 HA 
wr CS 
ws UL 
v7 DE 
VBePE 
UeAS 
bart on $ 8 
OF 
F390 
ba se deed = 
VALS 
VABS 
VAS? 
VAAL 
VAS 
SALUC 
wLI3S 
aLtsti 
SlU4k 
wus 
VUS7 
SE1C 
WEAF 
VES? 
vES7 
JEOF 
VEAL 
JECT 
VEEE 
ur oo 
uF SE 
UFAR 
6031 
SORT 
620E 
6243 
62469 
6274 
6294 
62C7 
620F7 
62EE 
6325 
63351 


L3910 
L3920 
L3930 
LS940 
L39S0 
L3?780 
L3?70 
L4000 
L4040 
L4050 
L4070 
L40970 
L4100 
L4130 
L4190 
ASPC 
L4240 
L4290 
L4320 
L4390 
L4400 
L4440 
L490 
L4650 
L4680 
L4730 
L4740 
L4500 
L4S90 
L420 
L4930 
L490 
LS000 
LS070 
L5130 
L140 
L5170 
L3210 
53490 
Lo739 
LS770 
LSS10 
LS850 
LSS?o 
LSPLO 
LoPao 
L56020 
L6050 
L5060 
S53540 
L5440 
L5460 
LSoSo 
LSG40 
Loo7O 
L3610 
L650 
L679 
RUN 
ZER 
INTRE 
TRANS 


6366 
6361 
6382 
5393S 
E379 
5350 
S&3R97 
63C3 
630A 
S3E6 
6405 
6425) 
6425 
6442 
5494 
S4BE 
S4BRE 
64ES 
E50F 


65 


655E 
6594 
65FA 
S61A 
463A 
6635 
665E 
668E 
660A 
S6F2 
S56FS 
674A 
67 SF 
6/7T1I0 
4800 
63818 
603K 
68711 
5964S 
SF7AS 
6&9CF 
69FE 
SAZ1L 
SA6E 
6APS 
6AEF 
6H1i? 
6EB2A 
S6EB3C 
6B49 
697 
roy ated 
6BCII 
6Bn7 
6BD0 
6CiC 
6C70 
6CAE 
6CEO 
6CF4 
60IPE 
60DA4 


LSTBYT 60CS 


Listing 6: Sample Code for 
DEOUT, OSEQ and MOVE Routines 


* SAMPLE SOURCE COTE FOR UT 
* MOVE REQUTRET BY 
NEQUT MOV Ast 


CALL BRYTEO 
MOV Ave 
BYTEG PUSH F 
ANI OFOH 
RAK 

RAK 

RAK 

RAK 

CALL NYRO 
FOP F 

ANT OFH 
WYERO ATI GOH 
CPI BAH 

JIC $+2 

AnI + 

JéMF WHI 
OSEQ MOV Asti 


CéLll WH1 
JHE OSEQ 
MOVE MOV Ash 
STAX I 

INX H 

INX 

INX E 

MOV ArH 
ORA C 

JINZ MOVE 


*X WH1 IS THE ROUTING THAT PUTS OUT THE ACCUMULATOR 
x CONTENTS TO THE CONSOLE DEVICE. 


THE TINY FASCAL PACKAGE 
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BLANK 


Appendix C: 


An APL Interpreter in Pascal 


BLANK 


APL in CDC Pascal 


PASCAL COMPILER = EeTeHe ZURICHs SWITZERLAND PASCAL CYBER V2.0 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 


787107066 11248.266 


UNIVERSITY OF MINNESOTA (77/03/14) 


PROGRAM SCANNERCINPUT*s OUTPUT» APLF ILE) $ 


LABEL 1003 
CONST 
PREFIX] & 608 PREFIX2 = 623 (* PREFIX FOR COC ASCII 12-BIT CODES *) 


MAXVARNAMELENGTH 2 103 

MAXINPUTLINE # 1323 

INPUTARRAYSIZE = 1343 

NUMBEROFMESSAGES = 1003 MESSAGELENGTH 2 803 


TYPE 
PACKEDSTRING = PACKED ARRAYOU1¢ eMAXVARNAMELENGTH) OF 0--81918 


TOKENNOUN 2 (FORMRES sF ORMARG»s GLOBVAR »sMONADOPER » 
REDUCTOPER sDYADOPER » SPECOPER » CONSTANT » 
STATEND) 3 


VALUES = RECORD 
REALVAL: REALS 
NEXTVALUE3 *#VALUES3 

ENDS 

VARTAB = RECORD 
VARNAME: PACKEDSTRINGS (# Vi *) 
FUNCTABPTRS *#FUNCTAB3 (# V2 = FTAB *) 
VALTABPTR3 *VALTAB3 (*# V3 =- VTAB *) 
DEF EREOVALTABPTR3 *FPARMTABS 
NEXTVARTABPTR: *#VARTABS$ 

END$3 


VALTAB # RECORD 
INTERMEDRESULT: BOOLEANS 
DIMENSIONS: INTEGERS 
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00420 FIRSTOIMENS *#DIMENINFOS 


00430 FORWARDORDER: BOOLEANS 

00440 FIRSTVALUE3 *VALUES$ 

00450 NEXTVALTABLINK & ¢VALTAB 

00460 ENDS 

00470 

00480 TOKENTABLE # RECORD 

00490 NEXTOKENS *TOKENTABLE 3 

00500 CASE NOUN : TOKENNOUN OF (# P @) 
00510 FORMRES oF ORMARG»sGLOBVAR? (* VTAB *) 
00520 (VARTABPTR: *VARTAB) $ 

00530 MONADOPER: (MONINOXS INTEGER) 8 

00540 REDUCTOPER: (REDINDX3 INTEGER) § 

00550 DYADOPER’ (DOPINOX8 INTEGER) $ 

00560 SPECOPER: (CHARINOX8 INTEGER) 8 

00570 CONSTANT$ (VALTABPTRS *VALTAB) 8 

00580 STATENDS (ENDADJ3 INTEGER) 8 


00590 ENO3 
00600 VFUNC # RECORD 


00610 NEXTSTMNT 3 *TOKENTABLE 3 

00620 NEXTVFUNCPTR *VFUNC S$ 

00630 STATLABEL 8: PACKEDSTRING 

00640 #£END3 

00650 

00660 FUNCTAB # RECORD 

00670 FUNCNAMES PACKEDOSTRINGS (* Fl @) 
00680 ARITYS (NILADICsMONADIC »sDYADIC) 3 (*# Fe #) 
00690 RESULT 8 BOOLEANS (#* TRUE # EXPLICIT *) (* FZ #) 
00700 RESULTNAME3 PACKEDSTRINGS (* F4 #) 
00710 LEFTARG: PACKEDSTRINGS (® FS %) 
00720 RIGHTARG: PACKEOSTRINGS (* F6 @) 
00730 FIRSTATEMENT s #VFUNCS 

00740 NEXTFUNCTABPTR & *FUNCTABS 

00750 NUMOFSTATEMENTS! INTEGERS 

00760 #END3 

00770 

00780 FPARMTABsRECORD 

00790 PTRVAL8 #VALTAB$ (*# S01 AND SD2 *) 
00800 LASTPARM3 ¢FPARMTAB3 (* LINK TO LAST *) 
00810 (# SD1 OR SO2 *) 
00820 END$ 

00830 

00840 OIMENINFO # RECORD 

00850 NEXTOIMENS *DIMENINFOS 

00860 OIMENLENGTH: INTEGERS 

00870 #£ENDS$ 

00880 

00890  OPRECORD # RECORD 

00900 OPINDEX: INTEGERS 

00910 OPSYMBOL: INTEGERS 

00920 #£END$ 

00930 

00940 OPERANDTAB#RECORD 

00950 OPERPTR? *VALTABS (# SVAL *#) 
00960 LASTOPER’ #OPERANDTABS$ (# LINK TO LAST SVAL #) 
00970 ENDS 

00980 SUBRTABZRECORD (* SF #) 
00990 CALLEOSUBR 3 ¢F UNCTABS$ (* Sl #) 
01000 TOKENCALL INGSUBR $ *TOKENTABLE 3 (* S2 *) 
01010 STATEMCALL INGSUBR 8 *VFUNC 3 (# S3 #) 
01020 LASTSUBRPTR 3 #SUBRT AB S$ (# LINK TO LAST SF #) 
01030 END$ 

01040 OPTABLE # ARRAY(1.216) OF OPRECORDS 

01050 


01060 VARTABPTRTIYPE = *VARTABS 
01070 TYPEVALTABPTR = *VALTAB3 
01080 TOKENPTR&*TOKENT ABLE 3 
01090 PTRFUNCTABStF UNCTABS 
01100 TYPEVALUESP TR*VALUES$ 
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01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01760 
01790 
01800 
01810 
01830 


APLCHARSET=(ASYMBOL» BSYMBOL» CSYMBOL»s ODSYMBOLs ESYMBOL» FSYMBOL» GSYMBOL» 
HSYMBOL» ISYMBOL» JSYMBOL» KSYMBOL» LSYMBOLs MSYMBOL» NSYMBOL » 
OSYMBOLs PSYMBOL» QSYMBOL»s RSYMBOL» SSYMBOL» TSYMBOL» USYMBOL » 
VSYMBOL» WSYMBOL» XSYMBOL > YSYMBOL» ZSYMBOL >» 


ONESYMBOL» TWOSYMBOLs THREESYMBOL» FOURSYMBOL»s FIVESYMBOL > 
SIXSYMBOLs SEVENSYMBOL»s EIGHTSYMBOL» NINESYMBOL»s ZEROSYMBOL » 


COLONs RIGHTARROWs LEFTARROWs SMALLCIRCLE»s PERIODs LEFTPAREN® 
RIGHTPARENs LEFTBRACKETs RIGHTBRACKETs SEMICOLONs QUADRANGLE» 
SPACE» 


PLUS» MINUS» TIMESs DIVIDEs ASTERISKs IOTAs RHOs COMMAs TILDEs 
EQUALSs NOTEQUAL» LESSTHANs LESSOREQUAL» GREATEROREQUAL » 
GREATERTHANs ANDSYMBOL» ORSYMBOL >» 

CEILINGs FLOOR» LARGECIRCLEs FORWARDSLASH>» 
DOUBLEQUOTE»s NEGATIVE» QUESTIONMARK»s OMEGAs EPSILON, 
UPARROWs DOWNARROWs ALPHA» UNDERSCOREs DEL» DELTA» 
SINGLEQUOTE»s EASTCAPs WESTCAPs SOUTHCAPs NORTHCAPs 
IBEAMs TBEAMs VERTICALSTROKEs BACKWARDSLASH) $ 


VAR 

XCOLONS YM» XRIGHT ARROW s XLEF TARROW sXLITTLECIRCLE »XPERIOD» 

XLEF TPAR sXRIGHTPAR s XLEF TBRACKET oe XRIGHTBRACKET »XSEMICOLSYMs XQUADSYM3 INTEGERS 
CHARACTERS ARRAYCAPLCHARSET) OF INTEGERS 
APLSTATEMENT 8ARRAY( lee INPUTARRAYSIZE) OF INTEGERS 

DIGITS ARRAYLONESYMBOL.eZEROSYMBOL) OF INTEGERS 

ERRORMSGS8PACKED ARRAY(1 + eNUMBEROF MESSAGES» 1 6 eMESSAGELENGTH) OF CHARS 


APLFILESTEXTS 

MOPTABs DOPTABs REDOTABs 
SAVELABEL $PACKEDSTRINGS 
NAMES PACKEDSTRINGS$ 


CHARTABs SPECTABZ0PTABLES 


NEWTOKENPTRs OLOTOKENPTRs HOLDTOKENPTR: SAVETOKENPTR: *TOKENTABLE S$ 
TESTFUNCPTRe NEWFUNCTABPTR»s OLDFUNCTABPTR: tFUNCTAB3 

NEWVARTABPTR»e OLOVARTABPTR: *VARTABS 
LEFTVALPTReRIGHTVALPTR»s VALPTR3 #VALUES 8 

NEWVALUES»s NEWVALPTR: *VALUES3 

NEWOIM: *OIMENINE OS 
DIMPTReNEWPTReLEFTDIMPTReRIGHTDIMPTR: t0OIMENINE OS 

VARPOINTER3 #VARTAB3 

OLDVFUNCPTR»s NEWVFUNCPTRS 4VFUNCS 

NEWVALTABLINKs OLDVALTABLINKS *VALTABS 


POSITIONS INTEGERS 
LINELENGTH: INTEGERS 
CODE sCOLCNT 3 INTEGERS 
FUNCSTATEMENTS3 INTEGERS 


TOKENERROR»s FIRSTFUNCTION3 BOOLEANS 


LINETOOLONGsHASLABEL :BOOLEANS 
SWITCHe FUNCTIONMODEs TOKENSWITCHs ITSANIDENTIF IERSBOOLEANS 
OPERTABPTR3 tOPERANDTAB3 (# SV *) 
PTRLASTOPER3 4OPERANDTABS 
SUBRTABPTR? #*SUBRTAB3 
RPARMPTR34FPARMTAB3 (# Pl #) 
LPARMPTR3 *FPARMTAB3 (*# P2 *) 
VF UNCPTR3 *VFUNCS (*# NL *) 
HOLD: +TOKENTABLE $3 (# HOLDS LAST SYMBOL *) 
PROCEOURE INITPARSER? 
BEGIN 

OPERTABPTR&SNIL3 
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01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
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SUBRTABPTR&ESNIL3 

LPARMPTR&SNIL3 

RPARMPTR3&SNIL3 

VFUNCPTRSSNIL3 

HOLD: SNIL$3 

XCOLONSYM3 81 3 

XRIGHTARROWS #23 

XLEF TARROW 8 833 

XLITTLECIRCLE 8243 

XPERIOD3 253 

XLEF TPAR3 263 

XRIGHTPAR 387 3 

XLEF TBRACKET 3 #8$ 

XRIGHTBRACKET 8393 

XSEMICOLSYM2#10$ 

XQUADSYM3 8113 

NEW (OPERTAGPTR) $ 

OPERTABPTRE -LASTOPERSSNIL3 

PTRLASTOPER3 sOPERTABPTRS$ 
END$ 


PROCEDURE INITIALIZECHARACTERSETS (*READ INSTALLATION CHARACTER SET FROM FILE®) 


VAR 
TESTFORPREF IXS INTEGERS 
FILECHARACTER &CHAR 3 
SYMBOL INDEX 3 APLCHARSET 3 
BEGIN 
RESET (CAPLF ILE) 3 
FOR SYMBOLINDEX%#ASYMBOL TO BACKWARDSLASH DO 
BEGIN 
REAO (APLF ILE oF ILECHARACTER) $ 


(* THE FOLLOWING CODE WOULD BE REMOVED FOR NON-CDC INSTALLATIONS *) 
TESTFORPREF IX3 20RD (F ILECHARACTER) 8 
IF (TESTFORPREFIX = PREFIX1) OR (TESTFORPREFIX = PREF IX2) 
THEN 
BEGIN 
READ (CAPLF ILE» F ILECHARACTER) $ 
CHARACTER( SYMBOL INDEX] 3=100#TESTFORPREFIX ¢ ORD(FILECHARACTER) 3 
END 
ELSE 
(* #) 
CHARACTERI SYMBOL INDEX ) 30RD (F ILECHARACTER) 
END 
END$ (# INITIALIZECHARACTERSET *) 


PROCEDURE READINERRORMSGS$ 
VAR 
MSGROW »MSGCOL 3 INTEGER $ 
BEGIN 
REAOLN(APLFILE) 3 
FOR MSGROW3#]1 TO NUMBEROFMESSAGES 00 
FOR MSGCOL:#] TO MESSAGELENGTH DO 
ERRORMSGS(MSGROWsMSGCOL )32= £3 (* BLANK OUT ERROR MESSAGES #) 
FOR MSGROW:s1 TO NUMBEROFMESSAGES DO 
BEGIN (# READ IN ERROR MESSAGES FROM FILE *) 
MSGCOL $203 
WHILE NOT EOLN(APLFILE) DO 
BEGIN 
MSGCOL:=#MSGCOL ¢ 13 
READ (APLF ILE sERRORMSGS(MSGROW »MSGCOL )) 
END$ 
READLN(APLF ILE) 3 
END 
END$ (# READINERRORMSGS *) 


02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 


PROCEDURE FILLUPTABLESS$ 
BEGIN 

OPERATORS *) 
3@ CHARACTER(PLUS )3 

3@ CHARACTER( MINUS 33 
2% CHARACTER( TIMES) 3 
$2 CHARACTER( DIVIDE )3 
t@ CHARACTER( ASTERISK) 3 
$@ CHARACTERCIOTA)S 
3% CHARACTER(RHO)3 
3% CHARACTER( COMMA) $ 
ts CHARACTER( TILDE )$ 


(# MONADIC 
MOPTAB(1])-OPSYMBOL 
MOPTAB(2]-OPSYMBOL 
MOPTAB(3) eOPSYMBOL 
MOPTAB(4)-OPSYMBOL 
MOPTAB(S)-OPSYMBOL 
MOPTAB(6).OPSYMBOL 
MOPTAB(7)-OPSYMBOL 
MOPTAB(8)-OPSYMBOL 
MOPTAB(9) -OPSYMBOL 


(# DYADIC OPERATORS 
DOPTAB(1)J-OPSYMBOL %# CHARACTERIPLUS)$ 


=) 


DOPTAB(2)-OPSYMBOL 3s CHARACTERI MINUS) $ 
DOPTAB( 3) -OPSYMBOL 3:2 CHARACTER(TIMES)3 
DOPTAB(4)-OPSYMBOL := CHARACTERIDIVIDE)3 
DOPTABI[S)-OPSYMBOL s:2 CHARACTERCASTERISK)3 
DOPTAB(6)-OPSYMBOL %= CHARACTERCIOTA)3 
DOPTAB(7})-OPSYMBOL t= CHARACTER(RHO)3 
DOPTAB[8)-OPSYMBOL %2# CHARACTER( COMMA) 3 
DOPTAB(9)-OPSYMBOL %:= CHARACTERL EQUALS )3 
DOPTAB(10).OPSYMBOL t= CHARACTER(NOTEQUAL } 8 
DOPTAB(11]).O0PSYMBOL %2 CHARACTER(LESSTHAN) 3 
DOPTAB(12).O0PSYMBOL 82 CHARACTERILESSOREQUAL }3 
DOPTAB(13).OPSYMBOL 3:2 CHARACTER( GREATEROREQUAL }3 
DOPTAB(14).OPSYMBOL %2 CHARACTER(GREATERTHAN) $ 
DOPTAB(15).OPSYMBOL %:2 CHARACTER(ANDSYMBOL } 3 
DOPTAB(16).O0PSYMBOL t= CHARACTER ORSYMBOL }3 

(# SPECIAL CHARACTER *) 
CHARTAB(1).0PSYMBOL %# CHARACTERICOLON)3 
CHARTAB(2).OPSYMBOL %2 CHARACTERIRIGHTARROW) 3 
CHARTAB(3).O0PSYMBOL %2 CHARACTER(ILEF TARROW)$ 
CHARTAB(4)..OPSYMBOL %# CHARACTER(SMALLCIRCLE)3 
CHARTABIS).OPSYMBOL %2 CHARACTER(PERIOD)$ 
CHARTAB(6]..OPSYMBOL %# CHARACTER(LEFTPAREN)3 
CHARTAB( 7) .OPSYMBOL 3:2 CHARACTER(RIGHTPAREN) 3 
CHARTAB(8).O0PSYMBOL %:2 CHARACTER(LEF TBRACKET )3 
CHARTAB(9]..OPSYMBOL %2 CHARACTER(RIGHTBRACKET 338 
CHARTAB(10}-OPSYMBOL 3:2 CHARACTER( SEMICOLON )3 


CHARTAB(11)-OPSYMBOL 2 CHARACTER( QUADRANGLE }3 
CHARTAB(12)-OPSYMBOL s# CHARACTERISPACE }$ 


SPECTAB(1) OPSYMBOL t [CHARACTERI COLON) 3 
SPECTABL 2) .OPSYMBOL : SCHARACTERI RIGHTARROW ) 3 
SPECTAB[3}) .OPSYMBOL t sCHARACTERILEF TARROW) $ 
SPECTAB(4) .OPSYMBOL : #CHARACTEREILEFTPAREN) 3 
SPECTAB(S) .OPSYMBOL 3 #CHARACTERI SEMICOLON }3 
SPECTAB(6) .OPSYMBOL : sCHARACTER(LEF TBRACKET )3 


(# REDUCTION OPERATOR 
REDTAB(1)-OPSYMBOL &# CHARACTERIPLUS )$ 
REOTAB(2)-OPSYMBOL t2# CHARACTER(MINUS J3 
REOTAB(3]-OPSYMBOL 32 CHARACTERETIMES)3 
REOTAB(4)-OPSYMBOL %:# CHARACTER(OIVIDE }3 
REDTAB(S)-OPSYMBOL 3:2 CHARACTERLASTERISK) 3 
REDTAB(6).-OPSYMBOL %2# CHARACTER(EQUALS)3 
REOTAB(7)-OPSYMBOL %# CHARACTER(NOTEQUAL 33 
REOTAB(8)-OPSYMBOL 32 CHARACTERILESSTHAN) 3 
REOTAB(9)-OPSYMBOL :# CHARACTERILESSOREQUAL }3 
REOTAB(10).O0PSYMBOL 3s 
REDOTAB(11).OPSYMBOL 3:2 
REOTAB(12).0PSYMBOL 3s 
REDTAB(13].O0PSYMBOL 32 
REDOTAB(14).0PSYMBOL 32 


#) 


CHARACTER( GREATERTHAN) 3 
CHARACTER(CANDSYMBOL J 3 
CHARACTER ORSYMBOL J 3 
CHARACTERICEILING)3 


CHARACTER( GREATEROREQUAL J} 8 


MOPTAB(1J-OPINDEX 82 23 
MOPTAB(2)-OPINDEX 82 33 
MOPTAB(3)-OPINDEX 32 43 
MOPTAB(4)-OPINDEX 32 53 
MOPTAB(ISJ)-OPINDEX sa 68 
MOPTAB(6)-OPINDEX 82 213 
MOPTABI7]) OPINDEX 32 223 
MOPTAB(8)-OPINDEX 32 233 
MOPTAB(9}) OPINDEX 323 13 


DOPTAB(1J-OPINDEX &2 S23 
DOPTAB(2).OPINDEX 32 538 
DOPTAB(3]-OPINDEX 32 543 

DOPTAB(4]) OPINDEX &2 553 

DOPTAB(S)-OPINDEX s:2 563 
DOPTABI6)-OPINDEX 82 873 

DOPTAB(7)-OPINOEX %2 883 

DOPTAB(8).OPINDEX 32 893 
DOPTAB(9) .OPINDEX 82 713 

DOPTAB(10).OPINOEX 3s 


723 


DOPTAB(11).OPINDEX 32 733 


DOPTABL12)-OPINDEX 32 743 
DOPTAB(13) -OPINDEX s2 753 
DOPTAB(14)-OPINDEX 32 768 


DOPTAB(1S)-OPINDEX ss 773 
DOPTAB(16).OPINDEX 32 783 


REOTABCLJ-OPINDEX 82 23 
REOTAB(2) OPINDEX 82 33 
REDTAB(3) OPINDEX 3 43 
REDTAB(4) OPINDEX ss S$ 
REDTAB(S}] —OPINDEX 
REOTAB(6)-OPINDEX s= 218 
REOTABI7) -OPINDEX s2 223 
REOTAB(8) OPINDEX 32 233 
REOTABI9) OPINDEX 82 243 


tz 63 


REOTAB(10)-OPINDEX 33 253 
REDTABL11)-OPINDEX 32 263 


REOTAB( 12) -OPINDOEX &2 273 
REDTAB(13).OPINDEX %2 283 
REDTAB(14)-OPINDEX 328 293 
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REOTAB(15).0PSYMBOL %# CHARACTERIFLOOR)3 
REOTAB(16).OPSYMBOL 3:2 CHARACTERILARGECIRCLE 38 


OIGITSCONESYMBOL J)2:218 DIGITSETWOSYMBOL )3228 DIGITS( THREESYMBOL ) 8233 
DIGITSCFOURSYMBOL )2343 DIGITS(FIVESYMBOL)2853 DIGITS(ISIXSYMBOL ) 8263 
OIGITSCSEVENSYMBOL 32278 DIGITSCEIGHTSYMBOL ) 8883 
DIGITSEININESYMBOL 82938 DIGITS(ZEROSYMBOL ) 8203 


ENO$S (# FILLUPTABLES *) 


PROCEDURE PRINTAPLSTATEMENT 3 


VAR 


PREF IXoNUM: INTEGERS 
INDEX: INTEGERS 


BEGIN 


FOR INDEX%=s1 TO LINELENGTH DO 


BEGIN 


IF APLSTATEMENTCINDEX) > 6000 


END$ 


WRITELN 
ENO$’ (# PRINTAPLSTATEMENT *) 


PROCEDURE SERROR(ERRORINOEX2 INTEGER) 3 


VAR 


MSGCOL 8 INTEGERS 


BEGIN 


TOKENERROR 8 TRUE 3 

FOR MSGCOL:#] TO MESSAGELENGTH DO 
WRITE CERRORMSGSCERRORINDEX »MSGCOL J) 3 

WRITELNS 

PRINTAPLSTATEMENT$ 

FOR MSGCOL:21 TO (POSITION = 1) 
WRITE(= =)3 

WRITELN (CHR (CHARACTERCUPARROW)))3 (# PRINT POINTER TO USER ERROR #) 

ENDs (# ERROR *) 


PROCEDURE SKIPSPACES$ 


BEGIN 


WHILE (APLSTATEMENT(POSITION) = CHARACTER(SPACE)) 
AND (POSITION <a LINELENGTH) DO 

POSITIONS sPOSITION + 1 
(# SKIPSPACES #) 


END$ 


PROCEDURE GETAPLSTATEMENT$ 


VAR 


INPUTCHAR 3 CHAR$ 
TESTFORPREF IX2 INTEGERS 
FIRSTTRY&SBOOLEANS 


BEGIN 


FOR LINELENGTH:31 TO MAXINPUTLINE OO 

APLSTATEMENT(LINELENGTH) 3@CHARACTERISPACE)38 (# BLANK OUT LINE #) 
LINELENGTH3 203 

FIRSTTRY 82TRUE$ 

POSITION? #13 

LINE TOOLONG3 SF ALSE $ 

APLSTATEMENT ( INPUTARRAYSIZE ) 32CHARACTER[ OMEGA} $ 


REDTAB( AS) .OPINDEX ss 303 
REDTAB(16)-OPINDEX 82 313 


PREF IX3#APLSTATEMENTC INDEX) DIV 1003 
WRITE (CHR (PREFIX) )$ 

NUM: SAPLSTATEMENTC INDEX) = 100*PREFIXS 
WRITE (CHR (NUM) ) 


WRITE (CHR CAPLSTATEMENTLE INDEX ))) 


(* ECHO STATEMENT TO USER *) 


05330 
05340 
05350 
05360 
05370 
05380 
05390 
05400 
05410 
05420 
05430 
05440 
05450 
05460 
05470 
05480 
05490 
05500 
05510 
05520 
05530 
05540 
05550 
05560 
05570 
05580 
05590 
05600 
05610 
05620 
05630 
05690 
05700 
05710 
05720 
05730 
05740 
05750 
05760 
05770 
05780 
05800 
05810 
05820 
05830 
05840 
05850 
05860 
05870 
05880 
05890 
05940 
05950 
05960 
05970 
05980 
05990 
06000 
06010 
06020 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
06140 
06150 


APLSTATEMENT( INPUTARRAYSIZE = 1ISsCHARACTERISPACE)8 (# SET END-OFe@LINE *#) 


REPEAT 
BEGIN 
IF NOT FIRSTTRY THEN GETSEGCINPUT)$ (# TEST FOR ®CR® ONLY ®) 
FIRSTTRY 3 SF ALSE$ 
WHILE (NOT EOLN) AND (NOT LINETOOLONG) DO 
IF LINELENGTH < MAXINPUTLINE 
THEN 
BEGIN 
LINELENGTHS 2LINELENGTH ¢ 18 
READ (CINPUTCHAR) 8 
(# THE FOLLOWING CODE WOULD BE REMOVED FOR NON-COC INSTALLATIONS #) 
TESTF ORPREF IX8s0RD(INPUTCHAR) $ 
IF (TESTFORPREFIX = PREFIX1L) OR (TESTFORPREFIX = PREF IX2) 
THEN 
6EGIN 
READ (INPUTCHAR) 3 
APLSTATEMENT(LINELENGTH) 321 00*TESTFORPREFIX ¢ ORDOCINPUTCHAR) 8 
END 
ELSE 
(+ #) 
APLSTATEMENTILINELENGTH) 320RD (INPUTCHAR) 
END 
ELSE LINETOOLONG TRUE 
END 
UNTIL LINELENGTH <> 08 (# REJECT NULL LINES ®) 


IF LINETOOLONG THEN SERROR(7)) 
END$ (# GETAPLSTATEMENT *) 


FUNCTION ITSADIGIT (TESTCHAR: INTEGER) sB00LEANS 
VAR 
DIGITINDEX : APLCHARSET$ 
BEGIN (* TEST TO SEE IF INPUT CHARACTER IS A OIGIT *) 
ITSADIGIT&sFALSE$ 
FOR DIGITINDEX:3SONESYMBOL TO ZEROSYMBOL DO 
IF TESTCHAR = CHARACTERIDIGITINDEX) THEN ITSADIGIT&sTRUE 
END$s (# ITSADIGIT *) 


FUNCTION ITSALETTER(TESTCHAR’ INTEGER) sBOOLEANS 
VAR 
LETTERINDEX 3 APLCHARSET $3 
BEGIN (* TEST TO SEE IF INPUT CHARACTER IS A LETTER #) 
ITSALETTER 3 SF ALSE$ 
FOR LETTERINDEX%sASYMBOL TO ZSYMBOL DO 
IF TESTCHAR # CHARACTER(LETTERINDEX) THEN ITSALETTERS sTRUE 
ENDs (# ITSALETTER *) 


FUNCTION CHARTONUM(TESTCHAR? INTEGER) 3 INTEGERS 
VAR 
DIGITINDEX3 APLCHARSET 3 
BEGIN (# CHAGE A CHARACTER TO A NUMBER ®) 
FOR DIGITINDEX: SONESYMBOL TO ZEROSYMBOL DO 
IF TESTCHAR = CHARACTER(DIGITINOEX) THEN CHARTONUM3 sDIGITS(DIGITINDEX) 
ENDs (# CHARTONUM *#) 


FUNCTION NAMESMATCH(NAMEONEs NAME TWOSPACKEOSTRING) SBOOLEANS 
VAR 

INDEX3 INTEGERS 
BEGIN (# SEE IF TWO NAMES (IDENTIFIERS) ARE THE SAME *#) 
NAMESMATCH: TRUE 
FOR INDEX:#]1 TO MAXVARNAMELENGTH DO 

IF NAMEONET INDEX) <> NAMETWOC INDEX) 

THEN NAMESMATCH3 sf ALSE 
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06160 
06170 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 
06710 
06720 
06730 
06740 
06790 
06800 
06810 
06820 
06830 
06840 
06850 
06860 
06870 
06880 
06890 
06900 
06910 
06920 
06930 
06940 
06950 
06960 
06970 
06980 
06990 
07000 
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END$ (# NAMESMATCH #) 


PROCEDURE TABLELOOKUP (TESTCHAR >» TABLELENGTH? INTEGERS TABLE 3 OPTABLE 3 
VAR TABLEINDEX3 INTEGER) 3 

VAR 

INDEX S INTEGERS 

BEGIN (# CHECK FOR MEMBERSHIP 

TABLE INDEX: 80 3 

FOR INDEX%21 TO TABLELENGTH DO 
IF TESTCHAR = TABLEL INDEX) OPSYMBOL 

THEN TABLEINDEX3 zINDEX 
END$ (# TABLELOOKUP #) 


IN A GIVEN TABLE #) 


PROCEDURE IDENTIFIER(VAR NAME 3PACKEDSTRINGS 


VAR 
NAMELENGTH? INTEGERS 
NAME TOOLONG! BOOLEAN$ 
BEGIN 
ITSANIOENTIF IER’ FALSE $ 
SKIPSPACES3 
IF ITSALETTERCAPLSTATEMENT(POSITION)) 
THEN 
BEGIN 
NAME TOOLONG: @F ALSE $ 
ITSANIOENTIF IER& 2TRUES 
FOR NAMELENGTH82]1 TO MAXVARNAMELENGTH DO (# BLANK OUT NAME #) 
NAME C(NAMELENGTH) 3 =CHARACTER[ SPACE J 3 
NAMELENGTH?: 20 3 
WHILE (ITSALETTER(APLSTATEMENTIPOSITION))) OR 
(ITSADIGIT(CAPLSTATEMENT(CPOSITIONI)) DO 
BEGIN (#* BUILD IDENTIFIER *) 
NAMELENGTHS=2NAMELENGTH @ 18 
IF NAMELENGTH <= MAXVARNAMELENGTH 
THEN 
NAME (NAMELENGTH) 82 APLSTATEMENT(POSITION) 
ELSE 
NAME TOOLONG: TRUE $ 
POSITIONS=POSITION ¢ 1 
END3 
IF NAMETOOLONG 
THEN 
SERROR(70) (#* NAME GREATER THAN MAXLENGTH *) 
END 
ENOs (# IDENTIFIER #) 


PROCEDURE MAKEANUMBER(VAR REALNUMBER REAL 3 
VAR 
SIGNsDIGITCOUNT 3 INTEGERS 
BEGIN (* CONVERT CHARACTER 
ITSANUMBER 3 SF ALSE 3 
SKIPSPACES$ 
SIGNS 21] $ 
DIGITCOUNT 3803 
REALNUMBER 320.03 
IF (APLSTATEMENT(POSITION) = CHARACTER{NEGATIVE)) OR 
(CITSADIGIT (APLSTATEMENT(POSITION))) 
THEN 
BEGIN 
ITSANUMBER? TRUE S$ 
IF APLSTATEMENT(POSITION) = CHARACTER( NEGATIVE) 
THEN 
BEGIN 
SIGN3 2-13 
POSITIONS =POSITION * 1 
ENDS 
IF NOT ITSADIGIT(CAPLSTATEMENTIPOSITION)) 


VAR ITSANUMBER ? BOOLEAN) 8 


INPUT STRING TO NUMERICAL REPRESENTATION *) 


VAR ITSANIDENTIFIERS BOOLEAN) 3 


07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07300 
07310 
07320 
07330 
07340 
07350 
07400 
07410 
07420 
07430 
07440 
07450 
07460 
07470 
07480 
07490 
07500 
07510 
07520 
07530 
07540 
07550 
07560 
07570 
v7580 
07590 
07600 
07610 
07620 
07630 
07640 
07650 
07660 
07670 
07680 
07690 
07740 
07750 
07760 
07770 


THEN 
BEGIN 
SERROR(1)3 (# DIGIT MUST FOLLOW A MINUS SIGN #) 
ITSANUMBER ? #F ALSE$ 
END 
ELSE 
BEGIN (# FORM WHOLE NUMBER PORTION *#) 
WHILE ITSADIGIT(APLSTATEMENT(POSITION)) DO 
BEGIN 
REALNUMBER 2 210 -0*REALNUMBER*CHARTONUM (APLSTATEMENTIPOSITION)) $ 
POSITIONS #POSITION * 1 
END$ 
IF APLSTATEMENT(POSITION) = CHARACTER(PERIOD) 
THEN 
BEGIN 
POSITIONS #POSITION @ 138 
WHILE ITSADIGIT (APLSTATEMENTC(POSITION)) DO 
BEGIN (* FORM FRACTIONAL PORTION #) 
REALNUMBER S$ SREALNUMBER ¢ 
CHARTONUM(APLSTATEMENT(POSITION)) # 
EXP( (21.0 = DIGITCOUNT) # 2.3025851) 3 
DIGITCOUNT&sDIGITCOUNT © 13 
POSITIONS=POSITION ¢ 13 
END3 
IF DIGITCOUNT = 0 
THEN BEGIN 
SERROR(2)8 (# DIGITS MUST FOLLOW A DECIMAL POINT ®) 
ITSANUMBER 2 SF ALSE 8 
ENO 
END$ 
REALNUMBER 8 ZREALNUMBER*SIGN 
END 
END 
END$’ (* MAKEANUMBER *) 


FUNCTION MONAUDICREFERENCE : BOOLEANS 
VAR 
SUBPOSITIONs TABLEINDEX: INTEGERS 
BEGIN (* SEE IF OPERATOR IS MONADIC WITHIN CONTEXT OF INPUT LINE *) 
MONADICREF ERENCE 232F ALSE 3 
IF NEWTOKENPTRteNEXTOKEN*2NOUN = STATEND 
THEN MONADICREFERENCE23® TRUE 
ELSE 
BEGIN 
SUBPOSITION3=POSITION = 13 
WHILE (SUBPOSITION > 0) AND 
(APLSTATEMENT(SUBPOSITION}J2CHARACTER(SPACE)) DO 
SUBPOSITION: SUBPOSITION = 13 (¢(#* GET LAST NON@-8LANK *#) 
IF SUBPOSITION <> O THEN 
TABLELOOKUP (APLSTATEMENT ( SUBPOSITION) 969SPECTABs TABLE INDEX) $ 
IF (TABLEINDEX <> 0) OR (SUBPOSITION = 0) 
THEN MONADICREF ERENCE 2 TRUE 
ELSE 
IF (NEWTOKENPTR*#.NEXTOKENteNOUN <> FORMRES) AND 
(NEWTOKENPTR* NEXTOKEN®teNOUN <> FORMARG) AND 
(NEWTOKENPTRt eNEXTOKENteNOUN <> GLOBVAR) AND 
(NEWTOKENPTR* eNEXTOKEN*eNOUN <> CONSTANT) AND 
(APLSTATEMENT(SUBPOSITION) <> CHARACTER(PERIOD]) AND 
(APLSTATEMENT(SUBPOSITION) <> CHARACTERC(RIGHTPAREN)) AND 
(APLSTATEMENT(SUBPOSITION) <> CHARACTER(RIGHTBRACKET )) 
THEN MONADICREF ERENCE 8 TRUE 
END 
ENO$ (# MONADICREFERENCE #) 


PROCEDURE DYADICOPCHECK$ 
VAR 
TABLE INDEX: INTEGERS 
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07780 
07790 
07800 
07810 
07820 
07830 
07840 
07850 
07860 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
08100 
08150 
08160 
08170 
08180 
08181 
08182 
08183 
08184 
08185 
08186 
08187 
08188 
038189 
08190 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08310 
08320 
08330 
08340 
08350 
08360 
08370 
08380 
08390 
08400 
08410 
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BEGIN 
TABLELOOKUP (APLSTATEMENT (POSITION) 9 169D0PTABs TABLE INDEX) 3 
IF TABLEINDEX = 0 
THEN 
BEGIN 
TABLELOOKUP (APLSTATEMENT( POSITION) » 129 CHARTABs TABLEINDEX) 3 
IF TABLEINDEX = 0 
THEN 
IF APLSTATEMENTCPOSITION) 
THEN 
BEGIN 
OLOTOKENPTR 8 SSAVETOKENPTRS 
DISPOSE (NEWTOKENPTR) 8 
NEWTOKENPTR3 2SAVETOKENPTRS 
POSITIONS SLINELENGTH © 13 
END (# THIS WAS A COMMENT = IGNORE REMAINDER OF LINE *) 


= CHARACTER(SOUTHCAP } 


ELSE SERROR(4) (# INVALID CHARACTER ENCOUNTERED *) 
ELSE 
BEGIN (#* SPECIAL CHARACTER ENCOUNTERED *) 


NEWTOKENPTR* NOUN: SSPECOPER $3 
NEWTOKENPTR* eCHARINDX $8 STABLE INDEX 
END 
END 
ELSE 


IF MONADICREF ERENCE 
THEN SERROR(74) (#MONADIC REFERENCE TO DYADIC OPERATOR#) 
ELSE 
BEGIN (* OPERATOR IS DYADIC *) 
NEWTOKENPTR* NOUN? 2DYADOPER$ 
NE WTOKENPTR* -DOP INDX 3 STABLE INDEX 


ENO 
END3 (*DYADICOPCHECK*#) 
PROCEDURE CHECKOTHERTABLES3 
VAR 
TABLE INDEX 3 INTEGERS 
CHK INDEX S INTEGERS 
FUNCTION NEXTNONBLANK? INTEGERS 
BEGIN 
CHKINDEXssPOSITION ¢ 13 
WHILE (CHKINDEX < LINELENGTH) AND 
(APLSTATEMENTECHKINDEX) = CHARACTERISPACE)) 00 
CHK INDEX 8 eCHKINDEX ¢ 13 
NEXTNONBLANK 8 SAPLSTATEMENT CU CHK INDEX 13 
END$ (# NEXTNONBLANK *#) 
BEGIN 
IF NEXTNONBLANK 2 CHARACTERIFORWARDSLASH) 
THEN 
BEGIN 
TABLELOOKUP (APLSTATEMENTCPOSITION) 9 16,REOTABs TABLE INDEX) $ 
IF TABLEINDEX 2 0 
THEN SERROR(72) (* INVALIO REDUCTION OPERATOR #) 
ELSE 
IF NOT MONADICREF ERENCE 
THEN SERROR(73) (# DYADIC REDUCTION REFERENCE *) 
ELSE 
BEGIN (# OPERATOR IS VALID REDUCTION OPERATOR *) 
NEWTOKENPTR* NOUN’ SREDUCTOPERS 
NEWTOKENPTR* REDINOX’ STABLE INDEX 
END3 
POSITIONS sCHKINDEX ¢ 13 
ENO 
ELSE 
BEGIN 
TABLELOOKUP (APLSTATEMENTI POSITION) 999MOPTABs TABLE INOEX) 8 
IF TABLEINDEX = 0 
THEN DYADICOPCHECK 
ELSE 


08420 
08430 
08440 
08450 
08460 
08470 
08480 
08490 
08500 
08510 
08520 
08570 
08580 
08590 
08600 
08610 
08620 
08630 
08640 
08650 
08660 
038670 
08680 
08690 
08700 
08710 
08720 
038730 
08740 
08750 
08760 
08770 
08780 
08790 
08800 
08810 
08820 
08830 
08840 
08850 
08860 
08870 
08880 
08890 
08900 
08910 
08920 
08930 
08940 
08950 
08960 
08970 
08980 
08990 
09000 
09010 
09020 
09030 
09040 
09050 
09060 
09070 
09080 
09090 
09100 
09110 
09120 
09130 
09180 


END 


THEN 
ELSE 
BE 


IF NOT MONADICREF ERENCE 


DYADICOPCHECK 


GIN (# OPERATOR IS MONADIC #) 
NE WTOKENPTR* NOUN 8 SMONADOPER 3 
NEWTOKENPTR* eMONINDX 8 STABLE INDEX 3 


ND3 


E 
POSITIONS #POSITION ¢ 13 


ENO$S (#* CHECKOTHERTABLES #) 


PROCEDURE TRYTOGETANUMBER$ 


VAR 


NUMBERCOUNT 3 INTEGER? 
REALNUMBER 8REAL 3 
ITSANUMBER : BOOLEANS$ 


BEGIN 


NUMBERCOUNT 3 80 § 

MAKEANUMBER (REALNUMBER » I TSANUMBER) 8 
IF NOT ITSANUMBER 

THEN CHECKOTHERTABLES 


ELSE 


BEGIN (# STORE VALUES IN VALUE TABLE *) 


NUMBE 
NEW (N 
If Sw 
THE 

8 


cE 

ELS 

N 
NEWVA 
NEWVA 
MAKEA 


END3 
NEWVALUES* eNEXTVALUE 2 @NIL 3 
IF NUMBERCOUNT > 1 

THEN 


BEGIN 


NEWVALTABLINK*-DIMENSIONS8213 (# NUMBER IS A VECTOR #) 


NEW 
NEw 
NEW 
NEW 
END 


ELSE 


BEGIN 


NEWVALTABLINK*@eDIMENSIONS3#03 (#* NUMBER IS A SCALAR #) 


NEW 
ENDS 


NEW (NEWVALTABL INK) 8 
NEWVALTABLINK*? .NEXTVALTABLINK 3 SOLOVAL TABLINK$ 
OLOVALTABLINK 8 2NEWVALTABLINK3 
NEWVALTABL INK*. FORWARDORDER 3 s TRUE 3 
IF FUNCTIONMODE 
THEN NEWVAL TABLINK?. INTERMEDRESULT 8 af ALSE 
ELSE NEWVALTABL INK*#. INTERMEDRESULT 3 sTRUES 
SWITCH3 TRUE 3 
WHILE ITSANUMBER DO 
BEGIN 


RCOUNT S2NUMBERCOUNT ¢ 138 
EWVALUES) 3 
ITCH = TRUE 
N 
EGIN 
SWITCH: 2F ALSE$ 
NEWVALTABLINK?@-eF IRST VALUE 3 sNEWVALUES 
NO 
E 
EWVALPTR* NEXTVALUE $ SNEWVALUES 8 
LUES*, REALVAL 3 SREALNUMBER 3 
LPTR&sNEWVALUES3 
NUMBER (REALNUMBER » I TSANUMBER) 


(NEWDIM) 3 
VALTABLINK*# oF IRSTDIMENS SNEWDIMS 
OIMt .DIMENLENGTH 3 SNUMBERCOUNT 3 
DIM* NEXTOIMENS SNIL 


VALTABLINK* oF IRSTOIMENS SNIL 


NEWTOKENPTR* eNOUNS SCONSTANT S$ 
NEWTOKENPTR*.VALTABPTR3 SNEWVALTABL INKS 
END 


END3 (#* TRYTOGETANUMBER *) 
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09190 
09200 
09210 
09220 
09230 
09240 
09250 
09260 
09270 
09280 
09290 
09300 
09310 
09320 
09330 
09340 
09350 
09400 
09410 
09420 
09430 
09440 
09450 
09460 
09470 
09480 
09490 
049500 
09510 
09520 
09530 
09580 
09590 
09600 
09610 
09620 
09630 
09640 
09650 
09660 
09670 
09680 
09690 
09700 
09710 
09720 
09730 
09780 
09790 
09800 
09810 
09820 
09830 
09840 
09850 
09860 
09910 
09920 
09930 
09940 
09950 
09960 
09970 
09980 
09990 
10000 
10010 
10020 
10030 
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FUNCTION NAME INVARTABLE (NAME 3PACKEDSTRING3VAR VARPOINTERS VARTABPTRTYPE 3 


TESTFUNCPTREPTRFUNCTAB) s BOOLEANS 
VAR 


FOUND: BOOLEANS 

BEGIN 

FOUND? sF ALSE 3 

VARPOINTER! SOLDVARTABPTRS 

WHILE (VARPOINTER <> NIL) AND (FOUND # FALSE) DO 

BEGIN 

IF (NAMESMATCH (NAME s VARPOINTER*eVARNAME)) AND 
(VARPOINTER*eFUNCTABPTR = TESTFUNCPTR) (# TEST FOR GLOBAL VAR *) 
THEN FOUND2 sTRUE 


ELSE VARPOINTER? &VARPOINTER* eNEXTVARTABPTR 


END3 
NAME INVARTABLE 3 =F OUND $ 
END$ (#NAMEINVARTABLE®) 


PROCEDURE ADDNAMETOVARTABLE (NAME 3PACKEDSTRING) 3 

BEGIN (* NEW VARIABLE NAME ENCOUNTERED *) 

NEW (NEWVARTABPTR) $ 

NEWVARTABPTR* -NEXTVARTABPTR3 ZOLDVARTABPTR3 

OLDVARTABPTR3 SNEWVARTABPTRS 

NEWVARTABPTR®- VARNAME 3 NAME $ 

NEWVARTABPTR* -VALTABPIR&SNIL 3 

IF NEWTOKENPTR <> NIL THEN 

IF (NEWTOKENPTRt#eNOUN = FORMRES) OR (NEWTOKENPTR®# NOUN = FORMARG) 
THEN NEWVARTABPTR* -FUNCTABPTR 38 SNEWFUNCTASPTR 
ELSE NEWVARTABPTR* -FUNCTABPTR3aNIL 

ENDs (# ADONAMETOVARTABLE #*) 


FUNCTION FUNCT IONALREADYDEF INED(VAR NEWFUNAME SPACKEOSTRINGSVAR FUNCINDEX 2 


PTRFUNCTAB) :BOOLEANS 

VAR 

FOUND’ BOOLEANS 

BEGIN 

FOUND 3 aF ALSE 3 

FUNCINDEX 8 sOLDFUNCTABPTRS 

WHILE (FUNCINDEX <> NIL) AND (FOUND = FALSE) AND 

(NEWFUNCTABPTR <> NIL) DO 
IF NAMESMATCH (FUNC INDEX? .FUNCNAME oNEWFUNAME ) 

THEN FOUND’ aTRUE 
ELSE FUNCINDEX3 sFUNCINDEX? NEXTFUNCTABPTIRS 

FUNCT IONALREADYOEF INED3 sF OUND 

END$ (# FUNCTIONALREEADYOEFINED *) 


PROCEDURE MAKETOKENLINK$ 

BEGIN 

NEW (NEWTOKENPTR) § 

NEWTOKENPTR* eNEXTOKENS 2OLDTOKENPTRS 
SAVETOKENPTR$ SOLDTOKENPTRS 
OLDTOKENPTR3 sNEWTOKENPTR 

END$8 (# MAKETOKENLINK *) 


PROCEDURE PROCESSFUNCTIONHEADERS 

VAR 

DUMMYPTR3 *FUNCTAB3 

NAME 1 sNAME2 sNAME33PACKEDSTRINGS 

ITSANIDENTIF IER» FUNCHEADERROR 2 BOOLEANS 

ARITYINDEX3 INTEGERS 

BEGIN 

FUNCHEADERROR$ Ff ALSE $ 

FUNCT IONMODE 3 TRUE $ 

FUNCSTATEMENTS3#=138 

IF FIRSTFUNCTION THEN BEGIN 
FUNCSTATEMENTS 3303 


10040 
10050 
10060 
10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 
10590 
10600 
10610 
10620 
10630 
10640 
10650 
10660 
10670 
10680 
10690 
10700 
10710 
10720 


FIRSTFUNCTION3 SF ALSES 
ENDS 
ARITVINDEX3213 
POSITIONS=POSITION ¢ 13 
IDENTIFIER (NAME »s ITSANIDENTIFIER) 8 
IF NOT ITSANIDENTIFIER 
THEN 
BEGIN 
SERROR(7)$ (* UNRECOGNIZABLE FUNCTION/ARGUMENT NAME *) 
FUNCTIONMODES2FALSES (# EXIT FUNCTION MODE *) 
FUNCHEADERROR 3 TRUE 
END 
ELSE 
BEGIN 
NEW (NEWF UNCTABPTR) $ 
SKIPSPACES$ 
IF APLSTATEMENT(POSITION) = CHARACTERILEF TARROW) 
THEN 
BEGIN 
NEWFUNCTABPTR# eRESULT&sTRUES (# EXPLICIT RESULT *) 
NEWFUNCTABPTR* RESULTNAME 3 SNAME 1 $ 
POSITIONSsPOSITION * 13 
IDENTIFIER (NAME) o ITSANIOENTIFIER) 3 
IF NOT ITSANIOENTIFIER 
THEN 
BEGIN 


SERROR (6) 3 (UNRECOGNIZABLE NAME TO RIGHT OF EXPLICIT RES*) 


FUNCHEADERROR 8 s TRUE 
END 
END 
ELSE 
NEWFUNCTABPTR* RESULTSSFALSES (# NO EXPLICIT RESULT *) 
SKIPSPACES$ 
IF (POSITION <# LINELENGTH) AND (NOT FUNCHEADERROR) 
THEN 
BEGIN 
IDENTIFIER (NAME2s ITSANIDENTIFIER) $ 
IF NOT ITSANIDENTIFIER 
THEN 
BEGIN 
SERROR(7)5(* INVALID FUNCTION/ARGUMENT NAME #) 
FUNCHEADERROR 3 & TRUE 
ENO 
ELSE 
ARITYINDEX 322 
END$ 
SKIPSPACES3 
IF (POSITION <= LINELENGTH) AND (NOT FUNCHEADERROR) 
THEN 
BEGIN 
IOENTIF IER (NAME36 I TSANIDENTIF IER) 8 
IF NOT ITSANIDENTIF IER 
THEN 
BEGIN 


SERROR(9)38 (# INVALID FUNCTION RIGHT ARGUMENT NAME *#) 


F UNCHE ADERROR 8 TRUE 
END 
ELSE 
ARITYINDEX323 
END$ 
SKIPSPACES$ 
IF (POSITION <z LINELENGTH) AND (NOT FUNCHEADERROR) 
THEN 
BEGIN 


SERROR(3)$ (# EXTRANEOUS CHARACTERS TO RIGHT OF FUNCTION HEADER *) 


FUNCHEADERROR 3 sTRUE 
ENDS 
CASE ARITYINDEX OF 
1: BEGIN 
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10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 
10860 
10870 
10880 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11430 
11440 
11450 
11460 
11470 
11480 
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23 BEGIN 


3% BEGIN 


END3 


NEWFUNCTABPTR* eARITY28NILADICs 
NE WFUNCTABPTR* eFUNCNAME : NAME 1 3 


END$ 


NEwF UNCTABPTR*t eARITY 3 SMONADICS$ 
NE WF UNCTABPTR* -FUNCNAME 3 =NAME } 3 
NEWFUNCTABPTR* eRIGHT ARG: sNAME2 3 
ADONAME TOVARTABLE (NAME2) 8 
NEWVARTABPTR* .FUNCTABPTRSZNEWFUNCTABPTRS 


END$ 


NEWFUNCTABPTR* ARITY3#DYADIC$ 
NEWF UNC TABPTR* -LEF TARG3 NAME 1 3 
NEWFUNCTABPTRt eFUNCNAME 3 sNAME2 3 
NEWFUNCTABPTR*# RIGHTARG 2 3NAME3 5 
ADDNAME TOVARTABLE (NAME 1) $ 
NEWVARTABPTR* -FUNCTABPTR& SNEWFUNCTABPTRS 
ADDNAME TOVARTABLE (NAME 3) 8 
NEWVARTABPTR* -FUNCTABPTR: SNEWFUNCTABPTRS 


END 


(*# CASE #) 


IF FUNCT IONALREADYDEF INED (NEWFUNCTABPTR* eFUNCNAME »s DUMMYPTR) 
THEN 


IF FUNCHEADERROR 
THEN BEGIN 


END 
ENDs (# PROCESSFUNCHEADER #) 


PROCEDURE DESTROYSTATEMENTS 


VAR 


DUMTOKENPTR: *TOKENT ABLE $ 
AUXSUBRTABPTR3 *SUBRTAB3 


BEGIN 


IF SUBRTABPTR <> NIL THEN 
BEGIN 
WHILE SUBRTABPTRt eLASTSUBRPTR <> NIL DO 


BEGIN 


SERROR(S)$ (#* FUNCTION ALREADY DEFINED *) 
FUNCHEADERROR 3 TRUE 3 


END3 


DISPOSE (NEWFUNCTABPTR)$ (* HEADER NO GOOD *) 
FUNCTIONMODESsFALSES (# EXIT FUNCTION MODE #) 
NEWFUNCTABPTR 3 SOLDF UNCTABPTRS 


ENO 


BEGIN 
AUXSUBRTABPTR3 #SUBRTABPTRS 
SUBRTABPTR 2 ZSUBRTABPTR*# -LASTSUBRPTRS 
DISPOSE (AUXSUBRTABPTR) $ 
END$ 


DISPOSE (SUBRTABPTR) 3 


END$ 


DUMTOKENPTR: SOLDTOKENPTRS 


WHILE DUMTOKENPTR <> HOLOTOKENPTR DO 
BEGIN 
OLDTOKENPTR: ZOLDTOKENPTR* NEXTOKENS 


DISPOSE (DUMTOKENPTR) 8 
DUMTOKENPTR? SOLOTOKENPTR 


END$ 


NEWTOKENPTR3 SHOLDTOKENPTR$ 
OLDTOKENPTR? sHOLOTOKENPTR 
ENDS (# DESTROYSTATEMENT #) 


(# RETURN POINTER 


TO END OF LAST GOOD LINE *) 


PROCEDURE REVERSELINKLIST(VAR ARGPTR:3TYPEVALTABPTR) $ 


VAR 


HOLDsTEMPTRS *VALUES3 
BEGIN (# REVERSELINKLIST #) 
VALPTR3 SARGPTR*-F IRSTVALUE $ 


11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11620 
11840 
11850 
11860 
11870 
11880 
11890 
11900 
11910 
11920 
11930 
11950 
11960 
12020 
12030 
12040 
12060 
12070 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12200 
12210 
12220 
12270 
12280 
12290 
12300 
12310 
12330 
12340 
12350 
12360 
12370 
12380 
12390 


TEMPTR3S@VALPTRt NEXT VALUE $ 
WHILE TEMPTR <> NIL 00 
BEGIN 
HOLD 3 STEMPTR* NEXT VALUE 3 
TEMPTR* -NEXTVALUE 3 2VALPTRS$ 
VALPTR&SsTEMPTR$ 
TEMPTR3 sHOLD 
END3 
ARGPTR oF IRST VALUE? NEXTVALUE 3 2NIL8 
ARGPTRt ef IRSTVALUE 8 sVALPTR3 
IF ARGPTRt FORWARDORDER # TRUE 
THEN ARGPTR* -FORWARDORDER ? =f ALSE 
ELSE ARGPTR*eFORWARDORDER?#TRUE (* TOGGLE LIST ORDER SWITCH *) 


END$ (# REVERSELINKLIST *) 
PROCEDURE PARSER(VAR TOKENTABPTRSTOKENPTRSVAR PTRTODAS TYPEVALTASPTR) $ 
VAR 
VF UNCHOLD3 #VFUNC$ (*# HOLD WHILE SEARCHING #) 


AUXOPERTABPTR: tOPERANDTAB S$ 
AUXSUBRTABPTR3 *SUBRTAB3 
AUXRPARMPTR 3 *FPARMTAB 3 
AUXLPARMPTR8 tFPARMTABS 


VAL IDEXP 3: BOOLEANS$ (# TRUE IF VALID EXPRESSION #) 
CNT 2 INTEGERS 
NPV: INTEGERS (# NUMBER OF INDICES *#) 


ASSIGN» ASSIGN] 3 BOOLE ANS 
DONESUCCESSOR: BOOLEANS$ 
DONEPARSE :BOOLEANS 


(* ASSIGNeIN PROGRESS *) 


PROCEDURE ERROR (ERRORINDEX? INTEGER) 8 

VAR 

MSGCOL : INTEGER$ 

BEGIN 

WRITE(=S SesERRORINDEXs= =)3 

FOR MSGCOL:21 TU MESSAGELENGTH DO 
WRITE CERRORMSGSLERRORINDEX »MSGCOL J) 3 

WRITELNS 

GOTO 1003 (* RETURN TO SCANNER *) 

END$s (# ERROR *) 


PROCEDURE RELEASE? 
BEGIN (# RELEASEOPERTAB *) 
OPERTABPTR: ZPTRLASTOPERS 
WHILE OPERTABPTR*eLASTOPER<ONIL OO 
BEGIN 
AUXOPERTABPTRS=OPERTABPTRS$ 
OPERTABPTR: 2OPERTABPTRE LASTOPERS 
DISPOSE (AUXOPERTABPTR) $ 
END$ 


ENDS (# RELEASEOPERTAB *) 


PROCEDURE EAPRESSION(VAR VALIDEXP%B00LEAN) SFORWARD3 


PROCEDURE RETURNTOCALL INGSUBR$ 
VAR 
NAMEPTR3 *VARTAB$ 
BEGIN (* RETURNTOCALLINGSUBR #) 
IF SUBRTABPTR* -CALLEOSUBR*t eRESULT THEN 
BEGIN (* PLACE EXPLICIT RESULT IN OPERTAB *#) 


IF NOT NAMEINVARTABLE (SUBRTABPTR*t -CALLEDSUBR* eRESUL TNAME sNAMEPTRe 


SUBRTABPTR* -CALLEDSUBR) 
Seer ERROR(L1) (* *SYMBOL NOT FOUND? *) 
BEGIN 


12400 
12410 
12420 
12430 
12440 
12450 
12460 
12470 
12480 
12490 
12500 
12510 
12520 
12530 
12540 
12550 
12560 
12570 
12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
12660 
12720 
12730 
12740 
12750 
12760 
12780 
12790 
12800 
12810 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12940 
12950 
12960 
12970 
12980 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
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AUXOPERTABPTR 3 SOPERTABPTR $ 
NEW (OPERTABPTR) $ 
OPERTABPTR* LASTOPER 8 SAUXOPERTABPTRS 
PTRLASTOPER : 2OPERTABPTR$ 
OPERTABPTR* .OPERPTR& sNAMEPTR* -VALTABPTR3 
ENDO$ 
END $ 
(# RETURN TO CALLING FUNCTION #) 
VF UNCPTR 3 sSUBRTABPTR* eSTATEMCALL INGSUBR $ 
TOKENTABPTR8 SUBRTABPTR*# » TOKENCALL INGSUBR* eNEXTOKENS 
IF SUBRTABPTR* -CALLEDSUBR*# eARITY<>NILADIC THEN 
BEGIN (# MONADIC OR OVADIC #) 
AUXRPARMPTR 3 ®RPARMPTRS 
RPARMPTR3 ZRPARMPTR*# -LASTPARM$ 
DISPOSE (AUXRPARMPTR) $ 
IF SUBRTABPTR -CALLEDSUBR* eARITY2DYADIC THEN 
BEGIN (# DYADIC ONLY *) 
AUXLPARMPTR 3 sLPARMPTR3 
LPARMPTR 3 £LPARMPTR® eLASTPARM$ 
DISPOSE (AUXLPARMPTR) $ 
END3 
END$ 
AUXSUBRTABPTR 2 SSUBRTABPTR$ 
SUBRTABPTR 3 SSUBRTABPTR*# eLASTSUBRPTR S$ 
DISPOSE (AUXSUBRTABPTR) 3 
ENO$S (#* RETURNTOCALLINGSUBR *) 


FUNCTION SPECSYMBOL (SYM3 INTEGER) sB00LEANS 
VAR 
VALIDSYM:BOOLEANS 
BEGIN (# SPECSYMBOL *) 
VALIOSYM3 3F ALSE $ 
IF TOKENTABPTR* NOUN2SPECOPER THEN 
IF TOKENTABPTRt .CHARINDXSSYM THEN 
BEGIN 
HOLDs sTOKENTABPTRS 
TOKENTABPTR& £TOKENTABPTR# NEXTOKENS 
VAL IOSYM i sTRUE $ 
END} 
SPECSYMBOL : sVALIDSYM$ 
ENO$S (# SPECSYMBOL *#) 


PROCEDURE CALLSUBR3$ 
VAR 
PTRTOVARTAB3 *VARTAB$ 
BEGIN (#* CALLSUBR *) 
IF SUBRTABPTR* -CALLEDSUBR* eARITY<>NILADIC THEN 
BEGIN 
IF NOT NAME INVARTABLE (SUBRTABPTR* -CALLEDSUBR* .RIGHTARG sPTRTOVARTAB» 
SUBRTABPTR* -CALLEDSUBR) 
THEN ERROR (32) 8 
IF PTRTOVARTAB*t -FUNCTABPTR<>SUBRTABPTR*.CALLEDSUBR THEN 
ERROR (32) $3(* PROGRAM LOGIC ERROR» VARIABLE NAME OF *) 
(# FUNCTION ARGUMENT NOT FOUND IN SYMBOL TABLE *) 
AUXRPARMPTR3 ZRPARMPTR$ 
NEW (RPARMPTR) $ 
RPARMPTR*# .LASTPARM 8 ZAUXRPARMPTR$ 
PTRTOVARTAB? DEF EREDVAL TABPTR% sRPARMPTR$ 
IF SUBRTABPTR*# eCALLEDSUBR* eARITY20YADIC THEN 
BEGIN (# IF DYADIC #) 
IF NOT NAME INVARTABLE (SUBRTABPTR* -CALLEDSUBR* eLEF TARG»s 
PTRTOVARTABsSUBRTABPTR* -CALLEDSUBR) THEN ERROR(33)3 
IF PTRTIOVARTABt eFUNCTABPTR<>SUBRTABPTR*t eCALLEDSUBR THEN 
ERROR(33)3 (* SAME AS ERROR(32) *) 
AUXLPARMPTR3&sLPARMPTR3$ 
NEW(LPARMPTR) $ 
LPARMPTR*? eLASTPARM 3 SAUXLPARMP TR $ 


13210 
13220 
13230 
13240 
13250 
13260 
13270 
13280 
13290 
13300 
13310 
13320 
13330 
13340 
13350 
13360 
13370 
13430 
13440 
13450 
13460 
13470 
13480 
13490 
13510 
13520 
13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
13690 
13700 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 
13800 
13810 
13820 
13830 
13840 
13850 
13860 
13870 
13880 
13890 
13900 
13910 
13920 
13930 
13940 
13950 
13960 


PTRTOVARTABt .—DEFEREDVALTABPTR3 2LPARMPTR3$ 
LPARMPTR*# -PTRVAL 3 S3OPERTABPTR* -OPERPTRS 
AUXOPERTABPTR& SOPERTABPTRS 
OPERTABPTR3 2OPERTABPTR* LASTOPERS$ 
DISPOSE (AUXOPERTABPTR) $ 
PTRLASTOPER 3 =OPERTABPTR$ 
END$ 

RPARMPTR*t. .PTRVAL 8 S0PERTABPTR* OPERPTR$ 

AUXOPERTABPTR3 SOPERTABPTR3 

OPERTABPTR3’ SOPERTABPTR*E.LASTOPERS 

DISPOSE (AUAOPERTABPTR) $3 


PTRLASTOPER3 =OPERTABPTR3 
END$ 
TOKENTABPTR! ZSUBRT ABPTR* .CALLEDSUBR* oF IRSTATEMENT*# BNEXTSTMNT $ 
VF UNCPTRS=SUBRTABPTR* -CALLEDSUBR®* ef IRSTATEMENT 8 
END$ (# CALLSUBR #) 


FUNCTION FUNCTCALL 2: BOOLEAN? 
VAR 
PTRTOFUNCTAB: tFUNCTAB3 
NAMEOF FUNC: PACKEDSTRINGS 
VAL IOFN:BOOLEAN$ 
BEGIN (# FUNCTCALL *) 
VALIDFN&3F ALSE$ 
IF TOKENTABPTR* NUUN2GLOBVAR THEN 
BEGIN 
NAMEOF FUNC $s TOKENTABPTR*.VARTABPTR* » VARNAME $ 
IF FUNCTIONALREADYDEF INED (NAMEOFFUNC»PTRTOFUNCTAB) THEN 
BEGIN 
AUXSUBRTABPTR 2 2SUBRTABPTRS 
NEW (SUBRTABPTR) 3 
SUBRTABPTR* eLASTSUBRPTR 3 SAUXSUBRTABPTRS 
SUBRTABPTR* -CALLEDSUBR 8 2PTRTOFUNCTAB$ 
SUBRTABPTR* - TOKENCALL INGSUBR S=TOKENTABPTRS 
SUBRTABPTR* eSTATEMCALL INGSUBR 8 =VFUNCPTRS 
HOLD: STOKENTABPTRS 
TOKENTABPTR&=TOKENTABPTR* NEXTOKENS 
VALIOFN?=TRUE$ 
END$ 
END$ 
FUNCTCALL 82VALIDFN3 
END$ (# FUNCTCALL *) 


PROCEDURE NUMWRITE (REALNOSREAL) 3 
VAR 
PREF IXsROOTS INTEGERS 
SIGDIGsCOLCNT 3 INTEGERS 
BEGIN (# OUTPUT A NUMBER #) 
IF REALNO > 0.0 
THEN WRITE(S =e REALNOSl232) (* OUTPUT POSITIVE NUMBER *) 
ELSE 
BEGIN (* OUTPUT NEGATIVE NUMBER #) 
REALNO: 8-1] .0*REALNO3 
SIGDIG3 STRUNC ( (LN(REALNO) )/(LN(1020)))8 
FOR COLCNT:#]1 TO (7 = SIGDIG) DO 
WRITE (S =)3 
IF CHARACTERINEGATIVE) < 6000 
THEN WRITE (CHR (CHARACTERUNEGATIVE))) 
ELSE 
BEGIN 
PREF IXt sCHARACTER(INEGATIVE) DIV 1008 
ROOT 3 #CHARACTER( NEGATIVE) = (1LOO*PREF IX) $ 
WRITE (CHR(PREF IX) » CHR(ROOT)) $3 
END$ 
SIGUIG&sSIGDIG + 53 
WRITE CREALNOSSIGDIG3 2) $ 
END 
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13970 ENDS (# NUMWRITE *) 


13980 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14180 
14190 
14200 
14210 
14220 
14230 
14240 
14250 
14260 
14270 
14280 
14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 
14430 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
14510 
14520 
14530 
14540 
14550 
14560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
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PROCEDURE OUTPUTVAL $3 
VAR 
CNT S INTEGERS 
AUXVALUESPTR3 #VALUES$ 
DIMHOLDs DIMEN] sDIMEN2s DIMENS2 INTEGERS 
OUTCNT 1 sOUTCNT2 2 0UTCNT33 INTEGERS 
IOIMENS’ INTEGERS 
BEGIN (# OUTPUTVAL *) 
CNT 3203 
WRITELNSWRITELNS 
IF NOT OPERTABPTR*# OPERPTRe eFORWARDORDER THEN 
REVERSELINKLIST (OPERTABPTR* OPERPTR) $ 
AUXVALUESPTR ? sOPERTABPTR* .OPERP TRE oF IRST VALUES 
IOIMENS 3 2OPERTABPTR* OPERPTR* DIMENSIONS S 
IF NOTCIDIMENS IN (0¢¢3) ) THEN 
BEGIN 
FOR COLCNT3#] TO MESSAGELENGTH DO 
WRITE (CERRORMSGS(60»COLCNT )) 8 
WRITELNS 
END 
ELSE 
IF AUXVALUESPTRENIL THEN 
BEGIN 
FOR COLCNT$31 TO MESSAGELENGTH DO 
WRITE (CERRORMSGS(61 »COLCNT )) 3 
WRITELNS 
END 
ELSE 
IF IDIMENS#0 THEN 
BEGIN 
NUMWRITE (AUXVALUESPTR*# eREALVAL) $ 
WRITELNS 
END 
ELSE 
BEGIN 


DIMEN] S20PERTABPTRE .OPERPTR*E oF IRSTDIMEN?t .DIMENLENGTHS 


IF IDIMENS>#2 THEN DIMEN2 82 


OPERTABPTR* OPERPTR* oF IRSTOIMENt eNEXTDIMEN? eDIMENLENGTH 


ELSE DIMEN23=13 
IF IDIMENS#3 THEN DIMEN33= 
OPERTABPTR* OPERPTR* oF IRSTDIMENT eNEXTOIMENT 
NEXTDIMEN? eDIMENLENGTH 
ELSE DIMEN33213 
IF IDIMENS#3 THEN BEGIN (# ROTATE DIMENSIONS #) 
DIMHOLDs#DIMEN1$ DIMEN1 3=DIMEN2$ 
DIMEN22sDIMEN3$ DIMEN3: sD IMHOLDS 
ENDS 
FOR OUTCNT3221 TO DIMEN3 DO 
BEGIN 
FOR OUTCNT2%2#1 TO DIMEN] DO 
BEGIN 
FOR OUTCNT1!21 TO DIMEN2 DO 
BEGIN 
CNTSsCNT «+ 13 
IF (((CNT=1)M0D 5S)20) AND 
(CNT<>1) THEN 
BEGIN 
WRITELNS 
WRITE(=S 273 
ENDS 
NUMWRITE (AUXVALUESPTR* -REALVAL) 3 
AUXVALUESPTR 2 ZAUXVALUESPTR* eNEXTVALUE 3 
END$ 
IF IDIMENS>=2 THEN 
BEGIN 
WRITELNS 


14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14830 
14840 
14850 
14860 
14870 
14880 
14890 
14900 
14910 
14920 
14980 
14990 
15000 
15010 
15020 
15030 
15040 
15050 
15060 
15070 
15080 
15100 
15110 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15200 
15210 
15220 
15230 
15240 
15250 
15260 
15270 
15280 
15290 
15300 
15310 
15320 
15330 
15340 
15350 
15360 
15370 
15380 
15390 
15400 
15410 
15420 
15430 
15440 
15450 
15460 
15470 
15480 


CNT 3203 
END$ 
END3 
WRITELNS WRITELNS 
END$ 
(*#WRITELN3S*) 
END$ 


ENO’ (# OUTPUTVAL *) 


FUNCTION VARIABLE 3BOOLEANS 


VAR 
GLOBORDUMMY 3BOOLEAN3 (# GORD *#) 
PASSEDADJ3 *VARTAB3 (* K #) 
RARG:BOOLEANS$ (# RD #) 
PARMPTR3 *VALTAB3 (*# PT #) 
VALIOVAR?BOOLEANS 
VALIDINDEX sBOOLEANS3 


PROCEDURE INPUTVALS$ 
VAR 


AUXPTRTODA3 *VALTABS 
AUXVALUESPTR3 ¢VALUES$ 
AUX2VALUESPTR3 *VALUES$ 
REALVSREAL$ 

BOOLV :BOOLEANS 
CCNTRoCNT 3 INTEGERS 
AUXDIMENINF OPTR38 tO IMENINFOS 


BEGIN (# INPUTVAL #) 


CNT 3203 
POSITIONS] 3 
AUXPTRTODA% ePTRIODAS 
NEW(PTRTODA) $ 
AUXPTRTODAt eNEXTVALTABL INK 3 sPTRTIODAS 
AUXOPERTABPTR 3 20PERTABPTRS 
NEW (OPERTAGPTR) 3 
PTRLASTOPER 8 SOPERTABPTRS 
OPERTABPTR* .LASTOPER 2 SAUXOPERTABPTRS 
OPERTABPTR* ,OPERPTR&sPTRIODAS 
NEW (AUX2VALUESPTR) 8 
PTRTODAt oF IRSTVALUE 8 SAUX2VALUESPTRS 
FOR CCNTR3#] TO MESSAGELENGTH DO 
WRITE (CERRORMSGS(639CCNTR)) SWRITELNS 
REAOLNS 
GETAPLSTATEMENT 3 
REPEAT 
MAKEANUMBER (REALV »sBOOLV) 3 
SKIPSPACES$ 
IF NOT BOOLV THEN 
BEGIN 
FOR COLCNT321 TO MESSAGELENGTH DO 
WRITE (ERRORMSGS(62sCOLCNT))8 
WRITELNS 
POSITIONS 313 
CNT 3203 
AUX2VALUESPTR 2 SOPERTABPTR* -OPERPTR* FIRST VALUES 
FOR CCNTR3821 TO MESSAGELENGTH DO 
WRITE (ERRORMSGS(63sCCNTR)) SWRITELNS 
REAOLNS 
GETAPLSTATEMENT 
END 
ELSE 
BEGIN 
CNT SCNT O13 
AUXVALUESPTR 3 SAUX2VALUESPTR3$ 
NEW (AUX2VALUESPTR) 3 
AUXVALUESPTR® eREALVAL 8 SREALV 3 
AUXVALUESPTR# NEXT VALUE 8 SAUX2VALUESPTRS 
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15490 
15500 
15510 
15520 
15530 
15540 
15550 
15560 
15570 
15580 
15590 
15600 
15610 
15620 
15670 
15680 
15690 
15700 
15710 
15720 
15730 
15740 
15750 
15760 
15770 
15780 
15790 
15800 
15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15990 
16000 
16010 
16020 
16030 
16040 
16050 
16110 
16120 
16130 
16140 
16150 
16170 
16180 
16190 
16200 
16210 
16220 
16230 
16240 
16250 
16260 
16270 
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ENDS 

UNTIL POSITION>LINELENGTHS 

DISPOSE (AUX2VALUESPTR) $ 

AUXVALUESPTR* .NEXTVALUE 3 2NIL 3 

PTRTODAt. INTERMEDRESULT 3 SF ALSE 3 

PTRTODAt .DIMENSIONS 221 3 

PTRTODA?.F ORWARDORDER 3 s TRUE $ 

PTRTODAt NEXTVALTABLINK? =NIL3 

NEw (AUXDIMENINFOPTR) 8 

PTRTODAtT oF IRSTDIMENS ZAUXDIMENINFOPTRS 

AUXDIMENINFOPTR* eDIMENLENGTHS SCNT 3 

AUXDIMENINF OPTR* NEXTOIMENS SNIL3 
ENDS (# INPUTVAL #) 


PROCEDURE GETARRAYPOSITION(VAR VALUESPTR3 TYPEVALUESPTR) 3 


VAR 
INDICE SREAL3 
KCNT 3 INTEGERS 
SL3 INTEGERS 
AUXDIMENINFOPTR3 *D IMENINFOS 
BEGIN (# GETARRAYPOSITION *) 
IF NPV<>PARMPTR* DIMENSIONS THEN ERROR (35) 3 


(# #WRONG NUMe OF SUBSCRIPTS* #) 


SL3303 
AUXOPERTABPTR3 2OPERTABPTRS$ 
AUXDIMENINF OPTR3 SPARMPTR* -F IRSTOIMENS 
FOR KCNT&82#1 TO NPV DO 

BEGIN 


IF AUXOPERTABPTR* .OPERPTR* —OIMENSIONS<>0 THEN 


ERROR (35)3 (# *#NON@=SCALER INDICES* *) 


INDICE 8 SAUXOPERTABPTR*E -OPERPTRt oF IRSTVALUE? REALVAL 3 


IF INDICE=1-0*TRUNCCINDICE)<>0.-0 THEN 
ERROR(37)5 (* *#NON-INTEGER INDICES* *) 

IF NOT (TRUNCCINOICE) 

IN C1LeeAUXDIMENINFOPTR* .DIMENLENGTH)) THEN 
ERROR(38)3 (* *#0UT OF RANGE INDEX* *#) 


SL2=(SL#AUXOIMENINFOPTRe -—OIMENLENGTH) + TRUNC (INDICE) 18 


AUXOPERTABPTR? ZAUXOPERTABPTR* .LASTOPERS 
DISPOSE (OPERTABPTR) $ 
OPERTABPTR$ SAUXOPERTABPTRS 
AUXDIMENINE OPTR3 SAUXDIMENING OPTRt NEXTOIMENS 
END$ 
VALUESPTR3 ZPARMPTR* oF IRST VALUE 3 
WHILE SL<>0 DO(* DETERMINE WHICH VALUE IN *) 


(# PTUSVAL (SV) JOSVAL (SV-1) Deco lSVAL(SV=NPVel) 3#) 


(* $a SVAL (SV-NPV) 
BEGIN 
VALUESPTR 3 #VALUESPTR*# NEXT VALUE 3 
SL3=SL~-1 3 
END3 


END$ (# GETARRAYPOSITION *) 


PROCEDURE LINKRESULTS3 
VAR 
PTRTOVALUES: *#VALUES3 
BEGIN (# LINKRESULTS *) 
IF NPV=0 THEN 
BEGIN 
IF NOT GLOBORDUMMY THEN 
IF RARG THEN 
2 a a 
LS 
LPARMPTR*# .PTRVAL 3 3OPERTABPTR*t OPERPTR 
ELSE 
PASSEDADJ?. VAL TABPTR! sOPERTABPTR* OPERPTR 


#) 


16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16380 
16390 
16400 
16410 
16420 
16480 
16490 
16500 
16510 
16520 
16530 
16550 
16560 
16870 
16580 
16590 
16600 
16610 
16620 
16630 
16640 
16650 
16660 
16670 
16680 
16690 
16700 
16710 
16720 
16730 
16740 
16750 
16760 
16770 
16780 
16790 
16800 
16810 
16820 
16830 
16840 
16900 
16910 
16920 
16930 
16940 
16960 
16970 
16980 
16990 
17000 
17010 
17020 
17030 
17040 
17050 
17060 
17070 
17080 


BEGIN 


IF GLOBORDUMMY THEN PARMPTR3SPASSEDADJt eVALTABPTR 
ELSE PARMPTR&=#PASSEDADJ+4 -DEFEREDVALTABPTR*# -PTRVAL3 


GETARRAYPOSITION(PTRTOVALUES) $ 


IF OPERTABPTR* OPERPTR* .DIMENSIONS<>0 THEN 
ERROR (36)8 (# *#ASSIGNED EXPRESSION NOT A SCALAR? #) 


PTRTOVALUES*# eREALVAL 32 


OPERTABPTR*# -OPERPTR*E oF IRSTVALUE? eREALVAL 3 


END$ 


AUXOPERTABPTR: ZOPERTABPTRS 
OPERTABPTR3 fOPERTABPTR* LASTOPERS 
DISPOSE (AUXOPERTABPTR) 8 
PTRLASTOPER Ss0PERTABPTRS 

ENDS (# LINKRESULTS #) 


PROCEDURE STACKPOINTERSS 


VAR 


AUXPTRTODA3 ¢VALTABS 

PTRTOVALUES » AUXVALUESPTR 3 ¢VALUES $3 
BEGIN (# STACKPOINTERS #) 3 

IF NPV=0 THEN 


BEGIN 


AUXOPERTABPTR&s0PERTABPTRS 


NEW 


(OPERTABPTR) 3 


OPERTABPTRt eLASTOPER $ SAUXOPERTABPTRS 
OPERTABPTR* -OPERPTR& ZPARMPTRS 
PTRLASTOPER 2 20PERTABPTR 


BEGIN 


AUXPTRTODA3 SPTRTODAS 


NEW 


(PTRTODA) 3 


PTRTODA? NEXTVAL TABL INK s SAUXPTRTIODAS 
PTRTODAt. INTERMEDRESULT : = TRUE $ 
PTRTODA? -—DIMENSIONS 2303 

PTRTODA?T -FIRSTOIMENS ZNIL 3 

PTRTODA*? -FORWAROORDER £ TRUE 3 


NEW 


(AUXVALUESPTR) 3 


PTRTODA? oF IRSTVALUE 3 SAUXVALUESPTRS 
GETARRAYPOSITION(PTRIOVALUES) 3 


PTRTODA? oF IRST VALUE? -REALVAL 3 sPTRTIOVALUES*?-REALVAL 8 


PTRTODA? oF IRST VALUE? NEXT VALUE 2aNIL 3 
AUXOPERTABPTR?220PERTABPTRS 


NeW 


(OPERTABPTR) $ 


OPERTABPTR*t -LASTOPER 3 SAUAOPERTABPTIRS 
OPERTABPTRt OPERPTR: sPTRIODAS 
PTRLASTOPERS Z2OPERTABPTRs 


END3 


END$ (# STACKPOINTERS *) 


FUNCTION SIMPLEVARIABLE :BOOLEANS3 


VAR 


VALIOSVsBOOLEANS 

BEGIN (# SIMPLEVARIABLE #) 
VALIOSV3 sF ALSE$ 
RARG3 sF ALSE$ 
GLOBORDUMMY 8 SF ALSE $ 
IF ASSIGN THEN 


BEGIN 
IF 


(TOKENTABPTR* eNOUNSFORMRES) OR 
(TOKENTABPTR* NOUNSGLOBVAR) THEN 


BEGIN 


GLOBORDUMMY 8 TRUE $ 

PASSEDADJ? STOKENTABPTR* -VARTABPTR$ 
HOLD: zTOKENTABPTRS 
TOKENTABPTR&STOKENTABPTR* NEX TOKENS 
VAL ITOSV32TRUE 
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17090 
17100 
17110 
17120 
17130 
17140 
17150 
17160 
17170 
17180 
17190 
17200 
17210 
17220 
17230 
17240 
17250 
17260 
17270 
17280 
17290 
17300 
17310 
17320 
17330 
17340 
17350 
17360 
17370 
17380 
17390 
17400 
17410 
17420 
17430 
17440 
17450 
17460 
17470 
17480 
17490 
17500 
17560 
17570 
17580 
17590 
17600 
17620 
17630 
17640 
17650 
17660 
17670 
17680 
17690 
17700 
17710 
17720 
17730 
17740 
17750 
17760 
17770 
17830 
17840 
17860 
17870 
17880 
17890 
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END 
ELSE 
IF TOKENTABPTR* eNOUN=FORMARG THEN 
BEGIN 
IF NAMESMATCH 
(TOKENTABPTR* -VARTABPTR* FUNCTABPTR# eLEFTARG» 
TOKENTABPTR*# .VARTABPTR* .VARNAME ) THEN RARG32TRUE$ 
PASSEVADJ? = TOKENTABPTR*.. VARTABPTR 
END 
ENO 
ELSE 
BEGIN 
IF (TOKENTABPTR*t eNOUNZFORMRES) OR 
(TOKENTAGPTR* -NOUN=GLOBVAR) THEN 
BEGIN 
PARMPTRZ=TOKENTAGPTR* -VARTABPTR* VALTABPTRS 
IF PARMPTR<ONIL THEN 
BEGIN 
HOLD: TOKENTABPTR3 
TOKENTABPTR& 2TOKENTABPTR* NEXTOKENS 
VALIOSV3=TRUE 
END 
END 
ELSE 
BEGIN 
IF TOKENTABPTR* eNOUN=FORMARG THEN 
BEGIN 
1F NAMESMATCH 
(TOKENTABPTRt -VARTABPTR*# -FUNCTABPTR* LEFTARG,» 
TOKENTABPTR*# eVARTABPTR* eVARNAME) THEN 
PARMPTR3 sLPARMPTR*# PTRVAL 
ELSE 
PARMPTR&a#RPARMPTR* .PTRVAL 3 
HOLD? TOKENTABPTRS 
TOKENTABP TRS 2TOKENTABPTR* eNEXTOKENS 
VAL IOSV22TRUE3 
END$3 
END$ 
END3 
SIMPLEVARIABLE 82VALIDSV$ 
ENOs’ (# SIMPLE VARIABLE *#) 


PROCEDURE INDEX(VAR VALIOI 3 BOOLEAN) $ 
VAR 
VALIDE1 »VALIDE2 s BOOLEAN’ 
BEGIN (# INDEX #) 
VALIDI%sFALSE3 
EXPRESSION(VALIDE]) 3 
IF VALIDE1] THEN 
BEGIN 
NPVs#13 (# NOe OF INDEX EXPRESSIONS #) 
WHILE SPECSYMBOL (XSEMICOLSYM) DO 
BEGIN 
NPV3SNPV?l $ 
EXPRESSION(VALIDE2) $ 
IF NOT VALIDE2 THEN ERROR(39) 3 
(# *INVALID INDEX EXPRESSION? *) 
END$ 
VALIOIs sTRUES 
ENO$ 
ENDS (* INDEX #) 


BEGIN (* VARIABLE *) 
VALIOVARSSFALSE3 NPV3803 
IF NOT ASSIGN THEN 
IF SPECSYMBOL (XQUADSYM) THEN 
BEGIN 


17900 
17910 
17920 
17930 
17940 
17950 
17960 
17970 
17980 
17990 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
13080 
18090 
18100 
18110 
18120 
18130 
18140 
18150 
18160 
18170 
18180 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 
18270 
18280 
18290 
18360 
18370 
18380 
18390 
18400 
18410 
18470 
13480 
18490 
18500 
18510 
18530 
18540 
18550 
18560 
18570 
18580 
18590 
18600 
18610 
18620 
18630 
18640 
18650 
18660 
18670 
18680 
18700 
18710 


INPUTVAL8 
VALIDVAR 3 sTRUE 
END 
ELSE 
BEGIN 
IF SPECSYMBOL (XRIGHTBRACKET) THEN 
BEGIN 
INDEX (VALIOINDEX) 8 
IF (NOT VALIDINDEX) OR (NOT SPECSYMBOL (XLEF TBRACKET) ) 
THEN ERROR(34)8 (* INVALID INDEX EXPRESSION *) 
ENDS 
IF SIMPLEVARIABLE THEN 
BEGIN 
STACKPOINTERSS 
VAL IDVAR 3 TRUE 
ENO 
END 
ELSE 
IF SPECSYMBOL (XQUADSYM) THEN 
BEGIN 
OUTPUTVAL 8 
VAL IOVAR 8 2 TRUE 
END 
ELSE 
BEGIN 
IF SPECSYMBOL (XRIGHTBRACKET) THEN 
BEGIN 
INDEX (VALIOINDEX) 3 
IF (NOT VALIDINDEX) OR (NOT SPECSYMBOL (XLEF TBRACKET)) 
THEN ERROR(34)8 (# INVALID INDEX EXPRESSION *) 
END3 
If SIMPLEVARIABLE THEN 
BEGIN 
LINKRESULTS$ 
VALIDVAR 3 2TRUE 3 
END3 
ENDS 
VARIABLE 32VALIDVARS 
END$ (* VARIABLE *) 


PROCEDURE PRIMARY(VAR VALIOSBOOLEAN)$ (# RECURSIVE ENTRY *®) 
VAR 
VAL I0X 3 BOOLEANS 
ASSIGN! BOOLEANS 


FUNCTION VECTOR? BOOLEANS 
VAR 
VECSBO0OLEAN3 
BEGIN (# VECTOR *) 
VEC3sFALSE$ 
IF TOKENTABPTR* NOUNSCONSTANT THEN 
BEGIN 
AUXOPERTABPTR& ZOPERTABPTR3 
NEW (OPERTABPTR) $ 
PTRLASTOPER 3 sOPERTABPTR3 
OPERTABPTR* LASTOPER 3 sAUXOPERTABPTRS 
OPERTABPTR*# .OPERPTR& s TOKENTABPTR*.VALTABPTRS 
HOLD 3s TOKENTABPTIR 3 
TOKENTABPTR 3 STOKENTABPTR* .NEXTOKENS 
VECss#TRUE$3 
END$ 
VECTOR3 sVEC3 
END$ (* VECTOR #) 


BEGIN (* PRIMARY #) 


VALID3#TRUES 
IF NOT VECTOR THEN 
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18720 BEGIN 


18730 ASSIGNS 2FALSE$ 

18740 IF NOT VARIABLE THEN 

18750 IF SPECSYMBOL(XRIGHTPAR) THEN 

18760 BEGIN 

18770 EXPRESSION(VALIDX) 3 

18780 IF NOT VALIOX THEN ERROR(14) 
18790 (# *#NON-VALID EXP WITHIN PARENS*? #) 
18800 ELSE 

18810 IF NOT SPECSYMBOL(XLEFTPAR) THEN ERROR(1S) 
18820 (*# *RIGHT PAREN NOT BALANCED WITH LEFT PAREN? *) 
18830 ELSE 

18840 VALID3 TRUE 

18850 END 

18860 ELSE 

18870 IF NOT FUNCTCALL THEN VALIDS2FALSE 
18880 ELSE 

18890 BEGIN 

18900 CALLSUBR$ 

18910 PRIMARY (VALID) $ 

18920 END$ 

18930 END$ 

18940 ENDS (# PRIMARY *) 

18950 

19010 

19020 PROCEDURE EXPRESSIONS (# RECURSIVE *) 

19030 VAR 

19040 DONEXP » VAL IOPRI 9 VAL TOF UNC» VAL IDASSN3 BOOLEANS 
19050 CODE 3 INTEGERS 

19060 

19110 

19120 PROCEDURE ASSIGNMENT(VAR VALIDASBOOLEAN) $ 
19130 BEGIN (# ASSIGNMENT *) 

19150 VALIDA3 sFALSE$ 

19160 IF SPECSYMBOL (XLEFTARROW) THEN 

19170 BEGIN 

19180 ASSIGN STRUE SASSIGN1 8 STRUE 3 

19190 IF VARIABLE THEN VALIDAssTRUE 

19200 ELSE ERROR(8)3 (# RESULT OF AN ASSN NOT A VALIO VARIABLE *) 
19210 VALIDA3 STRUES 

19220 ASSIGN? 8F ALSE$ 

19230 END3$ 

19240 ENDS (* ASSIGNMENT *) 

19250 

19310 

19320 FUNCTION MOP3BOOLEANS 

19330 VAR 

19340 VAL IOM3 BOOLEAN 3 

19350 BEGIN (# MOP #) 

19370 VALIDM3: sF ALSE$ 

19380 IF (TOKENTABPTRte-NOUN2MONADOPER) OR 
19390 (TOKENTABPTR* NOUNZREDUCTOPER) THEN 
19400 BEGIN 

19410 IF TOKENTABPTR*t eNOUNZMONADOPER THEN 
19420 CODE 2 SMOPTAB( TOKENTABPTR* eMONINDX ) OP INDEX 
19430 ELSE 

19440 CODE 3 SREDTAB(TOKENTABPTR* eREDINDX ) .OPINDEX$ 
19450 HOLD? sTOKENTABPTRS 

19460 TOKENTABPTR3 STOKENTABPTIR* NEXTOKENS 
19470 VALIOM3 TRUE $ 

19480 ENO 

19490 MOP S2VALIDM3 

19500 END$ (* MOP *#) 

19510 

19570 

19580 FUNCTION DOP SBOOLEAN$ 

19590 VAR 

19600 VALIDD:BOOLEANS$ 

19610 BEGIN (# DOP *) 
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19630 
19640 
19650 
19660 
19670 
19680 
19690 
19700 
19710 
19720 
19730 
19740 
19750 
19760 
19770 
19780 
19790 
19800 
19810 
19820 
19830 
19840 
19850 
19860 
19870 
19880 
19890 
19900 
19910 
19920 
19930 
19940 
19950 
19960 
19970 
19980 
19990 
20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20210 
20220 
20230 
20240 
20250 
20260 
20270 
20280 
20290 
20300 
20310 
20320 
20330 
20340 
20350 
20360 


VALIOD2 =F ALSE3 
IF TOKENTABPTR*t -NOUNZDYADOPER THEN 
BEGIN 
CODE : sDOPTABE TOKENTABPTRe .DOP INOX }) OP INDEX 8 
HOLD8 STOKENTABPTRS 
TOKENTABPTR s&s sTOKENTABPTRE .NEXTOKENS 
IF (CODE>80) THEN VALIOD&Ss TRUE 
ELSE 
IF TOKENTABPTR* NOUNSSPECOPER THEN 
IF SPECSYMBOL (XPERIOD) THEN 
BEGIN 
IF TOKENTABPTR* NOUNSDYADOPER THEN 
BEGIN 
IF DOPTAB( TOKENTABPTR* .DOPINOX ) OP INDEX<2#80 
THEN BEGIN 
CODE taCODE+ (100 
DOPTAB( TOKENTABPTR* .DOPINDX } OP INDEX) 3 
HOLD Ss TOKENTABPTRS 
TOKENTABPTR SS TOKENTABPTR* eNEXTOKENS 
VALIDO8 s TRUE 
ENO 
ELSE 
ERROR(27) (* *INVALIO INNER PRODUCT EXP #) 
END 
ELSE 
IF TOKENTABPTR* NOUNSSPECOPER THEN 
BEGIN 
IF SPECSYMBOL(XLITTLECIRCLE) THEN 
BEGIN 
CODE :#10*CODE3 
VALIOD8 s TRUE 
END 
ELSE 
ERROR(26) (* *INVAL OUTER PROD EXP? *#) 
END 
ELSE ERROR(26) (# SAME AS ABOVE #) 
END 
ELSE 
VAL 1008 #TRUE 
ELSE 
VALIOD3 s TRUE 3 
END 3 
DOP? 2VALIOD3 
END$3 (# DOP *#) 


FUNCTION ITSBOOLEAN (TEST SREAL) 3BOOLEANS 
BEGIN 
IF (TEST = 1.0) OR (TEST = 0-0) 
THEN ITSBOOLEAN3 TRUE 
ELSE ITSBOOLEAN: =F ALSE 
END$ (# ITSBOOLEAN #) 


PROCEDURE DYADCOMP(VAR SFLOATSREALS VALUESREALS CODE? INTEGER) $ 
(* COMPUTE RESULT OF DYADIC OPERATION #) 
BEGIN 
CASE CODE OF (#LEFT CODES = REDUCTION OPS / RIGHT CODES - DYADIC OPS*) 
29528 SFLOATSSVALUE ¢ SFLOATS (*ADDITION*) 
39538 SFLOATZSVALUE = SFLOATS (*SUBTRACTION®) 
49543 SFLOATSSVALUE * SFLOATS (*®MULTIPLICATION®) 
5958S: IF SFLOAT = 0.0 
THEN ERROR(20) (*ATTEMPTED DIVISION BY ZERO*) 
ELSE SFLOATSsVALUE / SFLOATS (#DIVISION®) 
6056: IF VALUE > 0.0 
THEN SFLOATS SEXP (SFLOAT®LN(VALUE)) (#NUMBER RAISED TO A POWER®) 
ELSE SFLOAT3#1.0 / (EXP (SFLOAT#LN(ABS (VALUE) )))5 
2le71: IF VALUE # SFLOAT (#EQUALITY#) 
THEN SFLOAT!31.0 
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20370 


ELSE SFLOAT:20.08 


20380 225723 IF VALUE <> SFLOAT (#INEQUALITY®) 

20390 THEN SFLOATS#1.0 

20400 ELSE SFLOAT32#0.08 

20410 239738 IF VALUE < SFLOAT (#LESS THAN*) 

20420 THEN SFLOAT3#1.0 

20430 ELSE SFLOAT320.03 

20440 24074: IF VALUE <a SFLOAT (*LESS THAN OR EQUAL TO*) 

20450 THEN SFLOAT321.0 

20460 ELSE SFLOAT22#0.03 

20470 250752 IF VALUE > SFLOAT (*GREATER THAN OR EQUAL TO*) 
20480 THEN SFLOAT2#1-.0 

20490 ELSE SFLOAT:=0.03 

20500 26576: IF VALUE > SFLOAT (*GREATER THAN*) 

20510 THEN SFLOAT2#1.20 

20520 ELSE SFLOAT:=0.03 

20530 270773 IF CITSBOOLEAN(VALUE)) AND (ITSBOOLEAN(SFLOAT)) THEN 
20540 IF (VALUE = 1.20) AND (SFLOAT = 1-0) (* AND #) 

20550 THEN SFLOAT2=1.0 

20560 ELSE SFLOAT320.0 

20570 ELSE ERROR(19)$ (# VALUE NOT BOOLEAN #) 

20580 28578: IF (ITSBOOLEAN(VALUE)) AND (ITSBOOLEAN(SFLOAT)) THEN 
20590 IF (VALUE = 1-0) OR (SFLOAT 32 1.0) (* OR #) 

20600 THEN SFLOAT3=1.0 

20610 ELSE SFLOAT:230.0 

20620 ELSE ERROR(19)3 (# VALUE NOT BOOLEAN #) 

20630 29 : IF VALUE > SFLOAT (*#MAXIMUM OR CEILING#) 

20640 THEN SFLOAT: VALUE $ 

20650 30 : IF VALUE < SFLOAT (*MINIMUM OR FLOOR*) 

20660 THEN SFLOAT: =VALUE 8 

20670 31 t IF (VALUE*SFLOAT) < 0.0 

20680 THEN ERROR(SO) (#NUMBER AND BASE OF DIFFERENT SIGN#) 
20690 ELSE SFLOATS=(LN(ABS(SFLOAT))) 7 (LNCABS(VALUE))) (#LOG TO A BASE*) 
20700 END (*CASE*) 

20710 END$ (*# DYAOCOMP *#) 

20720 

20770 

20780 PROCEDURE INDEXGENERATOR (ARG? TYPEVALTABPTR) 3 


20790 (* MONADIC IOTA OPERATOR *) 

20800 VAR 

20810 IOTAINDEXs TOPVALUE 8 INTEGER? 

20820 BEGIN 

20830 IF ARGteUVIMENSIONS <> 0 

20840 THEN ERROR(21) (#ARGUMENT NOT A SCALAR®*) 

20850 ELSE 

20860 IF ARGt.FIRSTVALUET.REALVAL < 0.0 

20870 THEN ERROR(22) (* ARGUMENT IS NEGATIVE *) 

20880 ELSE 

20890 IF (ARGteFIRSTVALUE*t REAL VAL) = (1.0*TRUNC (ARG* AF IRSTVALUEt REALVAL) ) 
20900 <> 0.0 

20910 THEN ERROR(23) (#ARGUMENT IS NOT AN INTEGER®) 
20920 ELSE 

20930 BEGIN 

20940 NEW (NEWVALTABLINK) 3 

20950 OLDVALTABLINK*# -NEATVALTABLINK 3 =NEWVALTABLINKS 
20960 NEWVAL TABLINKt NEXTVALTABLINK 2 2NIL3 

20970 NEWVALTABLINK*t.FORWARDORDER : =TRUE $ 

20980 NEWVALTABLINK®. INTERMEDRESULT 3 2TRUE $ 

20990 NEWVALTABLINK* .DIMENSIONS2=13 (#RESULT IS A VECTOR#) 
21000 NEW (NEWDIM) 8 

21010 NEWVALTABLINK? .F IRSTOIMENS SNEWDINS 

21020 TOPVALUE 8 8 TRUNC (ARG? oF IRSTVALUE? eREALVAL) 8 (®LAST INDEX GENERD®) 
21030 NEWDIM* -—DIMENLENGTH8 sTOPVALUE 3S 

21040 NEWD IM NEXTDIMENSSNIL S$ 

21050 JOTAINDEX 881 $ 

21060 SWITCH: sTRUE3 

21070 WHILE IOTAINDEX <# TOPVALUE 00 

21080 BEGIN 

21090 NEW (NEWVALUES) 8 
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21100 
21110 
21120 
21130 
21140 
21150 
21160 
21170 
21180 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 
21330 
21340 
21350 
21360 
21370 
21380 
21390 
21400 
21410 
21420 
21430 
21440 
21450 
21460 
21470 
21480 
21490 
21500 
21510 
21520 
21530 
21540 
21550 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
21630 
21640 
21650 
21660 
21670 
21680 
21690 
21700 
21710 
21720 
21770 
21780 
21790 
21800 
21810 
21820 
21830 
21840 
21850 
21860 


NEWVALUES*? REALVAL 8s IOTAINDEXS 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCH SF ALSE$ 


NEWVALTABL INK? .F IRSTVALUE 8 SNEWVALUES 


ENO 
ELSE 


NEWVALPTR* NEXTVALUE 8 SNEWVALUES 3 


NEWVALPTR3’ gNEWVALUES3 
IOTAINDEX&#IOTAINDEX ¢ 1 

END3 

IF SWITCH = TRUE 

THEN NEWVALTABLINK* oF IRSTVALUE tanIL 
(*RESULT IS VECTOR OF LENGTH 0#) 

ELSE NEWVALUES*? eNEXTVALUE 2 aNIL 

END 
END3s (# INDEXGENERATOR *) 


PROCEDURE RAVEL (ARG: TYPEVALTABPTR) 8 
(* MONADIC COMMA OPERATOR *#) 
VAR 
ELEMENTS3 INTEGER3$ 
BEGIN 
NEW (NEWVALTABL INK) $ 
OLOVALTABLINK? NEXTVALTABL INK 8 SNEWVAL TABLINK$ 
NEWVAL TABLINK®? .NEXTVALTABLINK3S=NIL8 
NEWVALTABL INK*. INTERMEDRESULT 8 TRUE 3 
NEWVALTABL INK*®.F ORWARDORDER 3 ARG? oF ORWARDORDER 3 
NEWVALTABLINK*eDIMENSIONS:3213 (#RESULT IS A VECTOR#) 
NEW (NEWDIM) $ 
NEWVALTABLINK*.F IRSTOIMEN: 2NEWDIMS 
NEWDOIMt eNEXTDIMENS2NIL3 
SWITCH: 8TRUE$ 
VALPTR& SARG*.F IRSTVALUE$ 
ELEMENTS 303 
WHILE VALPTR <> NIL DO 
BEGIN (*®DUPLICATE VALUES INTO RESULT*#) 
NEW (NEWVALUES) 3 
NEWVALUES*? -REALVAL § VALPTRt REALVAL 3 
ELEMENTS2sELEMENTS ¢ 13 
IF SWITCH 2 TRUE 
THEN 
BEGIN 
SWITCH3 #F ALSE$ 
NEWVALTABL INKt oF IRSTVALUE 2 SNEWVALUES 
END 
ELSE 
NEWVALPTR* NEXTVALUE 3 SNEWVALUESS 
NEWVALPTR& @NEWVALUES$ 
VALPTR3 sVALPTRt NEXT VALUE 
ENDS 
NEWDIM4 —DIMENLENGTH: ELEMENTS S 
IF SWITCH = TRUE 
THEN NEWVALTABLINK? oF IRSTVALUE 3 2NIL 
ELSE NEWVALUES*? NEXTVALUE 2 2NIL 
END$ (# RAVEL *) 


PROCEOURE SHAPEOF (ARG? TYPEVALTABPTR) $ 
(# MONADIC RHO OPERATOR *) 
BEGIN 
NEW (NEWVALTABL INK) $ 
OLDVALTABL INK? NNEXTVALTABL INK 3 SNEWVALTABLINKS 
NEWVAL TABL INK sNEXTVALTABLINK 3S SNILS8 
NEWVAL TABL INK#. INTERMEORESULT 8 8 TRUE $ 
NEWVAL TABL INK* .FORWARDORDER 8 STRUE $ 
NEWVAL TABLINK® DIMENSIONSS#138 (*®RESULT IS A VECTOR®) 
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21870 NEW (NEWOIM) $3 

21880 NEWDOIM? OIMENLENGTH sARG* DIMENSIONS S$ 

21890 NEWVALTABLINK?.F IRSTOIMENS 2NEWDIMS 

21900 NEWDIM*eNEXTDIMENS 2NIL$ 

21910 SWITCH sTRUES 

21920 DIMPTR&SARG*.F IRSTDIMENS 

21930 WHILE DIMPTR <> NIL DO 

21940 BEGIN (*ARGUMENT DIMENSIONS BECOME RESULT VALUES®) 
21950 NEW (NEWVALUES) 3 

21960 NEWVALUES*? eREALVAL 8 SDI MPTR* eDIMENLENGTHS 
21970 IF SWITCH = TRUE 


21980 THEN 

21990 BEGIN 

22000 SWITCH3#F ALSE$ 

22010 NEWVALTABL INK*-eF IRSTVALUE 8 SNEWVALUES 
22020 END 

22030 ELSE 

22040 NEWVALPTR* NEXTVALUE 3 SNEWVALUES $ 


22050 NEWVALPTR? SNEWVALUES$ 

22060 DIMPTR&s sDIMPTR* NEXTDIMEN 

22070 ENDS 

22080 IF SWITCH = TRUE 

22090 THEN NEWVALTABLINK*@eFIRSTVALUESSNIL (*RESULT IS A VECTOR OF LENGTH 0*) 
22100 ELSE NEWVALUES* eNEXTVALUE 8sNIL 

22110 ENDS (# SHAPEOF #) 

22120 

22170 

22180 PROCEDURE REDUCTION (ARGS TYPEVALTABPTR) 3 

22190 VAR 

22200 COUNTER» ROWLENGTH?: INTEGERS 

22210 SFLOATSREALS 

22220 BEGIN 

22230 IF (ARGteDIMENSIONS = 0) OR (ARG*eFIRSTVALUE = NIL) 

22240 THEN ERROR(24) (*ARGUMENT IS A SCALAR OR VECTOR OF LENGTH ZERO#) 
22250 ELSE 

22260 IF (ARG*eDIMENSIONS = 1) AND (ARG*eFIRSTDIMEN* -DIMENLENGTH & 1) 


22270 THEN ERROR(S1) (*#ARGUMENT IS A VECTOR OF LENGTH ONE*) 
22280 ELSE 

22290 BEGIN 

22300 NEW (NEWVALTABLINK) $ 

22310 OLOVALTABL INK? eNEXTVALTABL INK 8 SNEWVAL TABL INKS 
22320 NEWVALTABLINK? NEXTVALTABLINK S@NIL 3 

22330 NEWVAL TABL INK#. INTERMEDRESULT ts TRUES 

22340 IF ARG*.FORWARDORDER 2 TRUE 

22350 THEN REVERSELINKLIST (ARG) 3 

22360 NEWVAL TABL INK? -FORWARDORDER 8 F ALSES 

22370 NEWVALTABLINK* eDIMENSIONS 3 2ARG*eDIMENSIONS — 13 
22380 DIMPTR3ZARG*-F IRSTDIMENS 

22390 SWITCH TRUE 8 

22400 WHILE DIMPTR*.NEXTDIMEN <> NIL DO 

22410 BEGIN (*BUILD DIMENSIONS OF RESULT®) 

22420 NEW (NEWOIM) 3 

22430 IF SWITCH # TRUE 

22440 THEN 

22450 BEGIN 

22460 SWITCH3 =F ALSE3 

22470 NEWVALTABLINK*.F IRSTDIMENS 2NEWDIM 
22480 END 

22490 ELSE 

22500 NEWPTR* NEXTOIMENS SNEWDIMS 

22510 NEWOIM* -DIMENLENGTH! sD IMPTR* .DIMENLENGTHS 
22520 NEWPTR: sNEWDIMS 

22530 DIMPTRt sDIMPTRt NEXTDIMEN 

22540 END$ 

22550 IF SWITCH = TRUE 

22560 THEN NEWVALTABLINK*? -FIRSTOIMENSENIL 

22570 (#ARG IS VECTOR»sRESULT IS SCALAR#) 

22580 ELSE NEWDIM*eNEXTDIMENS=NIL3 
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22590 
22600 
22610 
22620 
22630 
22640 
22650 
22660 
22670 
22680 
22690 
22700 
22710 
22720 
22730 
22740 
22750 
22760 
22770 
22780 
22790 
22800 
22810 
22820 
22830 
22840 
22850 
22860 
22910 
22920 
22930 
22940 
22960 
22970 
22980 
22990 
23000 
23010 
23020 
23030 
23040 
23050 
23060 
23070 
23080 
23090 
23100 
23110 
23120 
23130 
23140 
23150 
23160 
23170 
23180 
23190 
23200 
23210 
23220 
23230 
23240 
23250 
23260 
23270 
23280 
23290 
23300 
23310 
23320 


EN 


ROWLENGTH: sD IMPTR* .DIMENLENGTHS 
VALPTR2 SARG*.F IRSTVALUE 3 
SWITCH3 TRUE 3 
WHILE VALPTR <> NIL DO 

BEGIN (#PERFORM REDUCTION®) 


SFLOATSSVALPTRteREALVALS (*#SFLOAT GETS LAST VALUE IN ROW*) 


VALPTR& zVALPTR*# NEXTVALUE 3 
FOR COUNTER:s2 TO ROWLENGTH DO 
BEGIN 


DY ADCOMP (SFLOAT » VALPTR*® eREALVAL » CODE) $ 


VALPTR3 SVALPTR*# NEXTVALUE 
END3 
NEW (NEWVALUES) 3 
NEWVALUES? REALVAL §@SFLOATS 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCH: =F ALSE 3 


NEWVALTABL INK# oF IRSTVALUE 8 SNEWVALUES 


END 
ELSE 
NEWVALPTR* .NEXTVALUE 8 3NEWVALUES S$ 
NEWVALPTR 3 sNEWVALUES 
END$ 
NEWVALUES* NEXT VALUE 8 =NIL 
D$ 


END$ (#REDUCTION*) 


PROCEDURE MONADIC(ARG? TYPEVALTABPTRS TOKENS TOKENPTR) $ 


BEGIN 


(* 


OPERATIONS WITH CODES BETWEEN 1 AND 3) *) 


IF TOKEN*.NOUN # REDUCTOPER 
THEN REDUCTION (ARG) 


ELSE 


IF CODE > 20 


THEN 
CA 


EN 
ELSE 
BE 


SE CODE OF 

213 INDEXGENERATOR (ARG) § 
22% SHAPEOF (ARG) $ 

23% RAVEL (ARG) 

D (*#CASE*) 


GIN 

NEW (NEWVALTABLINK) 3 

OLDVAL TABL INK? sNEXTVALTABL INK 3 SNEWVALTABL INKS 
NEWVALTABL INK* eNEXTVAL TABL INK 3 aNIL 3 

NEWVAL TABL INK?#. INTERMEDRESULT 8sTRUE$ 


NEWVAL TABL INK? oF ORWARDORDER ¢ SARG* oF ORWARDORDER 3 


NEWVAL TABLINK?* —OIMENSIONS 8 SARG* .DIMENSIONSS 
SWITCH3 TRUE 3 

DIMPTR3&ZARG*-F IRSTDIMENS 

WHILE DIMPTR <> NIL DO 


BEGIN (#DUPLICATE DIMENSIONS OF ARG INTO RESULT#) 


NEW (NEWDIM) $ 
NEWDIM4 .DDIMENLENGTH3 SDI MPTR* .DIMENLENGTHS 
IF SWITCH 2 TRUE 
THEN 
BEGIN 
SWITCH: FALSE 3 
NEWVALTABLINKt oF IRSTOIMENS SNEWDIM 
END 
ELSE 
NEWPTR* NEXTDIMENS 2NEWDIMS 
NEWPTR&ZNEWDOIM3 
DIMPTR&2DIMPTRt NEXTDIMEN 
END3 
IF SWITCH = TRUE 


THEN NEWVALTABLINK*eF IRSTDIMENSSNIL (#RESULT IS A SCALAR*#) 
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23330 
23340 
23350 
23360 
23370 
23380 
23390 
23400 
23410 
23420 
23430 
23440 
23450 
23460 
23470 
23480 
23490 
23500 
23510 
23520 
23530 
23540 
23550 
23560 
23570 
23580 
23590 
23600 
23610 
23620 
23630 
23640 
23650 
23660 
23670 
23680 
23690 
23700 
23710 
23760 
23770 
23780 
23790 
23800 
23610 
23820 
23830 
23840 
23850 
23860 
23870 
23880 
23890 
23900 
23910 
23920 
23930 
23940 
23950 
23960 
23970 
23980 
23990 
24000 
24010 
24020 
24030 
24040 
24050 
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ELSE NEWDIM*-eNEXTDIMENS=SNIL3 
SWITCH: TRUE 3 
VALPTR3 2ARGt*.F IRSTVALUE3 
WHILE VALPTR <> NIL DO 
BEGIN 
NEW (NEWVALUES) 3 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCHS=FALSE$ 
NEWVALTABL INK? .F IRSTVALUE 8 SNEWVALUES 
END 
ELSE 
NEWVALPTR* NNEXTVALUE t SNEWVALUES $3 
NEWVALPTR: SNEWVALUES 3 
CASE CODE OF 
1: IF ITSBOOLEAN(VALPTRteREALVAL) (#* LOGICAL NEGATION *) 
THEN NEWVALUES*?. REALVAL 221.0 = VALPTR*.REALVAL 
ELSE ERROR(19)$ (*#VALUE NOT BOOLEAN #*) 
23 NEWVALUES? REALVAL $3VALPTR*eREALVALS (# NO-OP #) 
33 NEWVALUES? RREALVAL 220-0 = VALPTR*#-REALVALS (# NEGATION #) 
43 IF VALPTR#eREALVAL > 0-0 (* SIGNUM *#) 
THEN NEWVALUES*.-REALVAL 321.0 
ELSE 
IF VALPTR*#eREALVAL < 0-0 
THEN NEWVALUES? REALVAL 22-1 .03 
S: IF VALPTR*- REALVAL = 0-0 (* RECIPROCAL *) 
THEN ERROR(S4) (#ATTEMPTED INVERSE OF ZERO#) 
ELSE NEWVALUES? REALVAL 321-0 / VALPTRt-REALVAL 3 
63 NEWVALUES*? REALVAL 8 EXP (VALPTR*t -REALVAL ) 
ENDS (#CASE*) 
VALPTR3 2VALPTR*# NEXTVALUE 
END3 
IF SWITCH = TRUE 
THEN NEWVALTABL INK? oF IRSTVALUE s=NIL 
: ELSE NEWVALUES? NEXTVALUE saNIL 
NO 
ENO$ (# MONADIC *) 


PROCEDURE CATENATE (LEF TARGsRIGHTARGS TYPEVALTABPTR) 3 
(* DYADIC COMMA OPERATOR = JOINS 2 ARGUMENTS #) 
VAR 
RESULTLENGTH3 INTEGERS 
BEGIN (#CATENATE#*) 
IF (RIGHTARG?teDIMENSIONS > 1) OR (LEFTARG*-eDIMENSIONS > 1) 
THEN ERROR(S3) (#ARGUMENT(S) WITH RANK GREATER THAN 1*) 
ELSE 
BEGIN 
NEW (NEWVALTABLINK) 3 
OLDVALTABL INK*# .NEXTVALTABL INK 3 NEWVAL TABLINKS 
NEWVALTABLINK*4 LNEXTVALTABLINK& 2NIL3 
NEWVALTABL INK#. INTERMEDRESULT 3 TRUE $ 
IF LEFTARGteFORWARDORDER = FALSE 
THEN REVERSELINKLIST(LEFTARG) 8 
IF RIGHTARG@eFORWARDORDER = FALSE 
THEN REVERSELINKLIST (RIGHTARG) $ 
NEWVALTABL INK*#.FORWARDORDER 8 TRUE 8 
NEWVALTABLINK* -DIMENSIONS2218 (#RESULT IS A VECTOR#) 
NEW CNEWDIM) $ 
NEWVALTABLINK*t. .FIRSTIDIMENS SNEWDIMS 
NEWDIM® NEXTDIMENSZNIL 3 
RESULTLENGTH3=03 
IF LEFTARG*- DIMENSIONS = 0 
THEN RESULTLENGTHSSRESULTLENGTH ¢ 1 (*LEFT ARG IS A SCALAR®*) 
ELSE RESULTLENGTH2 sRESULTLENGTH ¢ LEFTARGt FIRSTDIMENt —DIMENLENGTHS 
IF RIGHTARGteDIMENSIONS = 0 
THEN RESULTLENGTH3#RESULTLENGTH @ 1 (*RIGHT ARG IS A SCALAR#) 
ELSE RESULTLENGTHS=RESULTLENGTH * RIGHTARG*.F IRSTOIMEN?t OIMENLENGTHS 


24060 
24070 
24080 
24090 
24100 
24110 
24120 
24130 
24140 
24150 
24160 
24170 
24180 
24190 
24200 
24210 
24220 
24230 
24240 
24250 
24260 
24270 
24280 
24290 
24300 
24310 
24320 
24330 
24340 
24350 
24360 
24370 
24380 
24390 
24400 
24410 
24420 
24430 
24440 
24450 
24460 
24470 
24480 
24530 
24540 
24550 
24560 
24570 
24580 
24590 
24600 
24610 
24620 
24630 
24640 
24650 
24660 
24670 
24680 
24690 
24700 
24710 
24720 
24730 
24740 
24750 
24760 
24770 
24780 


ENDs (# CATENATE *#) 


PROCEDURE INDEXOF (LEF TARGseRIGHTARG3 TYPEVALTABPTR) $ 
(* DYADIC IOTA OPERATOR *) 


VAR 


MAP INDEX se ICOUNT » TESTLENGT Hs ONEMORE 3 INTEGERS 
BEGIN (* INDEXOF *#) 

IF LEFTARG*+-DIMENSIONS <> 1 

THEN ERROR (29) 


EL 


NEWDIM*t —DIMENLENGTH3 sRESULTLENGTHS 


SWITCHS sTRUES 
IF RESULTLENGTH = 0 


THEN NEWVALTABLINK* FFIRSTVALUESSNIL (#RESULT IS VECTOR OF LENGTH 0*) 
ELSE 
BEGIN (*TRANSFER VALUES TO RESULT#) 
LEF TVALPTR3 LEF TARG*.F IRSTVALUE3 
WHILE LEFTVALPTR <> NIL DO 
(*TRANSFER LEFT ARG VALUES (IF ANY) #) 
NEW (NEWVALUES) 3 
IF SWITCH = TRUE 


END 


SE 
BEGIN 


BEGIN 


THEN 


BEGIN 


SWITCH =F ALSE 8 
NEWVALTABL INK* oF IRSTVALUE 3 sNEWVALUES 


ENO 


ELSE 


END3 


NEWVALPTR*# NEXTVALUE 8 @NEWVALUES 3 
NEWVALUES*?. REALVAL 3 3LEF TVALPTR*® REALVAL S$ 
NEWVALPTR3’ sNEWVALUESS 

LEF TVALPTR3 SLEF TVALPTR* NEXT VALUE 


RIGHTVALPTR 3 SRIGHTARG? oF IRSTVALUE $ 

WHILE RIGHTVALPTR <> NIL 00 

BEGIN (*TRANSFER RIGHT ARG VALUES (IF ANY) *) 
NEW (NEWVALUES) $ 
IF SWITCH = TRUE 


THEN 


BEGIN 


SWITCH: SF ALSES 
NEWVALTABL INK# -FIRSTVALUE 8 sNEWVALUES 


END 


ELSE 


ENDS 


NEWVALPTR* eNEXTVALUE 3 =NEWVALUES$ 
NEWVALUES*# eREALVAL 2=RIGHTVALPTR* .REALVAL 3 
NEWVALPTR&8 aNEWVALUES3 

RIGHTVALPTR3 sRIGHTVALPTRt eNEXTVALUE 


NEWVALUES*# eNEXTVALUE 8 SNIL 
END (*#TRANSFER OF VALUES#) 


(* LEFT ARGUMENT IS NOT A VECTOR *) 


NEW (NEWVALTABLINK) $ 


OLOVALTABLINK*? .NEXTVALTABLINK 3 SNEWVALTABLINKS 

NEWVALTABLINK*? NEXTVALTABLINK3SNIL8 

NEWVALTABLINK*. INTERMEDRESULT 8 TRUE 3 

IF LEFTARGt-FORWARDORDER = FALSE 
THEN REVERSELINKLIST (LEFTARG) 8 

NEWVALTABL INK .FORWARDORDER $ SR IGHTARGt oF ORWARDORDER 3 

NEWVALTABL INK* DIMENSIONS 3 SRIGHTARG* .DIMENSIONS 3 

IF RIGHTARG*#eDIMENSIONS = 0 
THEN NEWVALTABLINK*eFIRSTOIMENS2NIL (*#RIGHT ARGUMENT IS A SCALAR*) 
ELSE 

BEGIN 


BEGIN 


(BUILD DIMENSIONS OF RESULT*) 
SWITCH: TRUE 3 
DIMPTR3 #RIGHTARG* oF IRSTDIMENS 
WHILE DIMPTR <> NIL DO 
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24790 
24800 
24810 
24820 
24830 
24840 
24850 
24860 
24870 
24880 


24890 
24900 


24910 
24920 
24930 
24940 
24950 
24960 
24970 
24980 
24990 
25000 
25010 
25020 
25030 
25040 
25050 
25060 
25070 
25080 
25090 
25100 
25110 
25120 
25130 
25140 
25150 
25160 
25170 
25180 
25190 
25200 
25210 
25220 
25230 
25240 
25250 
25260 
25310 
25320 
25330 
25340 
25350 
25360 
25370 
25380 
25390 
25400 
25410 
25420 
25430 
25440 
25450 
25460 
25470 
25480 
25490 
25500 
25510 
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NEW (NEWDIM) $ 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCH: =F ALSE3 
NEWVALTABLINK*eF IRSTDIMEN: sNEWDIM 
END 
ELSE 
NEWPTR* eNEXTDIMEN’ sNEWDIM3 
NEWDIM?* eDIMENLENGTH3 20 IMPTR* -DIMENLENGTH3 
NEWPTR&ZNEWDIM$ 
DIMPTR& 2D IMPTRt eNEXTOIMEN 
END$ 
NEWDIM* NEXTDOIMEN? 2NIL 
END$ 
SWITCH3 sTRUE3 
RIGHTVALPTR3 SRI GHTARG? .F IRSTVALUE $ 
WHILE RIGHTVALPTR <> NIL DO 
BEGIN 
NEW (NEWVALUES) 3 
IF SWITCH = TRUE 
THEN 
BEGIN 
SwITCH3 sF ALSE $3 
NEWVALTABLINK*?-F IRSTVALUE 8 sNEWVALUES 
END 
ELSE 
NEWVALPTR* eNEXTVALUE 8 =NEWVALUES3 
ICOUNT 33} 3 
LEFTVALPTR&=sLEF TARGteF IRSTVALUE 3 
TESTLENGTH3S=LEF TARGteFIRSTDIMENt. DIMENLENGTHS (*LENGTH OF LEFT ARG*) 
ONEMORES2TESTLENGTH * 13 (#LENGTH OF LEFT ARG PLUS ONE*) 
MAP INDEX 38 2ONEMORE $ 
WHILE (ICOUNT <# TESTLENGTH) AND (MAPINDEX = ONEMORE) DO 
BEGIN (#TRY TO MATCH VALUE IN RIGHT ARG WITH ONE IN LEFT ARG#) 
IF LEP TVALPTR*. REALVAL = RIGHTVALPTR*# eREALVAL 
THEN MAPINDEX3=ICOUNT3 (#VALUE MATCH*) 
ICOUNT3S2ICOUNT @ 13 
LEF TVALPTR3 SLEF TVALPTR* .NEXTVALUE 
END3 
NEWVALUES*?.REALVAL 3 MAP INDEX 3 
NEWVALPTR& eNEWVALUES3 
RIGHTVALPTR: RIGHT VALPTR*# eNEXTVALUE 
END$ (*I1F NO MATCH» INDEX BECOMES ONE MORE THAN LENGTH OF LEFT ARG#) 
NEWVALUES*? eNEXTVALUE S=NIL 
END 
END$ (# INDEXOF *#) 


PROCEDURE RESHAPE (LEFTARGsRIGHTARG: TYPEVALTABPTR) 8 
(* DYADIC RHO OPERATOR = CHANGE DIMENSIONS OF *) 
VAR 
RESULTLENGTHs ELEMENTS: INTEGERS 
DIMPTR&S*DIMENINF OS NEWPTRe *VALUESS 
BEGIN (* RESHAPE *) 
IF LEFTARG* DIMENSIONS > 1 
THEN ERROR(S6) (* LEFT ARGUMENT NOT A VECTOR OR A SCALAR *) 
ELSE 
BEGIN 
NEW (NEWVALTABLINK) 3 
OLOVAL TABL INK NEXTVALTABLINK  SNEWVAL TABL INK3$ 
NEWVALTABLINK*? .NEXTVALTABLINK&2NIL $3 
NEWVALTABL INK*. INTERMEDRESULT 3 TRUE $ 
IF LEFTARGteFORWARDORDER = FALSE 
THEN REVERSELINKLIST (LEFTARG) $ 
IF RIGHTARG? -FORWARDORDER = FALSE 
THEN REVERSELINKLIST (RIGHTARG) 3 
NEWVALTABLINK*? .FORWARDORDER ? 2TRUE 3 
IF LEFTARG*.F IRSTDIMENENIL 


25520 
25530 
25540 
25550 
25560 
25570 
25580 
25590 
25600 
25610 
25620 
25630 
25640 
25650 
25660 
25670 
25680 
25690 
25700 
25710 
25720 
25730 
25740 
25750 
25760 
25770 
25780 
25790 
25800 
25810 
25820 
25830 
25840 
25850 
25860 
25870 
25880 
25890 
25900 
25910 
25920 
25930 
25940 
25950 
25960 
25970 
26020 
26030 
26040 
26050 
26060 
26070 
26080 
26090 
26100 
26110 
26120 
26130 
26140 
26150 
26160 
26170 
26180 
26190 
26200 
26210 
26220 
26230 
26240 


END3 


THEN NEWVALTABLINK*? -—DIMENSIONS38#] ELSE 
NEWVAL TABLINK* eOIMENSIONS 8sL€F TARG* oF IRSTDIMEN? —DIMENLENGTHS 
RESULTLENGTH321$ 
LEFTVALPTR3SLEF TARG*.FIRSTVALUE$ 
SWITCHS TRUE 3 
WHILE LEFTVALPTR <> NIL OO (#LEFT ARG VALUES ARE:DIMENSIONS OF RESULT®) 
BEGIN (#BUILO RESULT DIMENSIONS*) 

RESULTLENGTH? SRESULTLENGTH®TRUNC (LEF TVALPTRt eREALVAL) 8 

NEW (NEWDIM) $ 

NEWDIM* -DIMENLENGTHS STRUNC(LEFTVALPTR*# .REALVAL ) § 

LEFTVALPTR3 SLEF TVALPTR* eNEXTVALUE 3 

IF SWITCH = TRUE 

THEN 


BEGIN 


SWITCH! sF ALSE3 
NEWVALTABLINK4eF IRSTOIMENS sNEWDIM 


END 


ELSE 
DIMPTR* eNEXTDIMENS SNEWOIMS 
DIMPTR&SNEWDIM 


END3 


BEGIN 


NEWDIM* NEXTOIMENSZNIL3 

RIGHTVALPTR3$ &RIGHTARG? -F IRSTVALUE $ 

ELEMENTS2#03 SWITCHS sTRUES$ 

WHILE ELEMENTS < RESULTLENGTH DOO 

(*#DUPLICATE RIGHT ARG VALUES INTO RESULT VALUES*) 


ELEMENTSS2ELEMENTS © 13 

NEW (NEWVALUES) 8 

IF RIGHTVALPTR = NIL (#EXTEND RIGHT ARGUMENT IF NECESSARY®) 
THEN RIGHTVALPTR3 SR IGHTARG* oF IRSTVALUE 3 

NEWVALUES*? .REALVAL 3 RIGHTVALPTR* .REALVALS 

IF SWITCH = TRUE 
THEN 


BEGIN 


SWITCH& =F ALSES 
NEWVALTABLINK?eF IRST VALUE 8 =NEWVALUES 


END 


ELSE 
NEWPTR* NEXTVALUE 3 SNEWVALUES $ 
NEWPTR3ZNEWVALUES$ 
RIGHTVALPTR2=RIGHTVALPTR* eNEXT VALUE 


END$ 


NEWVALUES*t eNEXTVALUES=NIL 3 
END 
(# RESHAPE *#) 


PROCEDURE INNERPRODUCT (LEF TARGsRIGHTARGS TYPEVALTABPTR) 3 


VAR 


INPRO1CODE s INPRO2CODE sLEF TSK IPsRIGHTSKIP: INTEGERS 
ICOUNT + JCOUNT s KCOUNT »LCOUNT » MCOUNT 3 INTEGERS 
LASTLEF TOUIMsF IRSTRIGHTDIMs COMMONLENGTHS INTEGERS 


LPTR&*#VALUES3 


HOLD3REAL 3 
SFLOAT +s VALUE 2REAL 3 
(*INNER PRODUCT IS MATRIX MULTIPLICATION®#) 
OIMPTRE=LEFTARGt.F IRSTOIMENS 

IF LCEFTARG* eFIRSTUIMEN <> NIL 


BEGIN 


THEN 


WHILE DIMPTRteNEXTDIMEN <> NIL DO 


DIMPTR&2DIMPTRteNEXTDIMENS 


(*GET LAST DIMEN OF LEFT ARG(IF ANY)®#) 


IF (DIMPTR <> NIL) AND (RIGHTARGteFIRSTDIMEN <> NIL) 


THEN 


IF DIMPTR*eDIMENLENGTH <> RIGHTARGt oF IRSTDIMENt eDIMENLENGTH 


ELSE 


BEGIN 


INPROICODEs=CODE DIV 1003 
INPRO2CODE:=CODE = 


THEN ERROR (S2) 


(#LAST DIM OF LEFT ARG NOT = TO FIRST OIM OF RIGHT ARG®*) 


(*SEPARATE OPERATORS*) 
100*INPROICODE3 
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26250 NEW (NE WVALTABLINK) 8 


26260 OLOVALTABLINK* eNEXTVALTABLINK 8 fNEWVALTABLINK$ 
26270 NEWVALTABLINK? eNEXTVALTABLINKSZNIL3 

26280 NEWVALTABL INK*#.INTERMEDRESULT $2 TRUE3 

26290 IF LEFTARG*eFORWARDORDER = FALSE 

26300 THEN REVERSELINKLIST(LEFTARG) 8 

26310 IF RIGHTARG*t-eFORWARDORDER = FALSE 

26320 THEN REVERSELINKLIST (RIGHTARG) 3 

26330 NEWVALTABL INK? oF ORWARDORDER 2 = TRUE 3 

26340 NEWVALTABLINK* DIMENSIONS S2LEFTARGTeDIMENSIONS @¢ RIGHTARG* DIMENSIONS 
26350 -23 

26360 IF NEWVALTABLINK*-eDIMENSIONS < 0 

260370 THEN NEWVALTABL INK* DIMENSIONS 3803 

26380 SWITCH: STRUES 

26390 LASTLEFTDIM3=03 

26400 IF LEFTARG*eFIRSTDOIMEN <> NIL 

26410 THEN 

26420 BEGIN (#COPY ALL BUT LAST OF LEFT ARG DIMS INTO RESULT®) 
26430 LEFTSKIP3s#13 

26440 DIMPTRSZLEF TARG* F IRSTOIMENS 

26450 WHILE DIMPTR* NEXTDIMEN <> NIL DO 

26460 BEGIN (*#COPY LEFT ARG DIMENSIONS#) 

26470 NEW (NEWOIM) 3 

26480 NEWDIM? eDIMENLENGTH3 sDIMPTR* .DIMENLENGTHS 
26490 LEFTSKIPssLEFTSKIP*OIMPTRe OIMENLENGTHS 
26500 IF SWITCH = TRUE 

26510 THEN 

26520 BEGIN 

26530 SWITCHSeFALSE3 

26540 NEWVALTABLINKt.FIRSTDIMEN3 sNEWDIM 
26550 ENO 

26560 ELSE 

26570 NEWPTRt eNEXTOIMENS sNEWOIMS 

26580 NEWPTR$ gNEWDIM3 

26590 DIMPTRSZDIMPTR* eNEXTOIMEN 

26600 END3 

26610 LASTLEFTDOIM3 sD IMPTR* .—DIMENLENGTH 

26620 END3 

26630 IF RIGHTARG* FIRSTOIMEN <> NIL 

26640 THEN 

26650 BEGIN (*#COPY ALL BUT FIRST OF RIGHT ARG DIMS INTO RESULT*) 
26660 RIGHTSKIP321 $ 

26670 DIMPTR: sRIGHTARG?t.F IRSTODIMENt eNEXTDIMENS 
26680 WHILE DIMPTR <> NIt DOO 

26690 BEGIN (*COPY RIGHT ARG DIMENSIONS®#) 

26700 NEW (NEWDOIM) $ 

26710 NEWDIM? —DIMENLENGTHS sD IMPTR* .DIMENLENGTHS 
26720 RIGHTSKIP32RIGHTSKIP#*DIMPTR* .DIMENLENGTHS 
26730 IF SWITCH = TRUE 

26740 THEN 

26750 BEGIN 

26760 SWITCH3 #F ALSE$ 

26770 NEWVALTABLINK? oF IRSTOIMENS sNEWOIM 
26780 END 

26790 ELSE 

26800 NEWPTRt NEXTOIMEN: sNEWDIM3 

26810 NEWPTR& sNEWDIMS 

26820 DIMPTR&2DIMPTR* NEXTOIMEN 

26830 END 

26840 END$ 

26850 IF SWITCH = TRUE 

26860 THEN NEWVALTABLINK@eFIRSTOIMENSSNIL 

26870 ELSE NEWDIM*eNEXTOIMENSZNIL8 

26880 IF LEFTARG*eFIRSTVALUE = NIL 

26890 THEN LEFTSKIP: 203 

26900 IF RIGHTARG?* FIRSTVALUE = NIL 

26910 THEN RIGHTSKIP: 303 

26920 SWITCH3 TRUE 3 

26930 IF RIGHTARG*eFIRSTDIMEN <> NIL 
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26940 
26950 
26960 
26970 
26980 
26990 
27000 
27010 
27020 
27030 
27040 
27050 
27060 
27070 
27080 
27090 
27100 
27110 
27120 
27130 
27140 
27150 
27160 
27170 
27180 
27190 
27200 
27210 
e7l22u 
27230 
27240 
27250 
27260 
2e72etu 
27280 
27290 
27300 
27310 
27320 
27330 
27340 
27350 
27360 
27370 
27380 
27390 
27400 
27410 
27420 
27430 
27440 
27450 
27460 
27470 
2/480 
27490 
27500 
27510 
27520 
27530 
27540 
27550 
27560 
27570 
27580 
27590 
27600 
27610 
27620 


THEN FIRSTRIGHTDIM’ SRIGHTARG?# oF IRSTDIMEN?t —DIMENLENGTH 
ELSE FIRSTRIGHTDIM:=03 
IF FIRSTRIGHTDIM > LASTLEFTDIM 
THEN COMMONLENGTH8 SF IRSTRIGHTOIM 
ELSE COMMONLENGTH3 SLASTLEFTOIMS 
ICOUNT 3803 
LEFTVALPTR3 #LEF TARGt -F IRSTVALUE 3 
WHILE ICOUNT < LEFTSKIP DO 
BEGIN (#LOOP FOR EACH ROW IN LEFT ARG*) 
LPTR&S2LEFTVALPTRS$ (#HOLD START OF ROW POSITION*#) 
JCOUNT 3203 
WHILE JCOUNT < RIGHTSKIP OO 
BEGIN (#LOOP FOR EACH COLUMN IN RIGHT ARG*) 
LEFTVALPTR3=LPTRS$ 
RIGHTVALPTR3’ =RIGHTARGt eF IRSTVALUE 3 
LCOUNT 3=03 
WHILE LCOUNT < JCOUNT DO 
BEGIN (#SKIP TO STARTING VALUE IN RIGHT ARG#) 
RIGHTVALP TR: =RIGHTVALPTRt NEXTVALUE 3 
IF RIGHTVALPTR = NIL 
THEN RIGHTVALPTR3=RIGHTARGT FIRSTVALUE3 (#EXTEND ARG#) 
LCOUNT3s=LCOUNT ¢ 1 
END 3 
KCOUNT $203 
WHILE KCOUNT < COMMONLENGTH DO 
BEGIN (#LOUP FOR EACH ELEMENT IN ROW/COLUMN#) 
SFLOAT S=RIGHTVALPTR*t .REALVAL 3 
DY ADCOMP (SFLOAT sLEF TVALPTR* eREALVAL » INPRO2CODE) 3 
VALUE 3 =SFLOAT3 
IF KCOUNT = 0 
THEN (#SET IDENTITY VALUE FOR FIRST TIME THROUGH#) 
CASE INPROICODE OF 
529539783 SFLOAT2=0.03 
549559569773 SFLOAT2=1-.03 
719729739749 755 763 (#NULL CASE*) 
END (#CASE*) 
ELSE 
SFLOAT’=HOLD3 
DY ADCOMP (SFLOAT «VALUE» INPROICODE) 3 
HOLD:=SFLOAT$ (#SAVE SUMMER RESULT *) 
LEFTVALPTRS=LEFTVALPTRt NEXTVALUE 3 
IF LEFTVALPTR = NIL 
THEN LEFTVALPTRE=S=LEFTARG*eFIRSTVALUES (#EXTEND ARG*) 
MCOUNT 3=03 
WHILE MCOUNT < RIGHTSKIP DO 
BEGIN (*#SKIP TO NEXT VALUE IN RIGHT ARG#) 
MCOUNT&S=MCOUNT ¢ 13 
RIGHTVALPTR:=RIGHTVALPTR* NEXT VALUE $ 
IF RIGHTVALPTR = NIL 
THEN RIGHTVALPTRESRIGHTARGT oF IRSTVALUE $ 
END3 
KCOUNTS=KCOUNT ¢ 1 
END$ 
NEW (NEWVALUES) 3 
NEWVALUES*?.REALVAL 3=SFLOAT3 
IF SwITCH = TRUE 
THEN 
BEGIN 
SWITCH: =F ALSE?3 
NEWVALTABLINK4 oF IRSTVALUE 8 =NEWVALUES 
EWD 
ELSE 
NEWVALPTR*t -NEXTVALUE $s =NEWVALUES3 
NEWVALPTR: =NEWVALUES 3 
JCOUNTS=JCOUNT + 13 
END$3 
ICOUNT&=ICOUNT ¢ 1 
END3 
IF SWITCH = TRUE 
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27630 
27640 
27650 
27660 
27670 
27720 
27730 
27740 
27750 
27760 
27770 
27780 
27790 
27800 
27810 
27820 
27830 
27840 
27850 
27860 
27870 
27880 
27890 
27900 
27910 
27920 
27930 
27940 
27950 
27960 
27970 
27980 
27990 
28000 
28010 
28020 
28030 
28040 
28050 
28060 
28070 
28080 
28090 
28100 
28110 
28120 
28130 
28140 
28150 
28160 
28170 
28180 
28190 
28200 
28210 
28220 
28230 
28240 
28250 
28260 
28270 
28280 
28290 
28300 
28310 
28320 
28330 
28340 
28350 
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THEN NEWVALTABLINK*eF IRSTVALUE 3 sNIL 
ELSE NEWVALUES? NEXTVALUE taNIL 
END 
END$ (# INNERPROOUCT *) 


PROCEDURE OUTERPRODUCT (LEF TARGeRIGHTARG! TYPEVALTABPTR) 3 
VAR 
OUTPROCODE : INTEGERS 
SFLOATSREAL S$ 
BEGIN 

OUTPROCODE ssCODE Olv 
NEW (NEWVALTABLINK) $ 
OLDVAL TABL INK® eNEXTVALTABL INK 3 SNEWVAL TABLINKS 
NEWVAL TABL INK? LNEXTVALTABLINK S@NIL$ 
NEWVALTABL INK*. INTERMEORESULT 8 &TRUES 

IF LEFTARG*-FORWARDORDER = FALSE 

THEN REVERSELINKLIST(LEFTARG) 3 

IF RIGHTARG?.FORWARDORDER = FALSE 

THEN REVERSELINKLIST (RIGHTARG) 8 
NEWVAL TABL INK*# .F ORWARDORDER 3 TRUE 3 


103 


NEWVAL TABL INK* DIMENSIONS 8@LEF TARG* DIMENSIONS ¢ RIGHTARG* DIMENSIONSS 


SWITCH STRUE $ 
DIMPTR&SLEFTARG? oF IRSTDIMENS 
WHILE OIMPTR <> NIL DO 
BEGIN (*COPY LEFT ARG DIMENSIONS TO RESULT#) 
NEW (NEWDIM) $ 
NEWOIM* .DIMENLENGTH8 DI MPTR* eDIMENLENGTHS 
IF SWITCH ® TRUE 
THEN 
BEGIN 
SWITCH3 SF ALSE$ 
a a alle 
ELSE 
NEWPTR* NNEXTDIMENS NEWDIMS 
NEWPTR& sNEWDIM$ 
DIMPTR&sDIMPTR* NEXTDIMEN 
END3 
DIMPTR&SRIGHTARGt oF IRSTDIMENS 
WHILE DIMPTR <> NIL DO 
BEGIN (*#COPY DIMENSIONS OF RIGHT ARG TO RESULT®) 
NEW (NEWDIM) $ 
NEWOIM* .DIMENLENGTH3 sDIMPTR*t —DIMENLENGTHS 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCH3 SF ALSE$ 
NEWVALTASL INK? oF IRSTDIMENS SNEWDIM 
END 
ELSE 
NEWPTR®# NEXTDIMENS SNEWDIMS 
NEWPTR3 sNEWOIMS 
DIMPTR&sDIMPTR* NEXTDOIMEN 
ENDS 
IF SWITCH = TRUE 
THEN NEWVALTABLINK? of IRSTDIMENS SNIL 
ELSE NEWDIM*NEXTDIMENS SNILS 
SWITCH TRUE 3 
LEFTVALPTR3 SLEF TARG? oF IRSTVALUES 
WHILE LEFTVALPTR <> NIL 00 
BEGIN 
RIGHTVALPTR& SRIGHTARG* FF IRSTVALUE $ 
WHILE RIGHTVALPTR <> NIL 00 
BEGIN 
SFLOAT $sRIGHTVALPTR* .REALVAL 8 
DY ADCOMP (SFLOAT o LEF TVALPTR*# REALVAL » OUTPROCODE) § 
NEW (NEWVALUES) 8 
IF SWITCH = TRUE 


28360 
28370 
28380 
28390 
28400 
28410 
28420 
28430 
28440 
28450 
28460 
28470 
28480 
28490 
28500 
28510 
28520 
28530 
28580 
28590 
28600 
28610 
28620 
28630 
28640 
28650 
28670 
28680 
28690 
28700 
28710 
28720 
28730 
28740 
28750 
28760 
28770 
28780 
28790 
28800 
28810 
28820 
28830 
28840 
28850 
28860 
28870 
28880 
28890 
28900 
28920 
28920 
28930 
28940 
28950 
28960 
28970 
28980 
28990 
29000 
29010 
29020 
29030 
29040 
29050 
29060 
29070 
29080 
29090 


THEN 
BEGIN 
SWITCH3 SF ALSE 3 
NEWVALTABL INK? .F IRSTVALUE 8 SNEWVALUES 
ENO 
ELSE 
NEWVALPTR* NEXTVALUE 8 SNEWVALUES 3 
NEWVALUES?-REALVAL 32SFLOATS 
NEWVALPTR3 sNEWVALUES 3 
RIGHTVALPTR3 sRIGHTVALPTR* NEXTVALUE 
ENDS 
LEFTVALPTR&SLEFTVALPTR* NEXT VALUE 
ENDS 
IF SWITCH # TRUE 
THEN NEWVALTABLINK?4 oF IRSTVALUE S3NIL 
ELSE NEWVALUES*? NEXTVALUE SaNIL 
ENDS (# OUTERPRODUCT *) 


PROCEDURE DYADIC(LEF TARGseRIGHTARG3 TYPEVALTAGPTR) 3 
(* OPERATORS WITH CODES OF S2 AND HIGHER #) 
VAR 
COMPATIBLE 3BOOLEAN?3 
ARGS TYPEVALTABPTR3 
SFLOAT SREAL 3 
BEGIN 
IF CODE > 1000 
THEN INNERPRODUCT (LEF TARGsRIGHTARG) 
ELSE 
IF CODE > 100 
THEN OUTERPRODUCT (LEF TARGsRIGHTARG) 
ELSE 
IF CODE > 80 
THEN 
CASE CODE OF 
873 INDEXOF (LEFTARGsRIGHTARG) 3 
883 RESHAPE (LEF TARGeRIGHTARG) $ 
893 CATENATE (LEF TARGeRIGHTARG) 8 
END (*CASE*) 
ELSE 
BEGIN (*#SIMPLE DYADICS®) 
COMPATIBLE 8 TRUE $ 
IF (LEFTARG*.DIMENSIONS > 1) AND (RIGHTARG* DIMENSIONS > 1) 
THEN 
IF LEFTARG* DIMENSIONS <> RIGHTARG* DIMENSIONS 
THEN COMPATIBLESSFALSE (*#DIFFERENT RANKS/NEITHER SCALAR#) 
ELSE 
BEGIN (*RANKS MATCH ~- CHECK LENGTHS®) 
LEFTDIMPTR’ SLEF TARGt oF IRSTOIMENS 
RIGHTOIMPTR3 SRIGHTARG* oF IRSTOIMENS 
WHILE LEFTOIMPTR <> NIL 00 
BEGIN 
IF LEFTOIMPTR* .DIMENLENGTH <> 
RIGHTOIMPTR* -—OIMENLENGTH 
THEN COMPATIBLESSFALSES (#D0IFFERENT LENGTH(S) #) 
LEFTOIMPTR&sLEFTDIMPTR* NEXTDIMENS 
RIGHTDIMPTR38 #SRIGHTOIMPTR* NEXTDOIMEN 
END 
ENDS 
IF COMPATIBLE = TRUE (*#ARGUMENTS SUITIBLE FOR DYADIC OPERATION#) 
THEN 
BEGIN (*BUILD DIMENSIONS OF RESULT*) 
IF RIGHTARG*eDIMENSIONS > LEFTARG?* DIMENSIONS 
THEN ARG&2RIGHTARG 
ELSE ARGS=LEFTARGS (#RESULT HAS SHAPE OF LARGER ARG*#) 
NEW (NEWVALTABLINK) 3 
OLOVALTABL INK* eNEXTVALTABL INK 8 SNEWVALTABLINK$ 
NEWVALTABLINK? eNEXTVALTABLINK2=NIL3 
NEWVALTABLINK*4. INTERMEDRESULT 3 2 TRUE 3 
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29100 
29110 
29120 
29130 
29140 
29150 
29160 
29170 
29180 
29190 
29200 
29210 
29220 
29230 
29240 
29250 
29260 
29270 
29280 
29290 
29300 
29310 
29320 
29330 
29340 
29350 
29360 
29370 
29380 
29390 
29400 
29410 
29420 
29430 
29440 
29450 
29460 
29470 
29480 
29490 
29500 
29510 
29520 
29530 
29540 
29550 
29560 
29570 
29580 
29590 
29600 
29610 
29620 
29630 
29640 
29650 
29660 
29670 
29680 
29700 
29710 
29720 
29730 
29740 
29760 
29770 
29780 
29790 
29800 
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IF LEFTARGteFORWARDORDER <> RIGHTARG?4-F ORWARDORDER 
THEN REVERSELINKLIST(LEFTARG) 3 
NEWVALTABL INK * eFORWARDORDER 3 2ARG*t .F ORWARDORDER 3 
NEWVALTABL INK? DIMENSIONS: ZARG* DIMENSIONS 
SWITCH: TRUE $3 
DIMPTR3 ZARG*t oF IRSTOIMENS 
WHILE DIMPTR <> NIL 00 
BEGIN (*COPY DIMENSIONS TO RESULT*) 
NEW (NEWDIM) $ 
NEWDIM?# -DIMENLENGTH38 2D IMPTR* DIMENLENGTH3 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCH3 sF ALSE3 
NEWVALTABLINK? eFIRSTOIMENS sNEWDIM 
END 
ELSE 
NEWPTR*t NEXTDOIMENS SNEWDIM3 
NEWPTR: sNEWDIM$ 
DIMPTR&=DIMPTR*t NNEXTDOIMEN 
END$ 
IF SWITCH = TRUE 
THEN NEWVALTABLINK*-FIRSTOIMENS=ENIL (*#RESULT IS A SCAL*) 
ELSE NEWDIM?t NEXTOIMENS2NIL$ 
SWITCH%8=TRUE$ 
RIGHTVALPTR3 #RIGHTARGt.F IRSTVALUE 3 
LEF TVALPTR3 sLEF TARG?t .F IRSTVALUE 3 
VALPTR3=ARG* of IRSTVALUE 3 
WHILE VALPTR <> NIt DO 
BEGIN (#PERFORM OPERATION*®) 
NEW (NEWVALUES) $ 
SFLOAT3 RIGHT VALPTR*# eREALVAL 3 
DYADCOMP (SFLOAT oLEF TVALPTR* .REALVAL » CODE) $ 
NEWVALUES*? -.REALVAL 3 2SFLOAT 3 
IF SWITCH = TRUE 
THEN 
BEGIN 
SWITCH3 aF ALSE 3 
NEWVALTABL INK? oF IRSTVALUE 8 2NEWVALUES 
END 
ELSE 
NEWVALPTR* -NEXTVALUE 8 SNEWVALUES 3 
NEWVALPTR$ sNEWVALUES3 
VALPTR32VALPTR* NEXTVALUE 3 
LEF TVALPTR&SSLEF TVALPTRt NEXT VALUE 8 
RIGHTVALPTR3 SRIGHTVALPTR* eNEXTVALUES 
IF LEFTVALPTR = NIL 
THEN LEFTVALPTRSsLEFTARGteFIRSTVALUES (*EXTEND ARG#) 
IF RIGHTVALPTR = NIL 
ae THEN RIGHTVALPTRs SRIGHTARG* FIRSTVALUE (#EXTEND *#) 
ND $ 
IF SWITCH = TRUE 
THEN NEWVALTABLINK*eFIRSTVALUES2NIL (*VECTOR OF LEN 0#) 
ELSE NEWVALUES*? NEXTVALUE 3 aNIL 


END 
ELSE ERROR(SS) (#ARGUMENTS IMCOMPATIBLE FOR DYADIC OPERATION*) 


ENDS (#* DYADIC *) 


PROCEDURE FUNCALL(VAR VAL IOFUNK 3B00LEAN) 3 


VAL IOPM3BOOLEAN3 
BEGIN (* FUNCALL #) 

VAL IDFUNK 3 F ALSE 3 

IF FUNCTCALL THEN 


IF TOKENTABPTR® eNOUN<>STATENOD THEN 
BEGIN 


29810 SUBRTABPTR*® - TOKENCALL INGSUBR 8 STOKENTABPTRS 
29820 PRIMARY (VALIOPM) $ 

29830 IF NOT VALIOPM THEN ERROR(17) 3 

29840 (# *LEFTARG OF DYADIC FUNC CALL NOT A PRIMARY? #) 
29850 END3 

29860 CALLSUBR?$ 

29870 VAL IDFUNK 3 TRUE $ 

29880 END$ 

29890 ENDS (# FUNCALL *) 

29900 

29960 

29970 BEGIN (#* EXPRESSION #) 

29990 PRIMARY (VALIDPRI) $ 

30000 IF NOT VALIOPRI THEN 

30010 BEGIN 

30020 IF TOKENTABPTRt .NOUNSSTATEND THEN 

30030 BEGIN 

30040 VAL IDEXP 2 2TRUE $ 

30050 ASSIGN] 3 TRUE 

30060 END 

30070 ELSE VALIDEXP3#FALSE 

30080 ENO 

30090 ELSE BEGIN 

30100 DONE XP 3 2F ALSE3 

30110 WHILE NOT DONEXP DO 

30120 BEGIN 

30130 FUNCALL (VALIDFUNC) $ 

30140 IF VALIDFUNC THEN 

30150 BEGIN 

30160 EXPRESSION(VALIDEXP) $ 

30170 DONEXP 8 #TRUE 

30180 END 

30190 ELSE 

30200 BEGIN 

30210 ASSIGNMENT (VAL IOASSN) $ 

30220 IF VALIDASSN AND (TOKENTABPTRe NOUNZSTATEND) THEN 
30230 BEGIN 

30240 DONEXP 82 TRUE S$ 

30250 VALIDEXP 3 2TRUES 

30260 END3 

30270 IF NOT VALIDASSN THEN 

30280 IF MOP THEN 

30290 BEGIN 

30300 MONADIC (OPERTABPTR -OPERPTR»e HOLD) 3 
30310 OPERTABPTR* -OPERPTR& =NEWVALTABL INK 
30320 END 

30330 ELSE 

30340 IF NOT DOP THEN 

30350 BEGIN 

30360 VAL IDEXP 8 sTRUE $ 

30370 DONEXP ts TRUE 

30380 END 

30390 ELSE 

30400 BEGIN 

30410 PRIMARY (VALIOPRI) $ 

30420 IF NOT VALIOPRI THEN 

30430 ERROR(13) (* DYAD OPER NOT PRECEDED BY A PRI #) 
30440 ELSE 

30450 BEGIN 

30460 DYADIC (OPERTABPTR*e .OPERPTR» 
30470 OPERTABPTR* eLASTOPER? .OPERPTR) § 
30480 AUXOPERTABPTR3 sOPERTABPTRS 
30490 OPERTABPTR3 ZOPERTABPTR* LLASTOPERS 
30500 PTRLASTOPER 3 SOPERTABPTR?3 
30510 DISPOSE (AUXOPERTABPTR) 3 
30520 OPERTABPTRt -OPERPTR’ sNEWVALTABL INKS 
30530 ENDS 

30540 END: 

30550 END$ 


30560 
30570 
30580 
30590 
30650 
30660 
30680 
30690 
30700 
30710 
30720 
30730 
30740 
30750 
30760 
30770 
30780 
30790 
30800 
30810 
30820 
30830 
30840 
30850 
30860 
30870 
3088u 
30890 
30900 
30910 
30920 
30930 
30940 
30950 
30960 
30970 
30980 
30990 
31000 
31010 
31020 
31030 


31050 
31060 
31070 
31080 
31090 
31100 
31110 
31120 
31130 
31140 
31150 
31160 
31170 
31180 
31190 
31200 
31210 
31220 
31230 
31240 
31250 
31260 
31270 
31280 
31290 
31300 
31310 
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END3 
ENDS 
ENDS (# EXPRESSION *) 


BEGIN (# PARSER *) 
ASSIGN2SFALSE$ ASSIGNI] 3=FALSE 8 
DONEPARSE : 2F ALSE $3 
REPEAT 
EXPRESSION(VALIDEXP)3 (# CHECKS FOR VALIO EXPRESSION #) 
IF NOT VALIDEXP THEN ERROR(10) (# *INVALIO EXPRESSION? *#) 
ELSE 


IF SPECSYMBOL (XRIGHTARROW) THEN IF NOT ((OPERTABPTRt -OPERPTR*E FIRST VALUE 


=NIL) AND (OPERTABPTRt -OPERPTR*t .UIMENSIONS>O) ) THEN 
(# BRANCH *#) 
(*# RESULT OF EXPRESSION IS AT OPERTABPTR *) 
IF OPERTABPTRt OPERPTR*t FIRST VALUEt eREALVAL 


-1.0#TRUNC (OPERTABPTRt .OPERPTRt oF IRSTVALUEteREALVAL) <>0-0 THEN 


ERROR(12) (#* STMT ZNUMe2TUO BRANCH TO NOT AN INTEGER *) 
ELSE 
IF SUBRTA8PTR = NIL THEN 
BEGIN (# FUNCTION MODE #) 
TOKENTABPTR: =HOLD$ 
DONEPARSE 3 =TRUE 


END 
ELSE 
IF TRUNC(OPERTABPTRt OPERPTRt oF IRSTVALUETe¢REALVAL) IN 
Clee (SUBRTABPTR* .CALLEDSUBR*t eNUMOF STATEMENTS) ) THEN 
BEGIN 


VF UNCHOLD: =SUBRTABPTR* -CALLEDSUBR?* oF IRSTATEMENT 3 
FOR CNTs=1 TO TRUNC(OPERTABPTR*E OPERPTRt oF IRSTVALUEt. 
REALVAL) ODO BEGIN 
VFUNCPTR&=VFUNCHOLD$ 
TOKENTABPTR&S=VFUNCPTRt eNEXTSTMNT $ 
VF UNCHOLD 8 =VFUNCPTR*t -NEXTVFUNCPTR 
END3 
AUXOPERTABFTR2=UPERTABPTRS 
OPERTABPTRS=OPERTABPTRt -LASTOPERS 
DISPOSE (AUXOPERTABPTR) 3 
PTRLASTOPERS=OPERTABPTR3 
TOKENTABPIRS=VFUNCPTR* NEXTSTMNT 
END 


ELSE (# SUCCESSOR #) 
ELSE (* SUCCESSOR #) 
BEGIN 
IF NOT ASSIGNI THEN 
OUTPUTVAL 3 
ASSIGN] $=FALSE$ 
IF SUBRTABPTRENIL THEN 
BEGIN(#® INTERPRETIVE *#) 
HOLDS =TOKENTABFIR3 
TOKENTABPTRS=TOKENTABPTR* .NEXTOKENS 
DONEPARSE 3 =TRUE 
END 
ELSE (# FUNCTION *#) 
BEGIN 
VF UNCPTRS=VFUNCPTR* eNEXTVFUNCPTR3 
DONESUCCESSOR 3 =F ALSE $ 
REPEAT 
IF VFUNCPTRK<>NIL THEN 
BEGIN 
TOKENTABPTR&S=VFUNCPTR* NEXTSTMNT $ 
DONESUCLESSOR 2 =TRUE 
END 
ELSE 
BEGIN 
RETURNTUCALL INGSUBR $ 
IF TOKENTABPTR* eNOUN=STATEND THEN 
DONESUCCESSOR 3 s TRUE 3 


31320 END 

31330 UNTIL DONESUCCESSORS 

31340 END 

31350 END 

31360 UNTIL DONEPARSE$ 

31370 RELEASES (® RELEASE MEMORY *) 

31380 END$ (# PARSER #) 

31390 

31440 

31450 BEGIN (* SCANNER *) 

31460 INITIALIZECHARACTERSETS 

31470 READINERRORMSGS$ 

31480 INITPARSERS (* INITIALIZE TABLES ETC. *) 

31490 FILLUPTABLESS 

31500 FUNCTIONMODE! SF ALSE$ 

31510 FIRSTFUNCT IONS 2TRUES 

31520 OLDVALTABLINK&SNIL3 

31530 OLDFUNCTABPIRS=NIL$ 

31540 OLDVARTABPTREaNIL$ 

31550 OLDTOKENPTR3#NIL3 NEWTOKENPTRE=NILS 

31560 NEWFUNCTABPTRE@NIL$ NEWVFUNCPTRESNIL$ 

31570 HOLDTOKENPTR3SNIL3$ TOKENERRORS=F ALSES 

31580 NEWVALTABLINK?sNIL$ NEWVARTABPTRISNIL$ 

31590 GETAPLSTATEMENTS 

31600 WHILE (APLSTATEMENT(1) <> CHARACTER(FORWARDSLASH}) OR 
31610 (APLSTATEMENT(2) <> CHARACTERLASTERISK)) DO (# /# ENDS PROGRAM *#) 
31620 BEGIN 

31630 SKIPSPACES3 

41640 TOKENSWITCH!=TRUE$ 

31650 WHILE (POSITION <= LINELENGTH) AND (NOT TOKENERROR) 


31660 AND (NOT LINETOOLONG) DO 

31670 BEGIN (# SCANNING #) 

31680 IF APLSTATEMENT(POSITION) = CHARACTER(DEL) (# FUNCTION DELIMITER *) 
31690 THEN (* DEL ENCOUNTERED *) 

31700 IF FUNCTIONMODE 

31710 THEN 

31720 BEGIN (* END OF CURRENT FUNCTION #) 

31730 IF NEWFUNCTABPTR <> NIL THEN 

31740 NEWFUNCTABPTR* -NUMOF STATEMENTS 3 =FUNCSTATEMENTS $ 
31750 IF FUNCSTATEMENTS > 0 

31760 THEN 

31770 BEGIN 

31780 NEWFUNCTAGPTR* .NEXTFUNCTABPTR 2 =OLDFUNCTABPTRS$ 
31790 OLDFUNCTABPTR 3’ =NEWFUNCTABPTRS$ 

31800 NEWVFUNCPTR* sNEXTVFUNCPTRE=NIL 

31810 END 

31820 ELSE SERROR(75)8 (#* FUNCTION DEFINED WITH NO STATEMENTS*) 
31830 FUNCT IONMODE 3=F ALSE?3 

313840 POSITIONS =POSITION ¢ 1 

31850 ENO 

31860 ELSE PROCESSFUNCTIONHEADER (# START OF A NEW FUNCTION #) 
31870 ELSE (* NOT A DEL ENCOUNTERED *) 

31880 BEGIN 

31890 IF TOKENSWITCH = TRUE 

31900 THEN 

31910 GbEGIN (* THIS IS START OF A NEW STATEMENT #*) 

31920 TOKENSWITCH3 =F ALSE 3 

31930 HOLDTOKENPTR&=OLDTOKENPTR$ (#SAVE STARTING POSITION*) 
31940 MAKETOKENL INK $ 

31950 NEWTOKENPTR* NOUNS SSTATENDS 

31960 NEWTOKENPTR*# -ENDADJ2=03 

31970 HASLABEL =F ALSE 

31980 END$ 

31990 MAKE TOKENLINK3$ 

32000 IDENTIFIER (NAME s ITSANIDENTIFIER) $ 

32010 IF NOT ITSANIDENTIFIER 

32020 THEN TRYTOGETANUMBER 

32030 ELSE 

32040 BEGIN (# PROCESS IDENTIFIER *) 
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32050 SKIPSPACES$ 

32060 IF (APLSTATEMENT(POSITION) = CHARACTER(COLON)) AND 
32070 (NEWTOKENPTR* eNEXTOKENteNOUN = STATEND) 

32080 THEN 

32090 BEGIN (* PROCESS STATEMENT LABEL *) 

32100 SAVELABEL 8 sNAME 3 

32110 HASLABEL =TRUE$ 

32120 POSITION?=POSITION * 1 

32130 END 

32140 ELSE 

32150 BEGIN (# PROCESS VARIABLE NAME *) 

32160 IF NOT FUNCTIONMODE 

32170 THEN NEWTOKENPTR* »NOUNS 2GLOBVAR 

32180 ELSE 

32190 IF NAMESMATCH (NAME sNEWFUNCTABPTR*.RESUL TNAME) 
32200 THEN NEWTOKENPTR* eNOUN? 2F ORMRES 
32210 ELSE 

32220 IF (NAMESMATCH (NAME sNEWFUNCTAGPTR* eLEFTARG) ) 
32230 OR (NAMESMATCH (NAME »NEWFUNCTABPTR* eRIGHTARG) ) 
32240 THEN NEWTOKENPTR#. NOUN? =F ORMARG 
32250 ELSE NEWTOKENPTR* NOUNS SGLOBVARS 
32260 IF NEWTOKENPTR*.NOUN <> GLOBVAR 

32270 THEN TESTFUNCPTRS=NEWFUNCTABPTR 

32280 ELSE TESTFUNCPTRSSNIL3 

32290 IF NOT NAME INVARTABLE (NAME » VARPOINTER,s TESTFUNCPTR) 
32300 THEN 

32310 BEGIN 

32320 ADDNAMETOVARTABLE (NAME) 8 

32330 NEWTOKENPTR? eVARTABPTRSZNEWVARTABPTR 
32340 ENO 

aeare - ELSE NEWTOKENPTR* VARTABPTRS2VARPOINTER 
32370 END ° 

32380 ENUS 

32390 SKIPSPACES$ 

32400 ENDS 

32410 IF NEWTOKENPTR <> NIL THEN 

32420 IF (TOKENERROR) OR (NEWTOKENPTR*eNOUN = STATEND) 

32430 THEN DESTROYSTATEMENT 

32440 ELSE 

32450 IF FUNCTIONMODE 

32460 THEN 

32470 BEGIN 

32480 FUNCSTATEMENTS32FUNCSTATEMENTS © 13 

32490 IF FUNCSTATEMENTS > 0 

32500 THEN 

32510 BEGIN (* CATALOG FUNCTION STATEMENT *) 

32520 NEW (NEWVFUNCPTR) $ 

32530 IF FUNCSTATEMENTS = 1 

32540 THEN NEWFUNCTABPTR®¢ oF IRSTATEMENT 2 SNEWVFUNCPTR 
32550 ELSE OLDVFUNCPTR* sNEXTVFUNCPTR&=NEWVFUNCPTRS 
32560 OLOVFUNCPTRS 2NEWVFUNCPTRS 

32570 IF HASLABEL 

32580 THEN NEWVFUNCPTR*.STATLABEL 2 sSAVELABEL 3 

32590 NEWVEUNCPT Kt NEXTSTMNT 8s =NEWTOKENPTR 

32600 END 

32610 END 

32620 ELSE 

32630 IF APLSTATEMENT(1) <> CHARACTERLDEL] 

32640 THEN 

42650 BEGIN 

32670 PARSER (NEWTORENPTRoNEWVALTABLINK) 3 

32680 100: DESTROYSTATEMENT 

32690 END$ 

32700 READLNS 

32710 TOKENERROR: 3F ALSE$ 

32720 GETAPLSTATEMENT S$ 

32730 END3 

32740 END. 
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